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Percom's DOUBLER II tolerates wide variations in media, drives 



GARLAND. TEXAS - May 22, 1981 
Harold Mauch, president >>t Percom Data 
Company, announced here today chat .in im- 
nion oi f ; nnovative 

LVL'BLLI a double*density plug'in 

module fbc TRS-80' Model I computers, is 
ivailable. 
Reflecting design refinements based on both 
theoretical inalyset ind field testing, the 
DOUBI ER II . k> named, permits even great* 
er tolerance in variations among medi 
l sign 

Like the original DOUBLER, the D< I 
BLLR II plugs into the drive controller IC 
Model 1 1 xpansion Inter- 
face and permits a user to run either sing 

double*density diskettes on a Model I. 

Wkh a IX m BLER II installed, over tour 
times more formatted data as much as 364 
Kbytes — can Ik stored on one ride of i five- 
inch diskette than can k ing a stan- 
dard I m.U Model I dm <■ •: Stem. 

More iver, i DOUBI ER lie | lei 1 

with the hardware required to run Model III 

diskettes. 

Bridging the 
80* software compatibilii 
this page.) 

The critical clock-data separation circuitry 
ot the DOUBLER II is a proprietary design 
called a ROM -programmed digital ph ise la k 
loop data separator. 

According to Mauch, this design IS more 

nr ol differences from diskette to diskette 
and drive to drive, an rides immunity 

to performanc< lused by circuit 

component aging. 




Percom mi:BTHU I 



Mauch said -A DOUBLER II will ope 

lust is reliably two years after it is installed as it 

will two days alter install..' 

The digital phase-lock loop also elimii 

the need lor trimmer adjustment^ typical ol 

analog phase-lock loop circuits. 

"You plug in a Percom t> H Bl ER II and 
then forget it," he said. 

The DOUBLER II also features a refined 
Write Precompensation circuit that more 
;vrk minimizes the phei I kt- 

eak shirting, a reliability-impairing char- 
acteristic oi magnetic data record 

The DOUBLER [1, which isfulh. soft 

compatible with the previous DOUBLI I 

supplied with !>RI DOS*, a TRSDt 
compatible disk operating system. 

rhe DOUBLER II sells foi v^)*^. incM- 

in« the DBLDOS ^'^-tte^ ^|^|S,^.V! 



Circuit misapplication causes diskette read, format problems. 

High resolution key to reliable data separation 



I LAND, TEXAS — The Percom 

SEPARATOR d es very well for the Radio 

k rRS 80* Model I computei what rhe 

T.ukK disk controller does poorly at best: rcli- 
M\ separates clock and data signals during 
disk-read operations. 
Unreliable data-c I I i 

mat \ failures and repeated lead 
retries. 

CRC ERROR -TRACK LOCKED OUT 
The problem is m its /en on high-number 

(high-density) inner file tracks. 

As reported earlier, the clock-dai 
tion problem was trued by Percom to misap* 
iti moi the internal separatot ol the 1771 
drive controller IC used in the Model I. 

The Percom Separator substitutes a high- 
resolution digital data sej ircuit, one 

which operates at 16 megahertz foi thi 

lit ol the Tandy 
ign. 

tor circuits that operate at lower 
ies — tor example, two- or tour- 



megahere -were found I Pei to provide 
only marginally improved performance over 
: . uir. 
I he Per© >m solutu in is a simple adapter that 

flugs into the drive co Ilei sum 

nterface (EI), 
Not a kit — some vend y an un 

kit oi resistors, IC & and othei 
paraphernalia that may he installed by i 
ifying thi puter — the Percom 

SEPARATOR Isarulb, assembled, lulh tested 
plug-in module. 

Installation involves merel) plugging the 
SEPARATOR into the M. lei I I I disk con- 
troller chip socket, and plugging the controller 
chip into a socket on rhe SEPARATOR. 

The SEPARATOR, which sells tor only 

$2°.^, may he purchased from authori ed P< i 

: ordered directly from tin 
tory. The factory roll-tree order numher is 

! 
Ed. note: Opening thi Expansion In- 

terlace ii'.. a void the Tandy limited 90 

W ananty Qrcle 508 on inquiry card 



Owners ol original DOUBLERs nun. pur- 
chase a DOUBLER II upgrade kit, without the 

disk controller IC, I P pur- 

chase oi ai DOUBLER is required. 

and each DOUBLER owner ma\ pun base only 
vine DOUBLER 11 at the | rice. 

The Percom DO! BLLR II is available from 
autlh m retailers, t m r. i 

direct from the factory Hie factory toll-tree 

order number , 

Opening the TR nln- 

I void the Tandy limited 90-day 

1,V Orcle 258 on inquiry card. 
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Robotics— The Micro- 
computing Connection 

by Chris Brown 

Currently, robot intelligence of the Star 
Wars sort can only be created in one way: 
stuffing a midget (preferably British) into a 
robot suit. 



It's All Robotese to Me 1 01 

by Kelvos Gisamte 

Discretion may be the better part of valor 
but not always the better part of authors. 
Gisamte's indiscretions will most likely be 
forgiven by readers when they find out how 
entertaining they are. 
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One Man's Robot 

by Don McAllister 

A year after this author bought a $29 model of R2D2— that cute 
stump from Star Wars with the fast-forward voice— he had it 
hooked up to his TRS-80 and responding to voice commands. 
You can do it, too, he says, and shows you how. 



Spanning the Electronic Nation 1 34 

by Dennis Kitsz 

Communication from sea to shining sea can be yours. All you 
need is a modem. Author Kitsz looks at three of them. 



148 All About Sorts They're more than just a shell game. Len Gorney 

170 New Words for Basic Taming some foreign mots. Alan Neibauer 

182 Level II Utilities for the Model III T-Bug and other variations. Kenneth J. Bigelow 

242 Going Pro Before you write software for someone else. Nicolas Moss 

312 Clear N A not-so-transparent way to save money. Nate Salsbury 

334 Bascal Detractors of Basic beware. Richard C. Metzler 



ranow 

174 The Memory Expander Eliminating those wide open spaces. Tim Kenealy 

186 Base Conversions Coping with the numbers jungle. James Yowell Yelvington 

228 Split and Splice Text manipulation that's a cut up. Stephen Mills 

240 Throw Away Kill instructions, save memory. R. Gene Langston 

250 "On Error. . . Fix" A prescription for bombing bugs. ,N. C. Richardson 

276 Serial Printing with EDTASM-Plus You have to do it yourself. Howard H. Cohen 

283 Patching Across Back door Scripsit. Richard Koch 

317 Rename You enter the strings and this program will pull them. David Busch 

333 Dateline 80 The object of this program is Basic. Richard A. Press 
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130 Morse Resource— Part II More dit dah dah dit. Allan S. Joffe 
Lifespan Be a literal life of the party. Joseph Wailand 
Equine Equation Evaluation Playing the ponies without a computer may be 
a handicap. Raymond J. Herold 
The Secret Ballot Plug in the vote. David D. Busch 
Enhanced Word Processing Good news for Line Printer IV owners. John F. Rogers 



252 
262 

286 
290 



218 The Wave Shaper Get a load of these curves, ft B. Shreve 

258 Width Control A little less character may be better for your line printers. 

Jim Barbarello 
298 Lowercase Done Right A $59 mod for $16.13. John Burgan 

d®UJJ©A¥0®Nl 

204 Alternate Course— Part II A method of writing your first program grounded 

in outer space. Michael A. Duffin 
244 Math Derby College Bowl for furlongs. Michael A. Duffin 
272 Teacher Mod Working with a classroom of computers. Madeleine Fish 
292 The Walls of Jericho A Sunday school class blows its horn. 

Chuck and Jo McNichols 
328 Analogies With all due respect to Miller. Damon L. Spencer 

142 A Macroprocessor for Basic— Part III The first thing to remember about Basic is it 

doesn't exist. J. Alan Olmstead 
300 The Magic Trick Keyboard sleight of hand. David D. Busch 
320 TRS-80 Cartoon Capers Freeing the Al Capp in your computer. Darren DeVigili 

©[MM©© 

214 Picture This Proof that cartoons on your TRS-80 are not a looney idea. 

Dan Keen and Dave Dischert 
256 Curve Plotter It could make a draftsman jealous. 

Steven M. Zimmerman and Craig Stanley 
302 Title Graphics Billboards for your programs. Francis S. Kalinowski 



168 Software Tools for the Craftsman Renumbering, merge and append made easy. 

Maurice M. Small 
180 Smart Terminal Software Make your computer an egghead without getting egg 

on your face. Bill Everett 
278 Snapp's XBasic Loading cooperation into your Model II. Rick Lederman 
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by Wayne Green 



"Others may use their Sony Walkman 

cassette players for rock, mine is 

belting out Trail by Jury and Ruddigore. " 



"If you wish in the world to advance 
Your merits you're bound to enhance 
You must stir it and stump it 
And blow your own trumpet 
Or trust me you haven't a chance. " 

W.S. Gilbert, Ruddigore 

Back in my formative days, I was ex- 
posed to a rabid Savoyard and be- 
came a carrier of this form of mental ill- 
ness: hence the opening ditty. By the age 
of twelve I could sing the Nightmare song 
from lolanthe (this is one of the faster Gil- 
bert and Sullivan patter songs). In high 
school I joined the Savoyards club and we 
put on The Mikado and Pirates. Hello all 
you G&S fans— and to the uninitiated, 
you're missing something. 

Others may use their Sony Walkman 
cassette players for rock, mine is belting 
out Trial by Jury and Ruddigore, with a bit 
of bluegrass now and then. 

Green Tech 

Some months ago I got to stewing 
about the shortage of microcomput- 
er-oriented people. Sure, we have a hun- 
dred thousand hobbyists, but nowhere 
near the number of micro-educated peo- 
ple our growing industry really needs. 
Most schools, even though buying micros, 
have not been teaching the skills which 
are needed in our industry. 

There are over 2,000 stores selling com- 
puters at present. Estimates are that this 
will grow, as software becomes more 
available, to over 50,000 stores. We're go- 
ing to need store managers, technicians, 
salesmen, programmers, and so on just to 
fill this need. In order to move the pro- 
grams and hardware from the manufac- 
turers (or importers) to the stores we will 
need distributors or reps and these peo- 
ple, too, will have to have an understand- 
ing of micros. 

Even with massive importing of hard- 
ware from Japan there will still be a need 
for large numbers of people to run the 
smaller businesses which will build up 
around these systems. Look at the host of 
firms which are making nice livings pro- 
viding accessories and software for the 
TRS-80; when we also have IBM, DEC, DG, 
Panasonic, Casio, Sony, Sanyo, Hitachi, 



Toshiba, Sharp, Quasar, Pioneer, Sansui, 
Sord, Mitsubishi and others, we're going 
to have a big market and need a lot of 
trained people. 

I have been looking for someone who 
could start work on plans for a technical 
institute which would teach the funda- 
mentals of microcomputers. My concept 
is to have a blitz course which would last 
18 months to two years, thus keeping 
down the cost of college. The course 
would run straight through, with no vaca- 
tions, no beer bashes, no soccer teams, 
no dances.. .just hard work and plenty of it. 
It would run six days a week, about twelve 
hours a day. 

The courses would cover both the hard- 
ware and software aspects of micros, 
complete with extensive lab work. There 
would also be an array of business 
courses so that graduates would be able 
to work their way up into the management 
of businesses, rather than being primarily 
technicians or engineers. This is the area 
where most firms have failed, rather than 
in technical designs. We would teach 
such things as business law, personnel 
management, marketing, salesmanship, 
corporate financing, accounting, advertis- 
ing and promotion, writing, speed-read- 
ing, gamesmanship, taxes, quality con- 
trol, packaging, automation, and so on. 

One of the problems many students 
have when they graduate from school is 
finding work when they have had no prac- 
tical experience. This is the Catch-22 situ- 
ation. With Instant Software growing rap- 
idly, we may be able to intern students 
there part time so they will have had pro- 
fessional business experience for their re- 
sumes. They would be able to do service 
work on the myriad of computers in the In- 
stant Software lab, help with evaluation of 
submitted programs, write programs in 
their spare time for possible publication, 
work on making production masters of the 
programs, duplication, quality control, 
packaging, advertising, promotion, sales, 
and so on. With Instant Software sales 
heading toward $10 million and more, 
there will be plenty of work for hundreds 
of students. 

It will be a year or two before this plan 
will get off the ground, but a staff is start- 



ing to work out the details.l 



International Computer Students 

On a recent trip to St. Lucia, a small 
island in the Caribbean, I talked with 
the people there and found that it is pres- 
ently very difficult for students from 
smaller foreign countries to come to the 
U.S. for an education. Yet it is in these 
countries where it is needed the most, and 
where it can have the best long-range ef- 
fect, not only for the country involved, but 
for the U.S.. Russia figured that out a long 
time ago and they regularly bring in for- 
eign students for a Russian education. 
The investment would be small to bring 
students to the U.S. and put them into 
schools, particularly such as the one I en- 
vision. 

Smaller countries must have some way 
of keeping up with technology if they are 
not to fall further and further behind. And 
if the U.S. does not help these smaller 
countries, particularly in our hemisphere, 
you can bet that Russia and Cuba will. 
You can also bet that the students will get 
more than a technical and business train- 
ing. 

Having visited quite a few small coun- 
tries, meeting hams and computer people 
in these areas, I feel that this is important 
enough to warrant being considered part 
of our defense budget. Helping countries 
to grow and spreading the friendly Ameri- 
can influence is a way to save on future 
military expenses. 

In most cases we wouldn't even have to 
do more than provide the educational 
cash up front, just as we are doing for 
American students. These students 
would be delighted to do just about 
anything to earn as much of their keep as 
possible while they are in school here, and 
repay the rest of the investment when they 
return home. We might start thinking in 
terms of more schools where students 
have an opportunity to work part time to 
help pay for their education. 

By the way, I want you to know that the 
hams of St. Lucia, several of whom are al- 
ready into microcomputers, pulled out all 

Continues to page 67 
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EDUCATION %0 

by Earl R. Savage %J\S 



"A flow chart can be of significant 

help in planning a program and 

'deciphering' one someone else wrote." 



The use of a split screen can greatly 
enhance the effectiveness of many 
types of instructional programs. Suppose 
you wish to discuss or ask questions 
about a chart, diagram, quotation or math 
probiem. The normal procedure is to keep 
the figure before the student during the 
discussion. The figure is usually at the top 
of the display and a series of statements 
or questions below it. 

That works fine, except that as you con- 
tinue to write at the bottom of the display, 
the figure scrolls off "the top. You need the 
lower part of the display to scroll in- 
dependently of the upper part. This can be 
done but it is a complex maneuver on the 
Model I. Fortunately, there are several 
simpler ways to accomplish the same ef- 
fect. 

Several Solutions 

We should pause here to note the 
Model III has this function built in. It 
allows you to protect up to seven upper 
lines from scrolling just by POKEing a 
digit into a memory location. If you need 
more than seven lines space you must 
resort to programming techniques. 

The least effective solution is to use a 
subroutine to draw and re draw the figure. 
When you wish to change the bottom of 
the display, clear the screen and call the 
subroutine to re draw the figure before 
writing again at the bottom. This pro- 
cedure is slow and it requires un- 
necessary memory overhead. 

The most common solution is to simply 
write over the old information at the bot- 
tom of the display. Not only is this sloppy 
in appearance, but you must remove all 
the old writing. The presence of old and 
new writing together will only confuse the 




STATEMENT 



student. 

The simplest and most effective solu- 
tion to split screen operation is to use the 
control code CHR$(31). For example, this 
statement will clear the display from the 
beginning of line 10 to the bottom: 

PRINT@576,CHR$(31); 

Note the trailing semicolon. Failure to in- 
clude it will cause problems with the 
figure. 

This statement not only clears the last 
seven lines but leaves the cursor at print 
location 576 (beginning of line 10). With- 
out taking further action, you are ready to 
write at the top of the cleared area. 

If your program will use this procedure 
several times, place it in a subroutine for 
efficiency. In this case, make the print lo- 
cation a variable like this: 

2080 PRINT@P,CHR$(31);:RETURN 

You can now clear various portions of 
the screen as your needs change. The 
subroutine would be called by: P = 576: 
GOSUB2080. Once the value of P is estab- 
lished, you need not specify it again until 
it is to be changed. 

This technique will permit you to clear 
from any point on the display. If you need 
only to specify line beginnings, this 
change in the subroutine will save a few 
bytes of memory: 

PRINT@(L-1)-64, CHR$(31);:RETURN 

Simply specify the line number for L If 
you will remember to start counting lines 
at zero instead of one, write your subrou- 
tine this way: 

PRINT@L«64 



Fig. 1. Flow Chart Symbols 



With this technique, you can erase and 
re use the bottom portion of the display as 
many times as the program plan requires. 
In effect, you have split-screen operation 
without the hassle of machine code 
routines. 

In a true split screen, one part scrolls in- 
dependently of the other, which isn't the 



case here. When writing on the last line, 
be careful not to cause the display to 
scroll or you will lose part of the upper 
figure. Judicious use of trailing semi- 
colons on the last line will prevent scroll- 
ing. You can also simply leave the last line 
blank. 

Using Flow Charts 

It seems that a large portion of the folk 
in educational computing ignore flow- 
charting altogether, or at best view it with 
suspicion and rarely use it. 

If you fall into that category, you're 
missing out on a valuable tool. A flow 
chart can be of significant help in plan- 
ning a program and "deciphering" one 
someone else wrote. In both instances, 
you can get lost easily. 

Short, simple programs or those pro- 
gressing from start to end with few side 
trips can be kept in mind quite well. It is 
with more complex programs that flow 
charts are really needed. 

The diamond symbol (Fig. 1) is used at 
each program decision point. There is a 
question in this box and, depending on the 
answer, program action may proceed in 
one of several directions. The diamond 
box will therefore have more than one ar- 
row leading from it. 

The rectangular box symbol is used for 
most of the actions in any program. It in- 
dicates there is no question or condition 

Continues to page 67 
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Fig. 2. Charting a For. . . Next loop 
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AMAZING 

VALUES. 




FROM 



C\etatronics 

\mmmmf CORPORATION „ 542 

OFFICES 

26111 BRUSH AVENUE 

EUCLID, OHIO 44132 



VT&r 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 




TO ORDER 

CALL TOLL FREE 

1-800-321-9390 

IN OHIO, call 

(216) 289-1210 (COLLECT) 



TRS-80 is a trademark of the 
Radio Shack Division of Tandy 
Corporation. PLAIN JANE is a 
Trademark of Meta Technologies 
Corporation. 



PRICES IN EFFECT 
Sept. 1, 1981 THRU 
September 30. 1981, 

Prices, Specifications. 

and Offerings subject to change 

without notice. 



•Add S3. 00 for shipping & handling. 
• S3.00 EXTRA for C.O.D. 
'Ohio residents add b4% sales 
tax. 



1981 by Metatronics Corp. 



?0 INPUT 



"(He) seems to be under 

the illusion I threw a few 

integrated circuits into a bag 

(and) shook it up. . . " 



Joystick Not Foolproof 

In response to Dennis Kitsz's letter ex- 
pressing concern over what he calls theo- 
retical problems with my joystick con- 
struction story in the June 1981 issue, I am 
sure the readers understand the point Mr. 
Kitsz seemed to miss. The joysticks were 
intended only to be used with a suitable 
program to draw or play games and not to 
be left on line when running other pro- 
grams or when using^additional peripheral 
devices. That is why there is no off-on 
switch. The user must unplug the joystick 
interface, to disconnect the batteries, if 
not they will go dead in which case the 
unit will not operate and a "Theoretical 
Bus Contention" would not be possible. 
That is why I said in the article "practically 
foolproof. " ^Sorry Dennis, I didn't mean to 
fool YOU.) 

When a joystick program is running it is 
impossible to CLOAD at the same time. 
And lnp(1) will not open the cassette port; 
lnp(255) does that. I see no problem there. 

As far as the hex inverters are con- 
cerned, all that they do is pull some of the 
data lines down to ground potential; this 
' is also done by the keyboard and all other 
input devices, and is not harmful to the 
computer. 

In theory an AA cell is 1.5 volts, but in 
reality it provides somewhat less voltage. 
Four AA cells connected in a series and 
operating under a load, such as the joy- 
stick interface, provide only 5 volts. I have 
tested the device with several brands of 
batteries and all developed less than 5 
volts. 

Mr. Kitsz states that a possible problem 
could arise if the joystick was pushed to 
zero. Again he is in error. Had he read the 
article carefully he would have seen that 
241 is the lowest data number the circuit 
develops. 

Dennis seems to be under the illusion 
that I threw a few integrated circuits into a 
brown paper bag, shook it up, and by 
some incredible stroke of luck, as he puts 
it, came forth with a working device. 
(Witchcraft?) 

Just for the record, Dennis, this was a 
carefully thought-out and tested project. 
All the joystick units that I have built since 



the first one (21 months ago) still work per- 
fectly. Have you built even one and tested 
it? 

May I remind the readers about the 
scientist who claimed that, theoretically, 
a Bumble Bee cannot fly because its 
wings are too small for its body. Well 
folks, it does fly and so do my joysticks. 

Frank DiNunzio 
Bristol, PA 

Semiliterate 

Mr. Zeppa's letter concerning Harv Pen- 
nington and his Disk and Other Mysteries 
is a real jewel (June 1981). Literacy is 
the ability to communicate ideas and 
thoughts. Harv did a masterpiece of com- 
municating a technical and complicated 
subject in a refreshing and informative 
way. I suppose Mr. Zeppa likes dry and 
methodical technical writing. I'd bet Mr. 
Zak's work on the Z-80 would give Mr. Zep- 
pa goose bumps! I have enjoyed reading 
Pennington's writing for some time. Writ- 
ers such as Pennington and Dr. Lien have 
done a service to laymen in the microcom- 
puting field. 

I quote from Mr. Zeppa, "I would still be 
embarrassed by the semiliterate style, or 
lack thereof, of TRS-80 Disk and Other 
Mysteries." Now, does Mr. Zeppa mean 
the work was lacking semiliteracy? I'm 
confused. Surely he meant the work was 
not up to his literary standards. Why in the 
hell didn't he say that? I rest my case. 

Steve Wright 
Dayton, TX 



Praise for Pennington 

I can't believe what people are saying 
about H. C. Pennington's TRS-80 Disk and 
Other Mysteries. Just to learn about re- 
storing killed files is well worth the price 
of a hundred books. I never thought that 
so much information could be stuffed into 
a book that size. Mr. Pennington turns 
Superzap from a thing used to put in Ap- 
parat zaps to a very useful utility. I have 
read the book from cover to cover and 



have learned many useful things. Mr. Pen- 
nington explains in English how to recover 
every type of file that I could dream of ! His 
program Search has saved me many hours 
of work. I can now restore files as easily as 
I can kill them. I no longer have to remem- 
ber passwords because I can easily 
change them to whatever I want whenever 
I want. I now know how to speak binary, 
thanks to Mr. Pennington. 

Robert Smicinski 
Amsterdam, NY 

Shack Selling Bootleg 

I was surprised by the comments at- 
tributed to Mr. Ed Juge on page 58 of the 
June 1981 issue of 80 Microcomputing 
concerning protection of Radio Shack 
software. It surprised me because if 
anyone is guilty of giving away other com- 
pany's proprietary software without per- 
mission, it is surely Radio Shack. How 
often have Radio Shack dealers or com- 
puter stores given away bootleg copies of 
other companies' software to their cus- 
tomers? It would appear that Mr. Juge 
wants to apply a double standard to the 
computer community. Radio Shack soft- 
ware is sacred but that of other com- 
panies can be freely "used." 

If Radio Shack is going to abuse the 
rest of the industry by their own actions, 
then it is unreasonable for them to expect 
that they too should not share in such 
treatment. 

John Paul Kapp, president 

JK Consulting, Inc. 

Baton Rouge, LA 



Isolated Incidents 

/ would feel it was reasonable and prop- 
er for all authors to be able to protect their 
software from unauthorized copying. Mr. 
Kapp seems to assume that I am advocat- 
ing that only Radio Shack's software 
should be protected. 

With over 6,000 outlets in the United 
States, I'm sure there are several people in 
our employ who do not follow the rules. 
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1001 



333 pages 



META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 
CALL TOLL FREE 1 -800-321 3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



THINGS TO 



MARK SAWUSCH 



$7.95 



333 pages, written in simple terms, of 
"what-to-do" and "how-to-do-it". Suitable 
not only for microcomputers, but for pro- 
grammable calculators as well. Includes 
program listings, formulas, a glossary of 
computer terms and more! Definitely a 
MUST BUY! 

A PARTIAL LIST OF APPLICATIONS 

Real Estate Evaluation Test Your Typing Speed 
Finances & Investments 



Astrology 
Income Tax 
Speed Reading 
Personality Test 
Statistical Analysis 
Logic Circuit Analysis 



Borythm 
Energy Efficiency 
Antenna Design 
Letter Writing 
Recipe Index. Calculator 



Carpenter and Mechanic's Helper 
General Purpose Clock Timer 



MICROPA RA PHERNA LI A 

NEWDOS by APPARAT 

NEWDOS80 by Apparat $149.95 

NEWDOS • to 

NEWDOS 80 UPGRADE CALL 

NEWDOS • with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . $19.95 
MICROSOFT^ BASIC DECODED $29.95 



Let your TRS-80 v Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFT's unique package. "INTRODUCTION 
TO TRS-80 ASSEMBLY PROGRAMMING'' in- 
cludes ten 45-minute lessons on audio cassettes, a 
display program for each lesson providing illustra- 
tion & reinforcement, and a text book on TRS-80 
Assembly Language Programming. Includes use 
ful routines to access keyboard, video, printer and 
ROM. Requires 16K - Level II, Model I. 

REMASSEM-1 $69.95 

FOR DISK SYSTEMS $74.95 



"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

Call now and place your order for this new 
book, "THE CUSTOM TRS-80™ & OTHER 
MYSTERIES", from IJG. Inc. More than 
300 pages, with over 60 photographs, of 
projects for the hardware hobbyist. In- 
cludes schematics, PC layouts, software 
driver code. etc. for such do-it-yourself 
undertakings as high resolution graphics, 
reverse video, real-time clock'calender, 
music synthesis, ROM 'RAM additions and 
more! 

THE CUSTOM TRS-80™ $29.00 

CALL FOR AVAILABILITY 



A 



Let Your TRS-80 Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 



REMSOFT does it again' REMDISK-1 is a concise, 
capsulated supplement to RLMASSEM-1. Package 
consists of two 45-minute lessons on audio casset 
tes. and display programs providing illustration 
and reinforcement Provides specific track and 
sector I O techniques, and sequential and random 
file access methods and routines 

REMDISK-1 $29.95 



Let Your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 



by THE MICRO CLINIC 

A complete checkup for your Model I. THE 
FLOPPY DOCTOR completely checks every sec- 
tor of 35 or 40 track disk drives. Tests motor 
speed, head positioning, controller functions, 
status bits and provides complete error logging 
THE MEMORY DIAGNOSTIC checks for proper 
write read, refresh, executability and exclusivity 
of all address locations. Includes both 
diagnostics and complete instruction manual. 
SYSTEM DIAGNOSTICS $19.95 



An improved version of the SYSTEM 
DIAGNOSTICS above. Designed tor single 
or double density, 35-, 40-. 77-. or 80- 
track disk drives. Includes new and 
modified tests. Features THE FLOPPY 
DOCTOR. Version 3.0. 

SYSTEM DIAGNOSTICS-V3. . $24.95 



Single Sided. Soft-Sectored 5' 4-inch, 
{for TRS 80™) Mini-floppy 

DISKETTES 



$21 



95 

box of 10 



PLAIN JANE ™ 

These are factory fresh, absolutely first 
quality (no seconds!) mini-floppies. They are 
complete with envelopes, labels and write- 
protect tabs in a shrink-wrapped box. 

PLAIN JANE'M Diskettes $ 21.95 

10 boxes of 10 (each box)$21.50 

PLAIN JANE™ 

Introducing MTC's premium generic 
diskette. Single Sided. Soft-Sectored. 
DOUBLE-DENSITY. 5-4-inch diskettes with 
reinforcing HUB RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD! 

PLAIN JANE™ ?,</</ $25.95 

VERBATIMS PREMIUM DISKETTES 



fjfM 



DATALIFE 



Seven data-shielding improvements mean 
greater durability and longer data life. 
These individually, 100% error-free cer- 
tified diskettes feature thicker oxide 
coating, longer-lasting lubricant, improved 
liner, superior polishing and more! Meets 
or exceeds IBM, Shugart. ANSI, ECMA 
and ISO standards. 
VERBATIM DATALIFETM DISKETTES 
5 1 4 inch (box of 10) 

MD52501 $26.95 

10 boxes of 10 (each bo;)S25.95 

8-inch FLOPPIES 

Double-Density, FD34-8000 . 543.95 



'RINGS' & 
THINGS 

HUB RING KIT for 5' »" disks $10.95 

HUB RING KIT for 8" disks $12.95 

REFILLS (50 Hub Rings) $ 5.95 

CLEANING KIT for 5' 4" drives $24.95 

5 1 4-inch diskette case $3.50 

8-inch diskette case $3.95 

5 1/4-inch File Box for 
50 diskettes $24.95 

8 inch File Box for 
50 diskettes $29.95 



TRS 80 is a trademark ol the 

Radio Shack Division of Tandy 

Corporation DATALIFE is a 

trademark of VERBATIM PLAIN 

JANE.. AIDS-I AIDS-MI. CALCS III 

CALCS-IV. MERGE III are 

trademarks ol MTC 
1981 by Metatechnologies 
Corporation. Inc 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 
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Store managers are prohibited from carry- 
ing or even giving away non-Radio Shack 
software. 

This occasional breaking of the rules 
that we certainly try to control and elimi- 
nate is all the more reason why software 
protection in the industry would be good 
for everyone. 

Ed Juge, director 

Computer Merchandising 

Tandy-Radio Shack 

Fort Worth, TX 

Heavens Tibetsy, is Kapp right... or 
Juge? How about it readers, have you 
come across freebies from Shackers, oris 
Kapp exaggerating. Tell me. . . Wayne 



Fix Needs a Fix 

Oops! Someone goofed in the 80 Input 
section (April, 1981 , p. 14) in the letter enti- 
tled "Shack Statistical Fix." 

Actually the last statement in line 280 
of the Radio Shack Advanced Statistical 
Analysis (26-1705) program for the com- 
putation of Chi Square should read: CS = 
CS + (ABS(0(l,J) - EM) - CC)t2/E (l,J). 

Only two changes are necessary to the 
original program— the addition of ABS for 
the absolute value portion of the compu- 
tation, and the addition of a parenthesis 
before the subtraction sign preceding CC 
in the formula. CC is Yates' 0.5 correction 
for continuity which is to be used when 
the df = 1. 

Statistically speaking, you should get it 
printed right this next time. 

Edith Cracchiolo 

Cerritos Community College District 

Norwalk, CA 



Model III Bugs 



I recently purchased a Model III 48K 
with one disk drive after selling my Model 
I. Radio Shack did a good job of cleaning 
up many Model I problems. The hardware 
for the Model III is very impressive; the 
package is one of the best I have seen in 
the micro price range. The keyboard al- 
lows me to whiz along at 70 to 80 words 
per minute. The new disk controller allows 
a physical sector to be read or written 
much faster than on Model I. 

However, the people in the software de- 
partment merely rehashed TRSDOS 2.3 
and added a few more bugs and annoy- 
ances. I will list just a few: 

• You can't kill Basic/CMD since they 
didn't give you the password and there are 
three systems on the disk that aren't in 



the directory that are part of Basic. So as- 
suming you don't want Basic on a disk, 
tough luck (and 12 wasted grans). 

• The LOC function still does not work 
in Basic. There was one small patch to be 
made on Model I which they didn't make. 
To make it work on Model III, patch ad- 
dress 5E0CH from CD 75 60 to CD 27 5A 
and LOC(n) will now return the current rec- 
ord number for file n. 

• The concept of a logical record 
seems to be completely lost on Radio 
Shack. Basic now supports logical record 
lengths other than 256 (as did some Model 
I Basics), but every time you read or write a 
record TRSDOS reads or writes a sector, 
then does a block move. If you write one 
byte, TRSDOS has to write 256 because it 
doesn't know how to block records (TRS- 
DOS 2.3 does block records). 

The worst case is one byte logical 
records (stream I/O). Many programs like 
to think this way, for example Electric 
Pen. I wrote the following program with 
one byte logical records to test the prob- 
lem: 



10 OPEN"R",1,"TEMP".1 ' REMEMBER TO 

ANSWER 1V TO How Many Files? 
20 FIELD 1,1 AS A$ 
30 FOR N = 1 to 256 
40 LSETA$ = "A" 
50 PUT 1.N 
60 NEXT N 
70 CLOSE 



It took 160 seconds— a baud rate of 
12.8. only 12.8 baud for disk!! I'm going 
back to tape. 

• Debug will not dump below 5600H, 
cannot be entered from Basic, has a 
worse display mode than Model I, and 
overlays all the programs it used to 
debug. For the first problem, zap the 
following addressed from 5600H to 
0000H; track 0, sector 10H, relative byte 
DDH, sector 11 H, RB09H, sector 12H, RB 
73H. I have also put Debug in relocatable 
source form to solve the last problem. 
Anyone interested in doing this can write 

to me. 

• DOS overlays all the error messages 
every time it gets an error, then prints an 
obnoxious "* * ERROR xx * *". To cor- 
rect this, zap track 10H, sector 10H, RB 
2DH from 20H to 18H. You will now get a 
meaningful error message in the same 
amount of time as it took for "* * ERROR 
xx * *". 

Despite some severe software goofs, I 
am satisfied with my Model III and 
believe it to be the best purchase on the 
micro market. 

Ervan Darnell 

Star Route 

Palmyra, MO 63461 



Where's Line 83? 



I was more interested in a workable key- 
word indexing and retrieval program (April 
1981 , page 252) than in a tiff over an unap- 
preciated but cute(?) title heading 
("WHERZIT"). 

Program Listing 1 (Lines 73,75,77,79) 
calls for branches to Line81, which in turn 
calls for a branch to Line 83. What Line 
83? The following seemed to suffice for 
me and may help others who were miffed 
by the missing line(s): 

83 IF Q = 0THEN N = N + S:GOT0 63 

84 IF Q$ = "C" THEN R$<N) = " ":GOTO 64 

85 GOTO 64 

Also, Clear 11500 (Line 1) caused an OM 
message on my Level II 16K. Clear 11000 
corrected that. 

Leslie J. Schnierer 

Institute for Consciousness and Music 

New Castle, DE 



Color Computer 
Disappointment 



I read with interest Wayne Green's edi- 
torial in the July issue, which dealt in part 
with the lack of response from your read- 
ers with Color Computers. I'd like to tell 
you of my experiences with the Color 
machine. 

In late April, I bought one of the first 16K 
enhanced machines to come into this part 
of Ontario. I can say, without reservation, 
that I was really, really disappointed in the 
machine. What I didn't like: big things like 
32 characters per line, that bloody flash- 
ing (or changing cursor), poor resolution 
on the TV screen (and I was using a good 
TV set). There was this sudden disappear- 
ance of 5 + K of memory, dedicated to 
graphics (granted, it can be reclaimed). 

But most of all, it was the emphasis on 
graphics in the manual, to the chagrin of 
people like me who intend to use the ma- 
chine for engineering applications. 

I took the machine back under the 
30-day guarantee, and bought a 16K Level 
II Model I. Much to their credit, the local 
Computer Store manager advised me that 
the machine was going out of production, 
as did the salesman who sold it. I didn't 
care; the price was right ($100 more than 
16K color), it had a display, it had a cas- 
sette machine and it had the backup of all 
of the advertisers I saw in your magazine. I 
like it a lot. I'm doing engineering stuff 
related to my work on it, and I'm also 
writing a record index program for it, to 
help me in my preparations for an FM pro- 
gram. 



Continued on page 18 
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MTCAIDS- 



MODEL 



$69.95 



MODEL II . $99.95 



Introducing the latest addition to MTC's family of data management systems, AIDS-III NO 
PROGRAMMING, easy to use COMPLETE PACKAGE including demonstration application, 
documentation and MAPS III (see below) 

• Up to 20 USER DEFINED FIELDS of either numeric or character-type 

• CHARACTER type fields may be any length (total: up to 254 characters). 

• NUMERIC type fields feature automatic formatting, rounding, decimal alignment and 
validation. 

• Full feature EDITING when adding or changing records: 

ENTER FiELD (can't type m more characters than specified) 
BACKSPACE (delete last character typed) RIGHT JUSTIFY FIELD contents 

■DFLFTE- FIELD contents - SKIP FIELD (to next or previous field) 

RESTORE FIELD contents - SKIP RFCORD (to next or previous record) 

• SORTING of records is MACHINE CODE ass'Sted. 

200 RECORDS (40 characters) in about 5 SECONDS 
- ANY COMBINATION of fields ncluding numerics) with each field in ascending or 
descending order 

• SELECTION of records for Loading. Updating. Deleting, Printing and Saving is 
MACHINE CODE assisted 

Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS. 

LOAD or SAVE selected records using MULTIPLE FILES 

Example Select records representing those people who live in the state of Col 

orado. but not in the city of Denver, whose last names begin with "F" 

and whose incomes exceed $9000.00. 
Example Select records representing those sales made to XYZ COMPANY that 

exceed S25 00, between the dates 03 15 and 04 10 

MAPS III (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features 

• Full AIDS-III SELECTION capabilities. 

• Prints user-specified fields DOWN THE PAGE 

• Prints user specified fields in titled columnar REPORT FORMAT, automatically 
generating column headings, paging and (optionally) indentation 

• Can create a smg e report from MULTIPLE FILES. 

• Prints user-defined formats for CUSTOM LABELS, custom forms, etc 

BELOW ARE TESTIMONIALS from owners of AIDS systems These are absolutely authentic 
statements and are typical of the comments we receive 

"This program will do more for my business than all the other programs I 
have, combined." 

David Wareham Vice President (EDP), National Hospital and Health Care Services In 

"We have 32 different Data Base Management packages for the TRS-80. AIDS III is easily 

the best. It also makes it easier for us to step up to our Model II since the package is 

available for both computers." . _ . _ t __ .. _ 

jack Bilmski. Pres.dent. 80 M crocompu'er Services 

"Your AIDS program is far and away the finest information management system that I've 
ever seen I am currently using it to maintain a clear picture of the demographic data on ai 
the kids in our residential treatment program and it is working for me superbly " 

Frank Boehm. Director. Front Door Residential Treatment Program 



AIDS OWNERS! 

WE HAVE WHAT 

YOU'VE BEEN 

WAITING IV. . „ 

MTC CALCS-IV™, that is. 

• More Computations 

• Save Report Formats on Disk 

• Faster, and more! 

MTC CALCS-IV™ $39.95 

For Model II $59.95 

CALL FOR CALCS-III 
UPGRADE PRICING 



MTC AIDS MERGE! 



|IM 



I 



This subsystem will combine up to 14 AIDS- 
created data files into a single, large file. An op- 
tional purge capability removes duplicate entries 
while performing the merge operation (can even 
be used to eliminate duplicates in a single file). 
Machine code assisted for high-speed perfor 
mance. MERGE IIITM properly handles files sorted 
by any combination of fields, including numerics, 
with each field in ascending or descending order. 

MTCAIDS MFRGF III™ $19.95 

For Model II $29.95 



THE COMPLETE 

MTC AIDS- 
PACKAGE 



TM 



MTC AIDS CALCULATION SUBSYSTEM-MI 

MODEL I . . .$24.95 MODEL II . . .$39.95 



MTC's most popular AIDS subsystem. Use 
for report generation involving basic 
manipulation of numeric data. Features are 

• User specified page title 

• Columnar Headings 

• Optional Indentation 

• Use for accounting, inventory, financial 
and other numeric-based information 



Columnar subtotals generated when 

there is a change in a user-specified 

column. 

User-specified Columnar Totals 

Columnar values computed using con 

stants and or column values 

Balance forward calculations (Ex: Gross 

sales equals previous gross sales + sale 

amount + sales tax). 



systems. 
Compare AIDS-lll"'CALCS-lll v with any other data management package under $100 

CALCS-lir REQUIRES THE PURCHASE OF AIDS-III 



SAVE $$$$ 

Includes MTC AIDS-III™ 
CALCS-lirandMERGE-liP 

A comprehensive system 
at a competitive price! 

MODEL I . . $99.95 
MODEL II $149.95 



MORE 

PRODUCTS 
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Connecting Printers 
Without Expansion 



I am just getting into computers and 
I own a TRS-80 Level II. I would like to 
connect an Epson MX-80 printer to my 
computer, but I do not have an expan- 
sion unit thus far. I would like to know 
if there is any way of connecting it to 
the keyboard unit without the expan- 
sion unit. I have called around and 
some places say yes and some say no. 
Could you please let me know if it can 
and how to do ft, or if there is a com- 
pany that I can get in touch with. 

David D. Johnson 

23720 Mary 

Taylor, Ml 48180 

Supervisor Calls 

Do you know where I might find in- 
formation on running supervisor calls 
for my Model II 64K TRSDOS micro? 
Specifically the sort for release 2.0. 

Darnell Lepre 

2821 Lawn wood Drive 

Ocean Springs, MS 39564 

Using Scripsit 

This is in reference to the letter from 
Petralia, Neild & Webb in 80 Aid (May 
1981) that stated they have a Daisy 
Wheel II printer that has special char- 
acters (such as section and paragraph 
signs) that are not accessible through 
their Model II Scripsit program. 

There are two ways to fix this prob- 
lem: 

Boot up Scripsit disk, type in date 
and press Enter. When time question 
appears, press hold, then press Enter. 
You will be in TRSDOS. Now type the 
following and press Enter: 

PATCH SCRIPSIT A = BE4F 
F = A3A5C = COAF 

This will replace the British pound 
sign with a section sign and the micro 
sign with a paragraph sign. (Please see 
Scripsit Reference Manual, p. 52 for 
the table of 10 special characters.) 



Now the section sign can be ob- 
tained by typing CTRL 6, CTRL 9,6 and 
the paragrah sign by typing CTRL 6, 

CTRL 9,7- 

The second method is to Superzap 
for Model II. 

On the Scripsit disk on track 15 
(OFH), sector 10 (OAH) you will see 10 
bytes at location C6H that correspond 
to the 10 special characters in the 
table on p. 52 in the reference manual. 
The existing characters are 5E, 60, 7E, 
A7, BE, 9C, A3, A5, A6 and BF. 

Any of these can be changed to any 
of the codes available on the Daisy 
Wheel II as shown in the Printer 
Owner's Manual on page 22. 

In the patch overleaf, I chose to re- 
place the British pound sign and the 
micro sign with the section ad and 
paragraph signs as requested by 
Petralia, Neild & Webb. 

Sayyed A. Bashir 
Fort Worth, TX 



Phantom Records 

As you may well know, the TRS-80 
Model III differs slightly from the 
Model I for which most of the listings in 
80 Microcomputing are written. 

Having only a cassette-based Model 
III, 32K, I was delighted with the pro- 
spect of using the Sans Disk program 
(from the April issue) until disk drives 
are affordable. Much to my dismay, the 
re-packing function of the Sans Disk 
program will not execute on my Model 
III, leaving instead a numbered record 
with the first field name and equal sign 
followed by blanks! This phantom 
record is impossible to delete. At- 
tempting to delete a record appears to 
work until the select function is ex- 
ecuted. When the phantom record ap- 
pears saveing to tape will not re-pack 
the file as I hoped it would. 

I have written to the author of the 
program who is not familiar with the 
Model III. He was quite helpful pro- 
viding other fixes to Sans Disk but 
couldn't give me any help on the mal- 
functioning delete command. I have 
carefully checked and re-checked the 



listing and must assume that the sub- 
tle differences of the Model III are to 
blame. 

If anyone has corrected the program 
to run on the Model III, I'd sincerely ap- 
preciate hearing from them. I don't yet 
know enough about TRS-80 Basic or 
machine language to tackle the prob- 
lem myself. 

Colin Alexander 

120 28th St. 

San Francisco, CA 94131 

A Fix and a Question 

I've solved the problem mentioned 
by Joe Brandiner on page 24 of the 
April, 1981, 80. The answer is to scrap 
the existing initialization routine and 
use a simpler one. This routine is modi- 
fied from Dennis Kitsz's KBEEP pro- 
gram. 

ORG7DC1 ; Change to BDC1 

lor 32k. FDC1 for 48 
7DC1 21FC7D ID HL.7DFCH . ULCBAS keyboard 
driver, change to 
BD or FD 
7DC4 221640 LD (4016H), HL . Driver address 

location 
7DC7 21527F LD HL.7F52H ; ULCBAS video 

driver, change to BF 
or FF 
7DCA221E40 LD(401EH). HL 
7DCD C37200 JP 0072H , Change to C3191A 

tor new Level II 
ROM 
7DD0 : Start of ULCBAS 

main body 

Load ULCBAS in the normal man- 
ner, using the POKEs in the green 
sheet that came with your lowercase 
kit. When you get back to Ready after 
activating ULCBAS, load T-Bug or an- 
other monitor that doesn't load above 
7D00. Use the monitor to enter the rou- 
tine above, changing the addresses if 
necessary. Then punch a tape of both 
routines, with the entry point at the 
start of this patch. 

If you don't use any other routines, 
the memory size is 32192 for 16K, 
48576 for 32K or 64960 for 48K. Joe's 
printer routine should be loaded 575 
bytes lower than normal, changing the 
size accordingly. Just answer the 

Continued on page 18 
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META TECHNOLOGIES 

26111 Brush Avenue. Euclid Ohio 44132 

CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289 7500 (COLLECT) 



TAKE YOUR 

MODEL II TO 

NEW HEIGHTS 



T 




M^ 



MTC is proud to announce MTC EXTENDED 
BASIC for the Model II. by R. Ryen. Features in- 
clude "fixes" to existing BASIC, multiline func- 
tions, extending an existing sequential file. PEEK, 
POKE, greatly enhanced screen control and ex- 
panded editing capabilities. The contents of 
variables are NOT CHANGED when editing, delet- 
ing, inserting or merging lines, allowing continued 
program execution! All this and much more. 

MTC EXTENDED BASIC $ 99.95 



MICROPARAPHERNALIA 

DISKETTES (box of ten) 

5'/4" PLAIN JANE™ $21.95 

5 W PLAIN JANE™ %<./</ $25.95 

5V4" DATALIFE™ MD 525-01 . . $26.95 
8" DATALIFE™ FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80 by Apparat $149.95 

NEWDOS + to 

NEWDOS/80 UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS -80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER .... $ 7.95 



80-20=129*5 

THE ORIGINAL NEWDOS/80 

WITH MTC QUE CARD 

• SPECIAL PRICE • 
SAVE $20 $129.95 

Apparat's long-awaited successor to NEWDOS + is here! This is not an enhanced ver- 
sion of NEWDOS, but a completely new product. Simplified DOS commands can be in- 
stantly executed from BASIC, even within a program, without disturbing the resident 
code. System options, such as password protection, number and type of disk drives. 
BREAK key enable/disable and lowercase modification recognition, can be quickly and 
easily changed. Five new random-access file types allow record lengths of up to 4096 
bytes, and no FIELDing! A powerful CHAIN facility allows keyboard INPUTs to be read 
from a disk file. An improved RENUMBER facility permits groups of statements to be 
relocated within program code. Diskettes may even be designated as RUN-ONLY! 
Features all NEWDOS + utilities (SUPERZAP 3.0, etc.) and much more! One MTC 
technical staff member said having NEWDOS/80 is "better than sex" (you'll have to 
judge for yourself!). Includes 180-page instruction manual and MTC QUE card. 

NEWDOS/80 # SPECIAL # $129.95 

MTC QUE Card only $ 7.50 

CALL REGARDING OUR NEWDOS + UPGRADE PRICING 

MODEL III VERSION 

Has all the features of the Model I version plus enhancements. Allows any mix of 
single- or dual-sided 40- or 80-track disk drives. Most BASIC and many machine 
code programs written for the Model I will run without modification. Includes a 
utility for converting Model I single density to Model III double density. 

NEWDOS/80 for Model III $149.95 

CALL FOR AVAILABILITY 



Michael Shrayer's 

ELECTRIC PENCIL 
VERSION II 



Model 



for 
and Model 



An expanded version of the critically ac- 
claimed original word processing system! 
Includes all features of Version I plus many 
new extensions. Runs under most disk 
operating systems, has improved video 
text handling, loads any ASCII file for 
editing (including BASIC files), single sheet 
mode for printing on letterhead and more! 
Simple to use, features 2-key commands. 
An incredible package at an incredible 
price! 

SPECIFY MODEL I OR III 

Disk Version $79.95 

Tape Version $69.95 

CALL FOR AVAILABILITY 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

I NEWDOS + 
$fiQ 95 

yU? by Apparat 



Includes REF. RENUM. SUPERZAP. 
EDITOR/ASSEM.. DISASSEM.. DIRCHECK, and 
more! This is the original NEWDOS with all of 
Apparat's utility programs. Includes exclusive 
MTC QUE (Quick User Education) card. 



40-Track Version . 
MTC QUE Card only 



$79.95 
$ 1.50 



TRS 80 is a trademark ol the 

Radio Shack Division ol Tandy 

Corporation. DATALIFE is a 

trademark ol VERBATIM. PLAIN 

JANE. AIDS-I AIDS-III. CALCS-III. 

CALCS-IV. MERGE-III are 

trademarks ol MTC 
1981 by Metatechnologies 
Corporation, Inc. 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



1 



PRICES IN EFFECT 
Sept. 1, 1981 THRU 
September 30. 1981, 
Prices, Specifications, 
and Offerings subject to 
change without notice. 

8109 



II 



WE ACCEPT 

• VISA , 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 
•COD 



• Add $3.00 for shipping 
& handling 

• $3.00 EXTRA for C.O.D. 

• Ohio residents add 5Vi* 
sales tax. 



n 



SO INPUT 
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Super Debug 



"Supermaze" (June 1981, page 160), 
on lines 430, 550 and 560, the IF state- 
ments are apparently written in the old 
Level I format with ANDs as *s and 
ORs as + s. Change line 430 to: 

430IF (X + (E*Y) = A(100))AND D = 4) OR 
(X + (E*Y) = A(101) and D = 2) THEN 500 

and change the others in the same 
manner. 

Narciso Jaramillo III 
198 Belmont Ave. 
Rialto, CA 92376 



Missing Line 



Program Listing 1 of my article in the 
April issue (page 259) omits line 83. 
Line 83 should read: 



83 N = N + S:G0T0 63 



kind 



Several readers have been 
enough to point this out to me. 

James H. Fox 

14601 55th St. South 

Afton, MN 55001 



Memory Bugs 



I have found several misprints in my 
article "Memories are Made of This" 
published in the May edition. The cor- 
rections follow. 

Note that if memory above location 
32767 is to be tested, L in the programs 
will need to be equated to ' - 1 * (65536 
- desired location to be tested). See 
the Level II Basic Reference Manual for 
more information about this. 

One more error was found in the 
RAMTST source code listing at line 
number 320. The Op-code should have 
been 13 and not 35 as was printed. 

Robert D. Randall 
841 South 50th St. 
Lincoln, NB 68510 



1CLS:INPUT"STARTING ADDRESS (XXXXXD)-;S:INPUT"ENDING ADDRESS (XXXXXD)";E 

5 D = 255:FOR L = S TO E:POKE L,D:IF PEEK(LK>D THEN 15 ELSE NEXT L 

10 PRINT-TEST COMPLETED, NO ERRORS":STOP 

15 PRINT L;" SHOULD'VE BEEN 255, BUT IT CONTAINS";PEEK(L):STOP 

Program Listing 1. 

1 CLS:INPUT"ENTER RAM ADDRESS(XXXXXD)"; L :D = 1 

5 POKE L,0:IF PEEK(LK>0 THEN PRINT"BYTE";L;" WONT CLEAR TO ZERO, IT CONTAINS'; 

PEEK(L).STOP 

10 FORX= 1 TO 8:POKE L,D:IF PEEK(LK>D THEN 20 

15 = D.2MF D>128 THEN PRINT'TEST COMPLETED, NO ERRORS":STOP 

17 NEXTX 

20 PRINT-ERROR AT".L.- SHOULD'VE CONTAINED";D;" BUT IT CONTAINED";PEEK(L); 

"INSTEAD :STOP 



Program Listing 3 



Color Correction 



We published a scrambled program listing in the June issue 
("The Color Computer— An Inside Look, " p.202). The program 
that should have appeared in Listing 1 follows: 



:£K RQUTINI 

, NICHOLAS 



1 REM MEMORY P 

2 REM ROBERT F 

3 REM 7/23/30 

4 REM 
10 CLS 

H*=*' 0123456789 ABCDEF" 

forx=ito*:reabh< x >:next 

DATA 1,16*25674096 

PRINT" THIS PROGRAM LOOKS 

PRINT" COMPUTER'S MEMORY AND 

PRINT"THE TO! LOWING INF0RMA 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

HE*="I» H S INPUT" STARTING ADDRESS ( PREF 

ACE WITH 'H' IF IN HEX )" ;LN$ : IFLN$=" " THENCLS : G0T01 

10 

IFLEFT*(LN$>1 )0"H" THENLN^VAL< LNt .' tG'JT0120ELSELN$ = R 

IGHT$( LN$»LEN( LN$ )-l ) 

ln^o:le=leN':ln$ ):forx=itole 

L*=MID$( LN$f LE+1-X» 1 ) 
F0RZ=0T01StIFMID$( H$rZ+l»l ) = L$THEN116 

next:gotoioo 

116 LN=LN+Z*H< X ) 

117 NEXTX 

118 H£t="H" 

120 IFLN;-65535THENCLS:GOT0110 

Continued on page 19 



12 

15 

17 

20 

30 

40 

50 

60 

30 

90 

95 

10O 

110 



111 

112 
113 

114 
115 



AT YOUR" 
RETURNS 
[I on: 



HEM0RY LOCATION 
VALUE THERE 
CHR*( THERE ) 
(VALUES IN DECIMAL OR HEX)" 
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DATA RESOURCES CORP 

QUALITY SOFTWARE FOR YOUR TRS-80® DISK SYSTEM 
TO ORDER CALL TOLL FREE 800-525-7958 



BIONIC BASIC 
The BIO NIC BASIC routines 'mplement a number of 
useful commands and functions that are not available 
in regular BASIC. BIONIC BASIC appends these 
routines to the BASIC/CMD file so that they load 
automatically every time Disk BASIC is entered. The 
BIONIC BASIC modu.es will not require reserved 
memory, they are resident in memory whenever Disk 
BASIC is being used 

RESTORE data statements for reuse indivdually 
MOVE a block of data in memory from place to place 
SHIFT a string to all upper or lower case. 
FLASH will turn a flashing cursor ON or OFF 
REPEAT function of the keyboard ON or OFF. 
LOAD a BASIC program without losing variables. 
GOSUB statements execute at computed lines 
SEARCH a program for occurrences of a string. 
LINES of a program can be moved to new locations. 
COMPRESS spaces, remarks from a program. 
SORT any array in ascending or descending order 
REDIMension any array or list of arrays. 
LOOKUP occurrences within arrays of special data. 

STARTER PACKAGE $49.95 

COMPLETE BIONIC BASIC $74.95 



NEWDOS/80 Version 2.0 

for MODEL I and III $149.00 

The hottest Disk Operating System is now available 
in its latest version. This is the ONE from Apparat. 
Inc.. the people whose systems have made the TRS- 
80 a reliable computer. This system includes: 

• Double Density support on the Model I 

• New Superzap with expanded capabilities 

• Diskette compatibility betweeen Model I and III 

• Repeat Key and Repeat DOS'Command'functions 

• Single step execution for BASIC programs 

• Enhanced Chaining with many new features 

• Merging BASIC program overlays while running 

• Disassembler dump of source code to disk files 

• The famous NEWDOS/80 Utilities and Superzap 

• New manual with examples and user explanations 



MODEL I DOUBLE DENSITY PACKAGE 

NEWDOS/80 Version 2.0 and the LNDOUBLER 

Everything you need to convex your T RS-80 Model I 
to run double density. Complete with software, hard- 
ware, and instructions. — installs in minutes with NO 
SOLDERING, WIRING OR CUTTING ...$229.95 
LNDOUBLER Alone $1 49.95 



MTC AIDS - III 

The best of Meta Technologies family of data man- 
agement systems. This easy to use system alows 
even a novice TRS-80 user to c r eate data files 
custom configured for many applications, from lists 
for mailing and cataloging to financial reporting and 
time scheduling. Easy to customize without pro- 
gramming, it is complete with features for adding, 
deleting, sorting, updating and printing. The flexibil- 
ity will make it one of your most useful software 
purchases Included FREE is the MTC Aids Print Sub- 
system (MAPS), a powerful report generator. 

MODEL I $69.95 

MODEL II $99.95 



MTC MERGE-III 

Combines up to 1 4 AIDS data files into a single file. 
Duplicates may optionally be purged, and sorted 
order of records is maintained. Machine code for 
speed makes this useful if large data files are to be 
created from smaller ones. 

Model I $19.95 

Model II $29.95 

MTC CALCS III 

Handles numeric calculation of data contained in 
AIDS files. Ideal for reports on financial applications. 
Data from more than one file may be analyzed 

Model I $24.95 

Model II $39.95 



THE MICROCLINIC DIAGNOSTICS 

Compute 1- "professionals" have long known 
the importance of regular use of diagnostic 
software in verifying the integrity of com- 
puter hardware. The TRS-80is noexception, 
good diagnostics are a must in any situation 
where valuable data files a r e maintained 
The MICRO CLINIC offers two programs 
designed to thoroughly check out the two 
most trouble prone section of the TRS-80 - 
the disk system (controller and drives) and 
the memory arrays 

The FLOPPY DISK DIAGNOSTIC ,s the 
most complete diagnostic program available 
for the TRS-80 disk system, and could be 
the most important program in your soft- 
ware library. This prog r am provides a posi- 
tive means for thoroughly checking out the 
disk controller circuits and disk drives. In- 
cluded is a test of the accuracy of the drive 
motor speed allowing adjustment. From 
one to four drives can be tested at the same 
time, 35, 40, 77 or 80 tracks, single or double 
density with the LNDOUBLER orPERCOM 
DOUBLER. 

The MEMORY DIAGNOSTIC is broken down 
into two basic tests, the conventional write/ 
read test and the M-1 Worm test. The 
WRITE/READ TEST portion of the diag- 
nostic perfo r ms a comprehensive check on 
the ability of each memory location to store 
and retain data. The M-1 WORM TEST is 
the most critical m r egard to memory timing 
and "worms" its way through memory. 

MODEL I $24.95 

MODEL III $29.95 



DATA RESOURCES SPECIAL AIDS - III SUPER SYSTEM 

AIDS - III + CALCS - III + MERGE - III 

SAVE * * buy all three at one low price 

Model I $99.95 Model II $1 49.95 



. 



DISKETTES 

Soft-Sectored 5V*" 40 Track Double density 
Replacement GUARANTEED for 1 year 

We will replace at no charge AN V diskette returned to us 

VERBATIM DATA LIFE $ 23.95 

GENERIC in a plastic box $21.95 

Box of 1 00 $200.00 



THE MICRO ACCOUNTING SYSTEM 

This is the 'inest accounting system avail- 
able for your TRS-80. Ideal for small business, 
this Integrated General Ledger. Accounts 
Receiveable. Payable System includes a 
Checkbook manager. 

We offer something no other general 
business package can give you -a money 
back guarantee. If you are not totally 
satisfied return the package within 60 
days and receive a full refund. Write for 
sample reports and full descriptions 
MAS/80 complete $489.00 



FLIPSORT 

The DISKETTE FILE BOX 

that stores more than 50 diskettes 

dust free and protected 

51/4 $19.95 8 $24.95 

purchase a 5 1 A" FLIPSORT with 50 GENERIC disks 
SPECIAL DISCOUNT PRICE $1 1 9-95 




MASTERCARD 

AND VISA 

WELCOME 
We also accept 

• COD • CHECKS 

• MONEY ORDERS 

^54C 



ALL SOFTWARE SUPPLIED ON DISKETTE. ORDERS IN U.SA. 
SHIPPED U.P.S. FREE. Colorado residents add 6 1 /2% sales tax. 

ATTN : DEALERS - We offer attractive pricing and term to 
small computer retailers. Write for information on our 
dealer program and discounts in small quantities. 



j 



: 



Data Resources Corp. 



Business 4 Professional Center 

8000 East Quincy Ave. 

Denver. Colorado 80237 (303) 773-6665 



AIDS 



'1981 DATA RESOURCES CORP 
TRS-80' IS A TRADEMARK OF TANDY CORP. 
Prices In effect Sept. 1. 1981 to Sept 30, '98' a^d subject to changes 
CALCS III." MERGE III ' ARE TRADEMARKS OF METATECHNOL.OGIES 






■See Usf ol Advertisers on page 354 
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Continued from page 12. 

If you could take a survey, I think you 
might find that the majority of TRS-80Cs 
in the field are being used for game play- 
ing, probably with ROM-paks, and for this, 
they are very fast and very well adapted. 
Maybe that's why you're not getting feed- 
back from the readers. 

Bruce Dingwall 

Mississauga, Ontario 

Canada 

Music Made Easy 

The article "The Color Computer— An 
Inside Look" was certainly a boon to all 
Color Computer owners who, as I am, are 
going through the "almost no software" 
syndrome at this early stage in the ma- 
chine's life. 

Those few CC owners with whom I have 
talked await this sort of article, because it 
gives them something with which to play. 
Needless to say, Messrs. Martel and 
Nicholas gave many of us hours of enjoy- 
ment. 

In particular, the "Music-Music-Music" 
program was great. However, it does not 
address the problem of the programmer 
who wants music within another program. 
Considering the overhead required to run 



"Music-Music-Music," it doesn't make 
sense to include it as a part of another 
program. 

The answer is to try something else— a 
program that converts the notation in 
"Music-Music-Music" to sound com- 
mands, and then the writing of a simple 
subroutine to play the music. 

To make this all work, simply load 
"Music-Music-Music" and enter the notes 
as instructed. Then, save the notes to tape 
using the program. 

The next step is to add listing 1: 

FOR X = 1 TO N 
PRINT#-2, N(P(X)),D<X) 
NEXT 

You can assign any line numbers you 
want above 5030. Next, load the notes 
back into the Color Computer using the 
"Music-Music-Music" program. Enter GO- 
TOnnnn, where nnnn is the line number of 
the short program in listing 1. 

Your printer will then print out two col- 
umns of numbers, the first being the note 
number, the second the duration of the 
note. Finally, to make the notes run in a 
program, use the format below and you 
will have music imbedded in your pro- 
gram. The example given might be for mu- 
sic in a horse race program. Run it and 
you'll see what I mean. 



10 FOR X = 1 TO 750 

20 READ A.B 

30 IF A = -1 THEN END 

40 IF A = THEN FOR PU = 1 TO B" 15:NEXT: 

GOSUB200 .GOTO60 
50 SOUND A,B 
60 NEXT 

200 CLS:RETURN 
500 DATA 170,4,170,8,170,8,147,8,159,4,170,4,176,6, 

170,2,176,4,193,4,185,8,0,8, - 1,0 

Line 30 tests for the end of the music. 
Your last item pair in the data list should 
be " - 1 ,0". Line 40 takes care of the rests. 
Using Sound does not allow use of rests, 
as does Extended Color Basic's Play. 

Larwence C. Falk 
Prospect, KY 

T-Bug for Model III 

I have a TRS-80 Model III and have 
wanted to program it in machine lan- 
guage. Radio Shack does not supply any 
software to aid me in doing this— until 
now that is. I have come up with patches 
for Radio Shack's T-Bug and Editor/As- 
sembler so that they will work on the 
Model 1 1 1 . 1 was aided by a friend who has a 
Model I TRS-80 and supplied me with a 
copy of ZBug. 

T-Bug can be used to patch itself. As it 
comes cassette I/O does not work. The fol- 



®AIO 






Continued from page 14. 

memory size question with the proper 
value and load the new driver. 

While we're on the subject, does 
anyone have a schematic of the 
26-1 104 lowercase modification? I long 
ago gave up trying to trace the new wir- 
ing. 

Ed Ellers 

3000 Beaumont Rd. 

Louisville, KY 40205 



Sound Program 



I own a 16K Level II TRS-80, and I'm 
tired of seeing sound programs for as- 
sembly language users. Non-assembly 
language and non-disk users can have 
sound too! Try this program: 

10 CLS : PRINT "PUSH ANY KEY FOR SOUND" 
201$= INKEYS : IF IS = "" THEN 20 ELSE 30 
30 FOR T = 1 TO 120 : OUT 255,0 : OUT 255,1 
40 OUT 255,3 : OUT 255,4 : NEXT T : GOTO 10 



I use this sound as a subroutine in 
many of my games. 

I'm also tired of my friends who push 
the Break key and list my programs. So 
I hit them with this surprise: 

10 POKE 16396, 23 

The above line can be placed any- 
where in a program. If you want your 
Break back try: 

10 POKE 16396, 22. 

Randy Long 

4791 Torida Way 

Yorba Linda, CA 92686 

BBouncce Aidde 

Regarding keyboard bounce there is 
a permanent cure without using soft- 
ware such as KBFIX. You must care- 
fully remove all of the keys from their 
electrical contacts on the keyboard (I 
used paper clips bent into the shape of 



hooks). Then spray each contact with a 
small amount of WD-40. This method 
appears to be effective and safe. 

James E. Richey, M.D. 
Johnstown, PA 



POKE 16445 

Both in Benjamin Junge's letter in 
"80 inputs" and in Ian R. Sinclair's Into 
the 80's there is mention of POKEing 
16445 with eight to get 32CPL and to 
get 64CPL When I tried to incorporate 
that idea into titles using "PRINT @" 
statements instead of "PRINT TAB 
(X)" as Mr. Sinclair does, I get an 
automatic 64CPL during execution of a 
loop. Why? 

James L. Palmer 
Rt. 1 Box 153 

Bybee, TN 37713 
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lowing patches will fix this problem. 



location 


previous hex 


new hex 


47C5 


2100FB18 


CD F801C9 


47CA 


21 


C9 


4643 


CD CA 47 CD 62 


CD 9602 00 00 




47 FE A5 20 F9 


00 00 00 00 00 


4782 


C5 06 08 CD 


CD 35 02 C9 


46EF 


CD8C47 


00 00 00 


46F8 


CD 8C 47 


CD 8702 


478C 


D9 OE 08 57 


CD 64 02 C9 



The patches are basically calls to the 
ROM routines. The new T-Bug can be 
punched out with the P command. Just 



enter P 4380 4824 43AO T-Bug. Low or high 
cassette baud rate can be selected by first 
changing location 4211 to zero or one as 
documented in theTRS-80 Model III manu- 
al. 

The Editor/Assembler can be patched 
by T-Bug relocated to high memory or by 
first moving the Editor/Assembler to high 
memory. I took the second approach. Set 
memory size to 25856 (6500H). Key a block 
move program using T-Bug at location 
32590 (7F50H). 



SO DEBUg 



Continued from page 76. 

200 CLS 

210 PRINT" AFTER READING WHAT IS DIS- 

220 PRINT" PLAYED ON THE SCREEN* PRESS 
230 PRINT" THE ' i' KEY TO SCROLL FORWARD" 
232 PRINT"0R THE ' -' KEY TO SCROLL BACK- 
234 PRINT" WARDS." 

'H' TO CHANGE TO HEX 



236 


PRINT" PRE3 




TCH TO OECIMA 


240 


PRINT 


242 


PRINT" TO C 




AR' ." 


250 


PRINTB483> "PP: 


260 


G0SUB2O00 



OR 'B' TO SWI 



iNGE START ADDRESS,." : PRINT "PRESS 'CLE 



TO PROCEED."; 



1000 CLS 

1010 P=LN 

1012 FORP1=OT01 

1014 rORP2-=vTGlS 

1016 G=P+16*PlfP2 

1018 IFQ : -65535 THEN 10^0 

1019 pRiNrsr- , i*i6^r , 2*32»"" ; :ifh£*="h h then.j=q:gosub3oooel 
seprin fa; 

1021 PRINTBPl*16;7iP2*32>""; 

1022 X=PEEK(Q) 

1024 IFHE$= H H"THENJ=X:GOSUB3050ELSEPRINTX; 

1029 PRINT8Pl*16ri2fP2*32>"" ', 

1030 IFX>32THENPRINTCHR3H X )i 
1050 NEXTP2»P1 

1090 GOSUB2000:CLS 

1100 IFIN*=";"THENP--PT32:GQT01150 

1105 IFIN$="H"0RIN$-"B" THEN1150 

1120 IFIN$="-"THENP=P-32ELSECLS: GOTO 110 

1150 IFP<0 THEN P=0 

1160 IFP>65535THENP=65525 

1170 GOT01012 

1200 END 

2000 REM PAUSE ROUTINE 

2010 IN$=" U 

2020 IN$=INKEY$:iFIN$=""THEN2020 

2022 IFIN$="H"THENHE$="H" tRETURN 

2023 IFIN$="D"THENHE$="D" tRETURN 
2025 IFASC( IN$ )=12 THENCLS tGOTOl 10 

2030 IFIN$=";"ORIN$="-"THENRETURNELSE2010 
3000 A=INT( J/4096) 
3010 GOSUB3500 
3020 J=J-4096*A 

Continued on page 20 



Block move program 

01 46 1A LD BC, 1A46 

1 1 00 65 LD DE. 6500 

21 00 43 LD HL, 4300 

ED BO LD IR 

C3 19 1A JP1A19 



; length of program 

; to address 

; from address 

; move 

; jump to Basic ready 



Load the Editor/Assembler but don't ex- 
ecute it. Instead enter /32590. This will 
move the editor/assembler from 4300H to 
6500H. Load T-Bug and enter the follow- 
ing patches: 

location previous hex new hex 



667A 


40 


60 


6537 


E5 21 00 FB 


CDF801C9 


653D 


E5 


C9 


655D 


C5 E5 06 08 


CD 35 02 C9 


6589 


E5 C5 D5 F5 


CD 64 02 C9 


65A9 


CD 3D 43 06 


CD 87 02 C9 


65B8 


E5 CD 3D 43 


CD 96 02 C9 


6818 


05 46 


49 00 keyboard I/O 


6859 


05 46 


2B00 keyboard I/O 


6959 


0A46 


3300 Display I/O 


6555 


OF 46 


3B00 Printer I/O 


6928 




C3 8D 43 


658D 




FE 43 2006 
"C" Command 
Patches 

CD 42 30 C3 
DA 46 21 A2 
47 C3 2B 47 



All the locations are for the relocated 
program. If you are using a monitor rou- 
tine in high memory only the MSB changes. 
Location 6500H is 4300H, and so on. If the 
program were now punched it would be re- 
loaded back into low memory. At location 
7F50 key in the following block move pro- 
gram: 



01 46 1A 


LD BC, 1A46 


; length 


11 00 43 


DE, 4300 


; to address 


21 00 65 


HL, 6500 


; from address 


ED BO 


LOIR 




C3 8A46 


JP468A 


; Jump to Editor/ 
Assembler 



Now punch the assembler using the 
T-Bug command P 6500 7F5F 7F50 
EDTASM. The patches basically replace 
all of the I/O routines with the ROM rou- 
tines. Since I don't have a printer the print- 
er patch is untested. I added one new 
command to the assembler. When "C" En- 
ter is typed the cassette baud rate prompt 
routine is called. Your program's source 
can be loaded or written at low or high 
cassette rates. However, low baud rate 
must be used for the object code (systems 
tape) produced by the assembler. 

One additional note. ZBug (January, 
1981, 80 Microcomputing) is a great pro- 
gram. For Model III users I would suggest 
one change. On listing 1, line 70 change 
the instruction from "SUB 30" to "SUB 
3C." The Model III has ROM routines that 
extend above 3000H. 

Harold Zbiegien 
Maple Hts., OH 
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SO INPUT 
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DeBug for Fast Clock 

Thanks to Allan J. Domuret for his 
modifications to run DOS at a higher CPU 
speed ("Fast Clock DOS," April, 1981). As 
a user of NEWDOS I was quite pleased 
with the workings of the given patches. 

Unfortunately Allan used a RAM area 
for his second SYSO/SYS patch that inter- 
feres with Debug usage. Since I am using 
Debug quite a lot, I had to find another 
hole in the operating system where I could 
place his patch. And— Eureka— I found 
one. 

There is a seven-byte wide hole in disk 
memory starting at 4479H that exactly fits 
the patch. Using it I now have both the fast 
clock speed (by the way 3.54 MHz) and 
Debug in my system. 

Make the following changes to 
SYSO/SYS (NEWDOS only): 

0008A9— change to (pad C3 A2 46 E3 E3 E3E3 3A... 

000952— change C3 E3 45 to read C3 79 44 

001 759— change 02 02 00 4E to read 01 09 79 44 

E3 E3 E3 E3 C3 E3 45 02 02 00 4E 

011403— change from 5D to 68 

Manfred Peters 
^ D 55110 Alsdorf 

West Germany 



Shift Lock 



Martin Hambel's "Shift Lock" utility in 
the May issue was just what I needed. I 
had previously installed the lowercase 
mod by Steven Wexler (Kilobaud Micro- 
computing, April, 1980) and after correct- 
ing a typo (the instruction at 7FFAH 
should be D2 7D 04) it worked fine, except 
for the usual problem— shift for lower- 
case—which is happily corrected by Shift 
Lock. 

The lowercase mod requires a short 
software patch for the video driver which I 
merged with Shift Lock's keyboard driver 
patch. The only bug I found in Shift Lock 
was the use of 1 AH as the control charac- 
ter. In the new Level II ROMs, shift— down 
arrow (1AH) is used to access control 
codes from the keyboard and will not work 
with this program. I substituted shift— up 
arrow (1 BH) at location 7FE6 and have had 
no problems. 

Burt Cohen 
New York, NY 

Satisfied Prosoft User 

It is a cruel fact of life that there must be 
weeks to months of lead time in the peri- 
odical publishing business and some- 
times a grievous injustice is done to an un- 
witting victim. A classic example of this 



was vividly visited on Prosoft's "Sub- 
edit/Subscript" by Chuck Teslar ("Word 
Processors Compared," June 1981) when 
in the interim along came his improved full 
screen editor version christened "New- 
script." Newscript has it all in spades 
plus, and please take note, purchaser sup- 
port! 

After attempts to obtain technical as- 
sistance with myriad programs I very ten- 
tatively called Mr. Teslar at home as his 
documentation suggested. His enthusias- 
tic response to my novice queries were 
not only courteous and patient, but he sin- 
cerely requested that I call him at any time 
and he wished more of his purchasers 
would! He explained that if he were ever 
not available to ask his 17-year-old son 
Glenn or his wife Debbie, both program- 
mers of impressive credentials. (Appar- 
ently nobody ever told Glenn that pro- 
gramming was difficult.) 

It is indeed fortunate for the micro 
word-processing public that Mr. Teslar 
abandoned along career with I BM to favor 
us with a thoroughly professional and pol- 
ished word processing system. One that 
totally supports all enhancements that all 
the major line/daisywheel printers have to 
offer. It produces a product that is camera 
ready of type-set quality and will compare 
with results achieved by systems costing 
as much as eight times my investment in a 
Model l/Centronics-737! It came as little 
surprise to me that the program was writ- 
ten full Model III compatible when I added 
that machine at my place of business! 

I hope for an updated review now which 
will probably appear just as Prosoft and 
Chuck Teslar come out with an updated 
50,000 word vocabulary "Newscript"! 

A large bouquet of red roses are in order 
for the family that cares in this society of 
"sell 'em and forget 'em"!! 

Anthony Tout is 
Clewiston, FL 



Spanky and the Gang 

Your article on the computerized com- 
plaint letter in the May issue had interest- 
ing prospects so here I go. 

My name is Spanky and I seem to be 
having trouble with the program listings in 
your magazine. Yours is not the only one 
to be sure, but it is entitled "The magazine 
for TRS-80 users," which is what I am (ac- 
tually not a user, just a TRS-80). The typos 
are bad enough, but when it comes to the 
use of incorrect variables and DIM state- 
ments it requires hours of debugging by 
my owner before I can run the program 
correctly. In addition to the out-and-out er- 
rors, the programs are poorly written, re- 
quiring me to go through lines and lines of 
If statements where a simple looping se- 
quence would do the job. Of course I real- 
ize that the listings are not written by pro- 
fessionals, but I would think small modifi- 
cations by your staff would be beneficial 
to your readers. 

I am not the only one experiencing this 
difficulty. My friends Snoopy, Lucy, Apple- 
sauce and Big Bird are also having the 
same problems. 

Your magazine is good, but let's just 
have a little quality assurance in the pro- 
grams. 

Spanky 
Virginia Beach, VA 



Authors, Take Note 



80 Microcomputing authors are 
asked to mail in corrections with their 
author's proofs, not before. Galley 
proofs are mailed of all accepted 
manuscripts. 
Thank You.— The Editors. 
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Continued from page 
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3030 


A=INT( J/2 


56) 


:lkj 


SUB3500 




3040 


J=J-256*A 










3050 


A*INT< J/1 


6 ): 


GGE 


UB3500 




3060 


A=J -16*A: 


G03 


UB3500 




30 70 


RETURN 










350 


PRINTHI0$ 


;h$ 


» A r 


i»i )?:return 
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THE ALPHA 
I/O SYSTEM 

a complete failure? 

THE INSIDE STORY 



if happened 3 years ago. when our President made a decision At me lime we specialised 
in custom analog and digital circuit design Trie decision was to attempt to develop a line of 
standard interlace hardware lor the emerging microcomputers At the lime [1977] we had to 
decide which o> the new machines could become the industry standard ol me low cos! 
micros 

Despite a tew aggravating Out minor deficiencies me trs-80 seemed tonave the most 
chance ol success and ii had the best price/performance ratio Also with some imagination 
their large sales organization could Decome the Urges! service network in the world a reassur 
■ng throught lor the many novices in this new lieid 

11 became dear that me trs 80 could be used iwith our then hypothetical system) to solve 
problems m many fields wnere computers were not yet used mostly because ot their high cost 

The IDEA was simple 1 ALPHA PRODUCT would supply the missing link between the TR5 
80 and me outside MUM imoie about this outside world later) 

Early Survival 

DANGER' if Radio Shad entered the same mar«ei we probably would not have survived bui 
Ihe expectation was that they would be too busy developing their basic line (drives, printers 
modem etc i Thanks to our more specialised products we would not be competing with them 
BAD START 1 We Began with a failure Our lust prodi-ct was supposed to be a simple low cost 
general purpose device it would allow the TRS-80 to accept inputs omer than me keyboard 
Many kinds of external devices ime outside world mentioned before DM photoce s 
sensors thermostats switches, contacts etc could be connected easily In addition there 
were Iwo relays to control ion or off) external loads such as motors lamps appliances 
heaters etc etc in otner words it would allow me computer to interact or Interlace with 
external devices We caned it the INTERFACER 2 What a mistake 1 It sounded too much like 
expansion interlace Many enthusiastic TRS-80 users called thinking that our INTER 
FACER 2 was a low cost Expansion interlace (at $85 that would nave been a real bargain 1 . 
We wanted <o change the contusing name That meant reprinting the manual changing the ad 
scrapping the flyers discarding the silk screened cases Well INTERFACER 2 it would 
stay 

TROUBLE 1 We also lound that me maiority ol TRS-80 users were AfRAiDol the hardware They 
could be very comfortable with fancy programming but thought you nao to be a computer 
specialist or technically inclined to put me INTERFACER 2 to work in truth some iMACiNA 
TiON and a SCREWORiVER is an you really need Anyone awe to wire a switch could use this 
device 

WORSE! Tie'e was also me fear of plugging a foreign device into me precious computer 
This notion has an but disappeared as there are now so many quality products designed tor Ihe 
TRS 80 that plugging m a non Radio Shack device has become common 

Our ad m Creative Computing (80 Microcomputing did not yei exist i hardly paid lor itsei' 







We had a decision to make Were we wrong or |usl too eany 7 Our lust INTERFACER 2 tea 
to someone who wanted to and succeeded in controlling his tancy model railroad wii- 
TRS 80 interesting bul what made us slick with me concept was lhal some ol our tNTth 
FACERS Degan finding use m applications with fascinating possibilities Space is lacking | 
describe them but me most exciting was me success'ui use of tne system >n assisting a hand, 
capped young boy We were pleased to hear ol such a meanmgiui application 



Today 



Three years later as you can see in our ads The INTERFACES I is alive and well Ihe 
price went up a bit and despite the introduction ot the more powerful INTERFACER 80 me 
sales have been steady 

Then came the least understood product' the ANAIOG 80 This $139 nicely designed 
module is an Analog to Digital converter with 8 input channels Used with your IRS 80 it 
provides a powerful data acquisition system 1ms iargon simply means that you m 
monitor measure and record 8 indepenoant varying volUges very lew people realised 
power Such a system would have cost over ten thousand do»ars iusi a lew years ago 

The possibilities in soentilic and engineering environments are endless H 
could replace chart recorders digital data recorders programmable calculators data analyses 
jnd many other specialised and expensive pieces of equipment Furthermore, up to 8 ANALOG 
80 s could be used simultaneously tor a total ol 64 channels ot analog input' They simply plug 
into Ihe IRS 80 using our X series ol bus extenders (HPANDA8US) 



The idea was simple. We would supply the 
missing link between the TRS-80 and the 
"outside world" 



Our next product was to be a second generation. input'Oulpul interlace with more 
flexibility than the INTERFACER 2 Careful design and refinement yielded the INTERFACER 80 
the most powerful real world interlace on the market today it has 8 inputs each optically 
isolated and 8 outputs each with a relay contact The INTERFACER 80 is fully compatible with 
our ANALOG 80 allowing these to be used logether m order to create systems mat control 
external devices Based on sensed input under control ol the TRS-80 
A FAILURE! in spite ol our extensive advertising very lew are aware ol me existence ol the 
powerful ALPHA I/O SYSTEM 

The Facts Are: 

Ihe ALPHA SYSTEM/TRS-80 combination torms an incredibly versatile and powerful too* tor 

acquisn ion / processing /control 

in spite of its moderate cost the system « sophisticated and reliable 

Ihe entire system can be easily programmed m BASIC using iNPiXiand Oul x v commands 

The modular approach and our ExPANDABuS allow lor instant expansion as requirements 

demand 

The following pages contain more information about me devices mentioned her? We invite 
you to can or wnle lo discuss you' particular application 

Device descriptions; NEXT PAGE 



TIM EDATE 80 



Neat Compact Design 
3 Years Battery Life 



Slips Inside E/ 1 
(Y Option Shown) 



Real Time Without 
Expansion Interface 



•Complete, self contained true 'eai time ciock /calendar TIMEDATE 80 continues to keep 

accurate IMM and date when me computer is turned oft or experiences a power failure 

•TIMEDATE 80 only needs to be set once and it s two replaceable AAA batteries (not 

included i «eep TiMEDATE 80 running in excess ol 3 years Costly Ni Cad batteries and 

charging circuits are eliminated 

•The instant power is applied lo the TRS-80 TiMEDATE 80 provides MO/DATE/YR OAY 

of WEEK HR MIN SEC and AM'PM mlormalion with quarts accuracy 

• TIMEDATE 10 epiaces the computer s internal clock Extremely usetu' lor automatic 

operation of remote systems with no operator m attendance it me power tans and Ihen s 



WHY LOSE PRECIOUS TIME ? 

restored only TiMEDATE 80 will update the system with current TiME and DATE information 
an impossibility with Ihe computer s internal clock 

•TIMEDATE M H quarts crystal based with INTELLIGENT CALENDAR including provisions 
lor leap year' TiME display may be by '2 hour AM/PM or by 24 hour military and E'uopean 
tormal 

•TIMEOATE 80 plugs directly into the rear of the TRS 80 keyboard and gives me TIMES 
lunction even without an Expansion interlace For those with a disk system it plugs into Ihe 
letl side panei of the Expansion interface An optional v connector can provide for further 
expansion 

•TIMEDATE BO'S sman sise keeps the computer table uncluttered it you nave an Expansion 
interlace TiMEDATE 80 literally DISAPPEARS by slipping into the empty space >n the 
bottom ol Ihe interlace 

•Two sets ol software, on cassette come with TiMEDATE 80— HMESET and TiMES 
TiMESET is a step by step set of simple instructions tor setting TIMEDATE 80 TIMES 
is a set ot poke routines which patch DOS and Level II TIMES to read TiMEDATE 80 and is 
easily incorporated into any user software TIMES win always print me time and dale 
when LISTING a program— great 'or keeping track ol revisions' 

•Omer valuable uses tor TIMEDATE 80 are accurate date and time information tor business 
reports like payroll records financial reports etc or to various I'O devices requiring 24 
hour Clock input such as laboratory instrumentation and lo communication systems 
needing Log in 'Log Out data (bulletin boards i 

•TIMEDATE 80. 'uiiy assembled and tested 90 day warranty complete with instructions 
ano software on cassette $95 00 v option add $12 00 



NEW: Computer to Computer ordering (212) 441-3755 (24 hr. data line) 

ALPHA Products 

85-71 79th Street. Woodhaven. NY 11421 



CALL 



(212) 296 5916 




FOR FAST 
SERVICE 



AuD S? SU P(R OROFR FOR SM.PP'NG AND MANDUNC. 

A.. ORDERS SMiPPfD HRSI ClASS MA 

WF ACCEPT VISA MASrf.RCH»RGt CMtCAS MO 

COU ADDS? OOCITAA 

OUANTltv O'SCOUNTSAVAii A8I F ^210 

N r RF$i' ■■. I All -' 



^REVIEWS 

Edited by Michael E. Nadeai 



"i 



'It seemed as if the author 
was sitting next to me 
as I read Inside Basic Games." 



Dooks 



..ftiiiy-T] 




BU53iZE3 . 



Inside Basic Games 
Richard Mateosiafi 
SYBEX, Inc. 
Berkeley, CA 
Software, 325 pp. 
$13.95 

'by Bonnie Welsh 



Inside Basic Games teaches interactive 
Basic programming through the use of 
games. The author strives for and suc- 
ceeds in writing "not just a collection of 
games, but an educational book that will 
help the reader learn to design Basic pro- 
grams." This book does, in fact, provide 
many examples of program design and 
development. 

Richard Mateosian is to be commended 
on the clear and concise style in which he 
presents his material. Each chapter be- 
.; gins with the objective to be tackled, 
along with the steps of progression to be 
used in attaining this goal. If, perchance, 
you have forgotten what you were sup- 
posed to learn, he provides you with a 
summary at the end of each chapter. 

Free Basic 

One of his most interesting and useful 
concepts is the use of Free Basic, also 
known as GOTO-less programming. Its 
principal goal is to free the programmer 
from having to think about line numbers, 
although it does support structural pro- 
gram techniques. Actually, Free Basic is a 
form of pseudocode, but is much more 
precise in that it uses Basic instruction 
rather than verbal instruction. Once you 
have constructed your program using 
Free Basic, Mateosian explains the tech- 
niques used in translating it into Basic. 

Each game is described per se and then 



in terms of their Basic and Free Basic in- 
structions. The effects and advantages of 
certain routines in regard to their "canni- 
balization" and "generalization" abilities 
are discussed. Your main objective is to 
learn how to write routines that can easily 
be integrated into other programs. 

General programming techniques such 
as the top-down development theory are 
explained, along with more specific tech- 
niques like space saving and file mainte- 
nance functions for a certain program. 



The games are written in Microsoft Ba- 
sic and can run on the TRS-80, Apple II, 
and PET/CBM. He identifies the small 
changes in each program that must be 
made when converting from one system 
to another. 

It seemed as if the author was sitting 
next to me as I read Inside Basic Games, 
due to his easy-going personal style. I 
recommend this book to anyone in- 
terested in writing their own interactive 
programs. ■ 



Musical Applications of Microcomputing 

Hal Chamberlln 

Hayden Book Company 

Hardcover, 650 pp. 

$24.95 

by Dennis Bathory Kitsz 

The true musical application of micro- 
processors is not the topic of Hal 
Chamberlin's book. Instead, this is a com- 
pendium of the sonic rather than musical 
uses of these devices. In fact, only three 
measures of music are presented within 
its more than 650 pages, and even these 
contain errors in notation and transcrip- 
tion! 

A Professional's Book 

The true contents of this book cover the 
many methods of producing sound 
through electronic means. Both tradition- 
al analog and developmental digital con- 
cepts are presented; uses of micropro- 
cessors are introduced; and the analysis, 
development, and reproduction of natural 
and originally conceived sounds are 
discussed. In many ways, this is a profes- 
sional's book; cursory attention is given to 
the basics of acoustics and electronics, 
but these seem included by obligation 
rather than enthusiasm. Furthermore, the 
occasional discussions of music itself are 
amateurish and extremely shallow. 

Hal Chamberlin is recognized as one of 
the leading and most imaginative figures 
in the field of digital processing of sound, 
and one expects that this book would 



clearly demonstrate his wide-ranging 
skills. Perhaps it is an inevitable conse- 
quence that this wealth of knowledge can- 
not be satisfactorily compiled in one 
volume which has both popular and pro- 
fessional pretenses. 

Nevertheless, Musical Applications of 
Microprocessors is destined to become 
one of the definitive books on digital crea- 
tion and reproduction of sound, and digi- 
tal interfacing of analog synthesizers. It 
contains sample circuitry, Assembly pro- 
grams (mostly for the 6502), waveform dia- 
grams, and drawings. 

The book is divided into three sections: 
Background, Computer-Controlled Ana- 
log Synthesis, and Digital Synthesis and 
Sound Modification. Chamberlin reveals 
himself to be an expert engineer/ 
programmer, but the sections on the 
goals of music synthesis and its history 
are superficial. By contrast, the section 
describing the parameters of sound is 
clear and thorough. 

In fact, throughout the book Chamber- 
lin is at his best when describing the de- 
tails of circuitry or programming, and is 
weakest when talking about general prin- 
ciples and concepts. Sound Modification 
Methods (chapter 2) begins with a brief 
discussion of the aural effects of modify- 
ing known sounds, and moves directly to 
describing these modifications by means 
of waveform and frequency spectrum 
graphs. The following chapter explains 
the uses and application of voltage con- 
trol in music synthesis. 

The heart of the book begins with 
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NOW MODEL I AMD MODEL III • 



Now Model III users can take advantage of the ALPHA I/O system too. Our new • 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the MchWIII 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39.95. 




TWICE 



TO 

T HE EUNTRS-BO 



STICK-SO MAKES KEYBOARD OBSOLETE 

features the famous ATARI Joystic- 8 directions ♦ lire 
control Simple instructions to make joystick versions of 
most action games Plugs into keyboard or expansion mi 
Price includes ATARI |0ystic» with AlPHA mterlare and 
instructions FREE MAGIC ARTIST program IS39.93 

■ • 

. •. II : 






MUSIC-80 MUSIC-SO MUSIC-80 MUSIC-80 MUSIC-80 

Use emsling s. . 
or write your own With this low cost 8 Oil digital 10 
analog converter you can synthesize up to 5 musi< . I 
Built-in volume control hanoy when stereo not near TRS-80 
Simply piug the MUSIC 80 " into the keyooarc or 
screen primer port and connect the output 
amplifier The Radio Shac> $12 spea«er'ampi.' • 
•m? 
Fully assembled and tested 90 day warranty -■• •• 




5 xa X3 X2 



YOU ASKED FOR IT EXPANDABUS XI. X2 X3 ANU X4 

CONNECT ALL YOUR TRS-80 Dt . 

on the 40 pm TRS 80 Pus Any device thai normal . 

into the «eyooaid edge connector *■> also a ug into the 

EXPANDABUS The X4 IS shown • 

covets (inciudedi the trs 80 keyboard contain. 

drivers 1 74LS36? i tor up to 20 devices more tnar 

eve' need Using OK 

or in the Screen frintei port "ofessional quality gold 

plated contacts Computer grade 40 conductor ribbon cable 

X2 $29 X3 S44 •- : 

Custom configurations are aisca.ailabie CI I 




ANAIOG 80 A WORLD OF NEW APPLICATIONS POSSIBLE 

• ■• " ■ '-$ 80"' 

Measure Itrinoc-dTu'e Voltage Current l>gnt Pressure etc 

, 'a use lor enample let's read input channel #4 10 
Oi.T 4 Selects input »4 and also starts Ihe conversion 20 
A iNPiOi Puts the result >n vanaoie A Vona' 
Specifications input range 0-SV to O-SOOV tacn cnannei 
can be set to a different scale 

Resolution ?0mV(onSV rangei Accuracy 8 bits I 5%i Port 
Address lumper selectable Plugs into keyboard bus or E/l 
iscreen printer pom Assembled and tested 90 day warranty 
Complete wiin power supply connector manual 



only 
13 9$ 



LET THE CHAIN BREAKER FREE YOUR MINI-DRIVES 
End 'tie daisy cha f 

dr ves (Vcom Aeroco-r Shuga't Mtc'oooirs MTI V'Sta 

Pertec Siemens BAS C Easy "o nsua just -e-ove - ne 

diive;ove' p.ugm the O •'- EAK.EF 

cover Vo"a'" 

Now you can change and move your drives around without 

disassembly Keep the cover on and keep the dust out High 

reliability gold plated contact! . ade 34 

conductor cable Tested and guaranteed 

Get one for each drive only JI3 95 



INTERFACER 2 LOW COST INPUT/OUTPUT MODULE 
Stil me liesl MtM ■ seise 'co-fo devices DM II 
e"ergy control burglar alarm darkroom setectric drive 
model trains "obots Skinner bO« 
—8 latched FTl outputs 2 relays SPDT 2A I2bv coniacts 
8 TT| / CMOS inputs input and 1 ate optically isolated 
- Neat and compact design very easy to use 
•0 A = iNPiO) Reads the 8 inputs lit A - an inputs are 
low) 20 OUT OX Controls the Outputs and me relays 
Assembled 4 tested 90 day warranty Price includes powet 
supply, cable to KB or E" superb user's manual free 
phone dialer program $9b Manual only lb. 
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INTEHFAULH-8U " • 

•8 industrial grade relays single pole double throw isolated 
contacts 2 Amp © l?5 Vo'tb T T L latched outputs ate also 
accessible to drive externa 

.o convenient LEOs constantly display the re I) 
Simple OUT commands tin basici control tne 8 relays 

•6 optically isolated inputs for easy direct interlacing to 
external switches pnotoceiis keypads sens. 
Simpie INP' commands read the status of me 8 inputs 
Selectable port address Clean, compact enclosed design 
Assembled tested 90 days warranty Price includes power 
supply cable, connector superb users i 1 



GREEN SCREEN 

WARNING 

BM arc ah the biggies ate using green screen morvors 

its advantages are now widely advertised We feel that eve-y 

'RS-80 jse' should enioy the benefits If provides But 

WARNING an C-reen Screens are not created equ; 

what we lound 

•Several are |ust a flat piece o' standard colored luote The 

green lint was not made lo' this purpose and is |udged by 

many to be too dark increasing the brightness control wm 

'esult in a tu//y display 

•Some are simply a piece of mm plastic turn taped onto a 

cardboard fame I he corn is satisfactory but the wodu , I 

gives it a poor appearance 

•One optical filter is in tact plain acryNc sheeting 

•False claim A tew pretend to 'educe glare n tact men 

flat and shiny surfaces iboth film and Luote typei ADD their 

own reflections to tne screen 

•A few laughs One ad claims to reduce screen com-ast 

Sorry gentleman but It's |ust tne opposite One of the (Veen 

Screen's major benefits >s to increase the contrast between 

the text and the background 

•Drawbacks Most are using adhes.e snips to 'asten then 

screen to the monitor This method makes it awkward to 

remove for necessary perioccal cleaning Aii ie»cept oursi 

are Hat light pens mnti not work reliably because o' the tug 

gap between Ihe screen and Hie ' 

names have been manufacturing video litters for 
part yVe die not the first isome thin* tr-cy are but we have 
done our homework and we thm« we manufacture the best 
Green Screen Hete is why 

•It fits right onto the picture tube like a skin because it is Ihe 
Ml | CURVED screen MOLDED e>actiy to the picture tube 
curvature If is Cut precisely to cover the enposed area of the 
picture lube The tit is sucn that me static ttoct 
sufficient to keep it in place' We also include so" I 
reusable tape tor a more secure fastening 
•The filler material that we use is |ust ngni npt loo dark nor 
too light The result is a really eye pleasing display 
We are so sure that you will never lake your Green screen oft 
mat we offer an unconditional money bac» guaramy try ou' 
Green Screen for 14 days It for any reason you are not 
delighted with it return it for a prompt retund 
A last word We think that companies like ours who are 
selling mainly by mail should "list me" street addresswave a 
phone number [for questions and orderslrtccepl COOs not 
every one tikes to send checks to a PC bo-wtter the 
convenience of charging their purcnase lo maior cedM cards 
How come we are the only green screen people doing it" 
Order your ALPHA GHEEN SCREEN today $12 bO 



ALPHA Product Co. 



^ 210 AOD S? SO PER OROER FOR SHIPPING ANU HANDLING 

'ALL ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS MO 

COD ADDS2 00 EXTRA 

OUANTtTY DISCOUNTS AVAILABLE ^ 

N Y RESIDENTS A00 SALES *AX Wk 



85-7I 79 St.WOODHAVEN NY 11421 



Info and order (212) 296-5916 
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hapter 4, Direct Computer Synthesis 
Methods. After touching on the limita- 
tions of traditional vo'tage control. Cham- 
herlin describes the methods by which 
sound is digitized, ncluding a set of new 
problems introduced by this form of stor- 
age and generation. He also mentions the 
mathematics involved and the languages 
in ijse. Chapter 5 completes this introduc- 
tion with discussion of microprocessor 
terminology, history, interfacing, and in- 
struction sets. This chapter, crucial to un- 
derstanding the application of and rea- 
soning behind microprocessors as ap- 
plied to music, is very weak In both expla- 
nation and example. 

Section ll, Computer-Controlled Analog 
Synthesis, is a ref r esh'ngly complete look 
at using computer techniques for control- 
ling the available body of synthesizers. 
Beyond standard keyboard and oscillator 
selection, Chamberlin also includes such 
ideas as using CMOS analog switches as 
an intermediary solution in the design of 
anaiog machines. Complete circuits are 
presented for many of the most popular 
synthesizer modules (oscillators, amplifi- 
ers, filters), with all oarts specified; this 
represents a change from books whose 
examples consist of SKeletai, theoretical 
circuits. Input and output methods are ex- 
plained, digitai-to-analog and analog-to- 
digital concepts (including time consider- 
ations) are detailed, and keyboard inter- 



facing is shown in various options. The 
first control programming examples ap- 
pear in this section. Graphic display tech- 
niques are also introduced, but Chamber- 
lin becomes vague and circuit diagrams 
and other hard examples disappear; per- 
haps this area is not his strength, and he 
properly leaves it general. 

Finally. Section III — Digital Synthesis 
and Sound Modifications — presents 
Chamberlin's major contributions to the 
field of digital creation and reproduction 
of audio. Tone generation, filtering, and 
analog input/output examples carefully 
detail the problems (accuracy, distortion, 
and cost) of digital techniques, and he 
forgives little of the reader's potential lack 
of background. No musician or amateur 
computer enthusiast without substantial 
engineering, electronic, or acoustic back- 
ground will be able to fin'Sh this volume. 

Fast-Fourier transforms allow the con- 
version o* waveforms to their frequency 
spectra, and many program examples 
have been provided <n microcomputer li- 
terature but with no idea of their use. 
Chamberlin presents examples of these in 
Basic and Assembly, and puts them to 
work analyzing sound for compiliation and 
storage in digital *orm. The significance of 
the mathematics involved and the difficulty 
of its implementation in real time become 
clear in this section. 

Finally. Chamberlin presents module- 



by-module replacement of the analog 
components of a music synthesis system 
with digital varieties. His approach is 
complex and comprehensive, arriving 
eventually at the description of a com- 
plete multi-voiced music development 
unit. 

it may seem from the above summary 
that Musical Applications of Micropro 
cessors would be an ideal addition to the 
computer user's library. Certain'y it is a 
valuable contribution to the field, ano will 
be used by anyone seriously interested in 
the electronic production of sound who is 
also highly qualified in electronic theory 
and application. But. just as certainly, the 
obvious significance of its contents will 
be a frustration to musicians and experi- 
menters who wish to put its ideas to use. 

Like his colleague Wayne Bateman 
(though he does not say so di'ectly). 
Chamberlin assumes that contemporary 
musicians must inevitably come to an 
understanding of the details of any natu- 
ral sound's creation in order to reproduce 
it compellingly, and in order to invent new. 
viable music. But Chamberlin's wck. im- 
pressive though it is. remains unbending- 
ly technical, with neither recognition of 
nor concern about the musical art at even 
its rudimenta'y levels. 

For engineers, here is a bonanza of ex- 
citing ideas; for musicians, ne'e is an- 
other in a series of frustrations. ■ 



Basic Scientific Subroutines, Vol. I 

by F.R. Ruckdeschel 

Byte Publications 

Peterborough NH 

Hardcover, 316 pp. 

$19.95 

by Bruce Powell Douglass 

Basic Scientific Subroutines, Vol. i is a 
new book covering algorithms and 
Basic routines for plotting, complex num- 
ber arithmetic, vector and matrix manip- 
ulation, series approximations of func- 
tions, and more. Volume II will deal with 
approximation, regression, interpolation, 
integration, root-seeking, and optimiza- 
tion. 

The book is well written; it is unusually 
ciear and concise. The mathematical 
techniques presented in the book are 
usually taught with so much theory that it 
is hard for the student interested in appli- 
cations to use the techniques in real-life 
situations. This book is oarticularly worth- 
white because the author spends time de- 
scribing the physical interpretation and 



meaning of the techniques, along witn the 
algorithms. This book is useful for stu- 
dents well versed in science but not in pro- 
gramming, or programmers who lack 
some math or scientific background. As a 
supplementary text, the book is excellent. 

The routines are listed in two appen- 
dices, with driver programs both in North 
Star and Microsoft Basic. The book is not 
meant as a Basic primer, yet it does pre- 
sent methods 'or changing scientific al- 
gorithms into Basic routines. 

The first section (chapter 2) deals with 
plotting routines. These are not extremely 
useful for the TRS-80, as they plot using 
byte resolution with asterisks for data 
points. Their potential is in plotting on a 
printer. Since printers seldom know about 
Set and Reset, byte resolution is often as 
good as one can get. 

Chapter 3 deals with complex variables 
and contains a routine to convert recti Mi- 
near complex numbers to polar complex 
numbers This is followed by routines to 
add, subtract, multiply and divide com- 
plex numbers. 

The next chapter deals with vectors and 



matrices, and is. in my opinion, one of the 
two most useful chapters in the book (the 
other being the one on basic series ap- 
proximations). Routines for eigenvalues, 
matrix arithmetic and mat'ix inversion are 
all given. 

A use'ul topic nicely dealt with is the 
use of matrices for the rotation, transpo- 
sition, and scaling of vertices of figures. 
Another is the routines to determine char- 
acteristic polynomials and eigenvalues 
(characteristic values) of matrices. These 
routines are primarily usefu- for scientists 
and engineers. 

Basic Scientific Subroutines, Vol. I is a 
useful book for scientists, engineer, and 
students. With a few minor exceptions, 
the algorithms are excellent and the Ba- 
sic routines well designed. Since the 
book gives the routines tn a commentea 
form, as well as compacted form in North 
Star and Microsoft Basic, the book can 
serve not omy as a supplement to a com- 
puter text, but also as a sourcebook of 
scientific subroutines. 

The book is well worth the invest 
ment.B 
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KGS-80 Keyboard Actuator 

Kogyosha Company 

NIK International Trading, Inc. 

Tenafly, NJ 

$599 with power supply, 

mounting hardware and manual. 



by Ted I. Blumstein 



sing your TRS-80 as a word processor 
can benefit your career, speed your 
professional growth, or improve your per- 
formance in school. However, the cost of 
buying a letter-quality printer has been the 
stumbling block that prevented me from 
word processing on my TRS-80 until 
recently. 

I was pleased, therefore, to read about 
the KGS-80 Keyboard Actuator, a new pe- 
ripheral from the Kogyosha Company, 
which turns an IBM Selectric or similar 
typewriter into a high-quality printer with- 
out modifying the typewriter. 

The KGS-80 is impressive. It takes only 
minutes to position the unit on the key- 
' board, plug it into the expansion interface 
and make a few minor adjustments. The 
46 plastic-tipped solenoids started print- 
ing all the Level II commands without er- 
ror. 

The keyboard actuator rests firmly on 
the typewriter. Two easily removed 
mounting pieces hook into the slit be- 
tween the shift key and the typewriter 
frame. The two set screws on the KGS-80 
then fit securely inside the lips on the 
mounting pieces. 

The KGS-80 is designed to plug into the 
TRS-80 expansion interface, or directly in- 
to the CPU using the Radio Shack printer 
interface cable. Because the unit does not 
require software to operate, it was fully 
compatible with my Electric Pencil, and 
should work equally well with Scripsit or 
other text editing programs. 

I have been using the KGS-80 for the 
past four months to prepare personal and 
business documents, and I am more than 
pleased with its performance. 

If a Selectric is not used, the KGS-80 
needs tp be realigned to the new key- 



board, by removing the top cover and ad- 
justing four set screws. The set screws po- 
sition the tips of the solenoids to the prop- 
er height above the typewriter keys. A gap 
of about 0.02-0.08 inches seems to work 
best. At this setting, the solenoid is fully 
extended before striking the key and a 
snapping effect is achieved. The initial 
setting takes some time and experimenta- 
tion, but once you get the technique down 
it is quite simple. After making adjust- 
ments you can lift the KGS-80 from the 
keyboard and replace it in a matter of sec- 
onds. 

I have changed the speed of the original 
factory setting (10 characters per second, 
the reliable operating speed of most type- 
writers) by rotating controls VR2 and VR3 
on the circuit board. VR2 sets the on time 
for the solenoid and VR3 affects the delay 
time. My experience shows the delay time 
setting is the most critical factor in deter- 
mining operating speed. The speed can be 
adjusted to 20 characters per second, ex- 
cluding the shift lock/release and carriage 



"All characters are 
printed in upper 
and lowercase." 



return. Control VR4 adjusts the delay time 
between the carriage return and the first 
letter of the next line, and is factory set for 
a standard 12-inch carriage. The delay 
time can be increased to accommodate 
the return of extra long carriages, how- 
ever. All these adjustments can be made 
manually without the need for special 
software, which is a real plus, particularly 
if you have only 16K. 

All characters (including numbers and 
common symbols) are printed in upper 
and lowercase. With a special IBM typ- 
ing element the ASCII signs can also be 



"The 46 plastic-tipped solenoids 

started printing all the 
Level II commands without error. " 



printed. Function keys include carriage re- 
turn, space, case lock, shift lock and case 
shift release. The operative ASCII input 
code is 13, 32 through 92, 95, and 97 
through 122. A line feed is automatically 
inserted with each carriage return. 




hardware 



The KGS-80 will not take the place of a 
heavy-duty line printer if continuous use is 
required. The solenoids are not designed 
to exceed 400 successive repetitions with- 
out other letters and symbols being acti- 
vated. This is no problem with ordinary 
text and most program applications; how- 
ever, if you wish to use it as a screen print- 
er with very little on the video monitor, the 
successive activation of the space bar 
solenoid might cause it to overheat and 
lock up. 

The lock-up characteristic is a safety 
feature of the Kogyosha solenoids to 
prevent burnout. In a matter of minutes, 
the cooled solenoid is again fully opera- 
tional. Models that became available 
after September, 1980 have two sole- 
noids instead of one which allows more 
continuous use of the space bar. 

Another modification available is a buf- 
fer circuit which will allow the KGS-80 to 
print stored text while the computer is free 
to continue processing programs. This 
ought to be a good feature considering 
the comparatively slow rate of IBM Selec- 
tric printer mechanisms. 

KGS-80 keyboard actuator models will 
soon be available for the Apple, Pet, Ohio 
Scientific and other microcomputers, with 
either parallel or serial ports. Service is 
available at Kogyosha's Tenafly address. 
Sales are handled by NIK International. 

If you own a good electric typewriter, 
the KGS-80 is an excellent way to add a 
high-quality printer to your system at a 
very affordable price. ■ 
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GAME BREAKTHROUGH: 







TO 

TRS-80 



THE STICK 80 

Wf FEATURES THE FAMOUS ATARI JOYSTICK. 
gf WORKS WITH ANY LEVEL 2 AND DISK SYSTEMS. 
G£ PLUGS DIRECTLY INTO KB. OR E/l ( expansion PORT) 
m INCLUDES SIMPLE, DETAILED INSTRUCTIONS TO MAKE 
JOYSTICK VERSIONS OF MOST ACTION GAMES. 

■ COMPATIBLE WITH ANY OTHER TRS-80 ACCESSORIES. 

gf FULLY ASSEMBLED AND TESTED. READY TO PLUG IN AND 
ENJOY. 

■ FUN TO EXPERIMENT WITH IN BASIC: SIMPLY USE INP(0). 
H 90 DAY PART AND LABOR WARRANTY. 



UNCONDITIONAL MONEY BACK GUARANTEEJry your STICK-80 for 14 days. If for any reason you are 
not delighted with it, return it for a prompt and courteous refund (including shipping and handling). 
PRICE INCLUDES ATARI JOYSTICK + ALPHA INTERFACE + DETAILED INSTRUCTIONS + DEMO 
PROGRAM. ONLY $39.95 



IIG FIVE SOFTWARE SUPER FAST MACHINE LANGUAGE ACTION GAMES' 
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N you and your TRS-80 have longed tor a fast-paced arcade-type game that o> 
truly i challenge then SUPER NOVA b what you've been weilmg to* In this 
two pfayti machine -lenguege gam* latga attarods float ominously around tha 
screen Suddenly your ship appears and you must destroy the asteroids before 
they destroy you 1 (Bui watch out because big asteroids break apart into little 
ones ) The controls that your ship will respond to are thrust, rotate, hyparspec*. 
and fie All right! You've done it 1 You v* cleared away all the astarods 1 But what 
is that saucer with the laser doing 7 Quick 1 You must destroy him fast because that 

I"* ,ceu ""' ♦*• "" ♦• SUPER NOVA* 
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The sound of the klaion is cafmg you 1 Cruel and crafty invaders have been 
spotted in battle formation warping toward Earth at an mcroddle speed Suddenly, 
your ship materializes just below the huge flock ol invaders Quickly end skillfully 
you sfuft right and left es you carefully fire your lasers at them But watch out 1 A 
few ate breaking out of the convoy and flying straight at you! As the whine of than 
engines gets louder you piece your finger on the hre button knowing all too well 
hat this shot must connect — or your mission will be permanently over 1 With 



GALAXY INVASION 



Your TRS-80 screen has been transformed aito a maze-like play field for this 
game As your ship appears on the bottom of the screen, eight alien ranuleps 
appear on the top All of them are traveling at flank speed directly at you! Quickly 
and boldly you move toward them and fire rrussees to destroy them But the more 
aliens you destroy, the faster the remaining ones become If you get too good you 
tiusI endure the wrath of the keeper of the mezifteld the menacing Ragsrup 
You must destroy him fast because, as you will ftid out that guy's accurate 1 With 

»«"«««' ♦♦ ATTACK FORCf 



With thousands ol stars whuzmg by you. your SPACE DESTROYER she? 
comes out of hyperspace oVectly under a convoy of aliens. Almost effortlessly 
you skillfully destroy every last one But before you can congratulate yourself, 
another set appears. These seem to be slightly more intelligent than tha first set 
Quickly you eliminate all of them, too But your fuel supply is rapidly diminishing 
You must still destroy two more sets before you cen dock with your space station 
All light' The space station is now on your scanners' Oh no 1 Intruders have 
overtaken the station 1 You must skillfully firs your neutron lasers to elmnata the 
eitruden from the station before your engines run out of fuel and explode! With 

♦ ♦♦♦♦♦♦.♦♦ COSMIC FIGHTER 



sound 1 



The second Rl| Rll| has occurred and tha galaxy s full of stray asteroids 
and meteors As you look through your space pad you see e belt of esterods 
drifting across tha screen blocking younpaVlo fMutefy of the space stelion 
above But be careful becetse'Vteftr showW eipibding suns and invading 
aliens may strike yOfNjueryi ieV) rt hutting back to ground level How many 
times can you and yoer oppMnt mSneuver through those obstacles befoie time 
ru«out>W 1 m M undW,'*~~ METEOR MISSION II' 



special! 

INTRODUCTORY OFFER: ^ 

Order the STICK-80 with one or more 
games and choose one: 

•FREE ALPHA GREEN SCREEN 

OR 

•FREE MAGIC ARTIST PROGRAM 

* IN ADDITION YOU MAY: 

* ORDER 2 GAMES AND TAKE 10% 

J ORDER 3 GAMES AND TAKE 15% 0FF ,he games 

All games are written m mechine language and supplied on cassette 

EACH GAME IS AVAILABLE IN 2 VERSIONS 
SIDE 1: LEVEL II 16K FOR MODEL 1 
SIDE 2: LEVEL II 16K FOR MODEL 3 $15.95 
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q/SIDE 1 : DISK 32K FOR MODEL 1 
D VSIDE 2: LEVEL II 16K FOR MODEL 1 
THE DISK VERSION SAVES THE HIGH 
SCORES ON DISK $17 95 

• ALL THESE NEW JOYSTICK GAMES WILL ALSO WORK 
USING THE KEYBOARD WITHOUT ANY MODIFICATIONS 

GOOD NEWS: If you already have a non- joystick 
version of these BIG FIVE SOFTWARE games, 
send the original tape(s) with your STICK-80 
order + $3 per game. We will send you a new 
Joystick version of your game(s). 

ALSO AVAILABLE DOUBLE-STICK 80: 2 ATARI T 
JOYSTICKS + ALPHA DUAL INTERFACE + 
INSTRUCTIONS + DEMO PROGRAM: $59.95 
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ALPHA Product Co. 



/DO S2 50 PER ORDER FOR SHIPPING AND MANOUNG 

AIL ORDERS SHIPPED. FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS MO 

COO AO0S2 00 EXTRA Jftflfc 

OUANTITY DISCOUNTS AVAILABLE 
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85-71 79 St WOODHAVEN NY. 11421 



phone: (212) 296 5916 



Radio Shack's TRS-80 

Model III is Your Best 

Buy in Desktop Computers. 




Because You Get 48K at 
Last Year's 32K Price! 

That's right, we've added 16Kmore mem- 
ory, but kept the price at a low $2495! The 
TRS-80 Model III is a complete, ready-to- 
run desktop computer packed with 
"'extras" that don't cost extra 

Two Double -Density Disk Drives. You get 
two built-in 175K disk drives, and can add 
up to two more externally. 

BASIC in 14K ROM. Our powerful Model 
III BASIC provides a program line editor. 
machine language programming, real time 
clock, and more. Compatible with most- 
Model I Level II BASIC programs, too. Plus, 
you can expand with COBOL or Compiler 
BASIC any time 



Upper and Lower Case Characters. With a 
special graphics character set. and 64 
characters-per-line format. 

Built-in Monitor. 12," high resolution. 

12 -Key Datapad. As well as repeating keys 
and keyboard-controlled screen print. 

Parallel Printer Port. Add one of our print- 
ers anytime. 

RS-232 Serial Interface. For data commu- 
nications, just add a modem. 

Nationwide Support. Backed by 6100 
Radio Shack stores and dealers, 160 Com- 
puter Centers and 160 service centers 
throughout the USA 

Available Now. Why pay more? Get a 
demonstration today. Also check out our 



$999 16K Model III 
system. 



it's a perfect starter' 



* 



Radio /hack 

The biggest name in little computers 

A DIVISION OF TANDY CORPOK UiON 



Read about your best buy in com- 
puters. Send for a TRS-80 catalog. 

Radio Shack, Dept. 82-A-32 
1300 One Tandy Center 
Fort Worth, Texas 76102 



NAME 



STREET 



ry at individual stores and dealers Special order may be required 
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Regression II 
Dynacomp 
Pittsford, NY 
$19.95 cassette 
$23.95 disk 

by Bruce Douglass 

Dynacomp's Regression II is, as far as 
I know, the only non-linear regression 
program commercially presently available 
for any microcomputer. Non-linear regres- 
sion is a complex, sophisticated tech- 
nique. Probably because of this it has a 
smaller audience than it deserves. This pro- 
gram is one-dimensional, that is, it can 
handle one independent variable and one 
dependent variable. 

There are three main approaches to non- 
linear regression: Taylor series ap- 
proximation, steepest descent (gradient) 
method, and the Marquardt method which 
is an optimization ofthe previous two. The 
last is the most sophisticated algorithm 
and is used as the default algorithm in SAS 
(Statistical Analysis System) NLIN pro- 
grams on mainframe computers. 

What is done, essentially, is in a problem 
with N parameters. That is, when the fitting 
function to which you wish to regress the 
data has N unknown constants that you 
wish to determine, it finds the values of the 
parameters that gives the minimum sum of 
squares between the actual and predicted 
values of the dependent variable. That 
sounds worse than it actually is. 

All that is meant is that we define a func- 
tion SS = I((Y'(i)-Y(i))*(Y'(i)-Y(i))) called 
the Sum of Squares. Y' is the value 
predicted for the dependent variable for 
the i-th value of the independent variable 
by the fitting function. Y is the actual value 
that occurs with the i-th value of the inde- 
pendent variable (X(i)). 

As you can see, the better the fit of the 
regression, the closer the predicted and ac- 
tual values for Y will be. This will make SS 
smaller and smaller. There is a theoretical 
limit for how close you may come to 
predicting the actual Y value, and it is de- 
termined by the relationship of the form of 
the fitting function with what the real rela- 
tionship is as well as the random chance 
variation (noise) that occurs in the data it- 
self. In other words, some functions will fit 
the databetter than others and, for any giv- 
en function, how well it fits is dependent 
on the noise in the data. 

Although Ahere is a certain amount of 
evidence that for some classes of func- 
tions least squares methodology will re- 
sult in non-homogenous error variance, 
least squares is most commonly used be- 
cause of ease of both comprehension and 
implementation. 



Although there is a certain amount of 
evidence that for some classes of func- 
tions, least-squares methodology will re- 
sult in non-homogenous error variance, 
least squares is most commonly used be- 
cause of ease of both comprehension and 
implementation. 

The First Two Methods 

The first two methods of non-linear re- 
gression have their problems. The first, 



"The program 

structure has some 

non-optimal 

characteristics." 



Taylor series approximation, attempts to 
locate the optimal parameters in N-space 
by using a series expansion. This method 
has its downfalls. For example, if the ini- 
tial estimates of the values of the parame- 
ters are not close enough to being correct 
the approximation may get lost and settle 
for a local minimum. However, its advan- 
tage is that when the initial estimates are 
close, it rapidly converges the optimal val- 
ues. 

The method of steepest descent looks 
around for the steepest slope (gradient) of 
the surface in the parameter space and 
follows it to the minimum values. This 
method is less likely to be fooled by local 
minimums, but, as it gets closer and clos- 
er to the actual values, the rate of conver- 
gence typically slows to a crawl. 

The Dynacomp program uses the steep- 
est-descent method, and, therefore, is rea- 
sonably stable in its convergence to the 
optimal parameters. It can take a long 
time to converge if you choose the wrong 
function, the data is noisy or there are a 
large number of parameters to be fitted. 

Like most scientists, I have a streak of 
pedantry in my blood and would like to 
take this moment to point out to the peo- 
ple of Dynacomp that they are using the 
divergence of the vector in the parameter 
space, and not the gradient, when they 
add the partial derivatives of the parame- 
ters. The manual states otherwise. 

The documentation that accompanies 
the program is mediocre. It does mention 
the method and algorithm used with a cer- 
tain amount of completeness, but it is on- 



ly moderately useful. In the space used it 
would have been even more educational 
(if that was their purpose) to delineate the 
routines used and their relationship to the 
algorithm. 

The documentation mentions that there 
is one functional form that this program is 
not good at regressing, but it remains for 
the reader to discover what that is. It is on- 
ly mentioned in one of the two examples 
given. It turns out that polynomial regres- 
sion is not well regressed. 

The examples are run with comments 
and cover everything that is in the pro- 
gram. Since the program asks the opera- 
tor for all inputs, this merely serves to rein- 
force the user's understanding of opera- 
tion. In this sense, it is useful. 

The program structure has some non- 
optimal characteristics. It is available for 
several computers and looks as though it 
was written so that it could be easily used 
on a variety of computers rather than any 
one given computer. This is evident in the 
graphic routine, the lack of multi-state- 
ment lines and the filler lines that take up 
memory but don't contribute at all to the 
program. 

Graphing Routines 

Let's consider the graphing routines 
first. Data points are printed out on the 
screen using "*" for data. The graphs of- 
ten scroll the screen, so the user does not 
get a good picture of the behavior of the 
function (which is one of the purposes of a 
graph.) The values of the data points may 
be printed on the screen at the user's op- 
tion. On a TRS-80 with Set/Reset resolu- 
tion, which is six times the resolution one 
gets with using "*" to represent data 
points, why use the latter? If you are out- 
putting to a printer, it makes sense, but 
not to the screen. 

True, you can control the height of the 
graphs but not directly, and often the 
graph scrolls to graph the data. I consider 




software 



. 
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that unacceptable. 

Listing the program, you will notice an 
interesting program construction: 

• No multi-statement lines. 

• No Defint for iooping variables. 

• Up to six separate lines of Print state- 
ments followed by a CLS (clear screen 
command). 

Since this is an iterative program, using 
multi-statement lines and Defint for loop 
variables would greatly reduce run-time. 

Also, the Print statements (up to six 
separate lines) are followed by a CLS? If 
readability was the object, then one REM 
line is worth 10 times its weight in useless 
Print statements. 

The program comes on both disk and 
tape. Being cheap, I bought the tape ver- 
sion and adapted it for sequential disk 
files. It runs nicely and even has the capa- 
bility of editing the source file. Editing 
consists of changing, deleting or inserting 
data points. This- routine is useful and 
works well. The program lists the data by 
page so that it will not scroll. 

Before running the program, the func- 
tion containing the parameters must be 



entered into the program. When running 
the program you will be asked the number 
of data points in the data set. This is not a 
good approach since it requires you to re- 
member the number of data points in your 
data set. If it is a disk/tape file, all the user 
has to do is keep the number of data 
points as the first element of the fiie. 

The user is asked whether the data is to 
be loaded from disk. If so, it will be loaded. 
If not, the user is expected to enter the 
data from keyboard. 

When you get done with that, you will 
be asked if you would like to graph the 
data using the routine mentioned previ- 
ously. Eventually you do get to the pro- 
gram. (There are a couple of useless tim- 
ing loops that I deleted.) 

At this point you will be asked for the 
number of parameters, the convergence 
criterion, maximum number of iterations, 
the step constant and the initial estimates 
of the parameters. This part is good since 
it is nice to be able to specify the number 
of iterations and the convergence criteri- 
on rather than depend on theirs. 



Finally, results are displayed. The stan- 
dard deviation of the regression and the 
number of iterations used are displayed 
along with the determined values of the 
parameters. You are asked if you would 
like to graph the function. It asks you it 
you would like to run the regression again, 
choosing different initial estimates of the 
parameters, in the event that the conver- 
gence was not to your liking. 

This last option is useful, but, unfortu- 
nately, the jump is back farther than that, 
so you have to wade through reviewing 
the data set and other garbage before fi- 
nally being asked for the new starting esti- 
mates of the parameters. This is easily 
corrected, but it really should be correct in 
the 'irst place. 

In conclusion, Dynacomp Regression II 
(or Parafit) is a useful, powerful, non-linear 
regression program, despite its less-than- 
optimal implementation. While correct in 
its mathematical usage, many small, mi- 
nor adjustments need to be made to the 
program. Even so, it is the only program of 
its kind currently available, and is well 
worth the asking price. ■ 



C-BUG 

Monitor Tape $29.95 
Monitor ROM $39.95 
Disassembler $49.95 
The Micro Works 
Del Mar, CA 



by Howard Berenbon 



The Micro Works is offering two out- 
standing utility programs for the 
TRS-80 Color Computer. They allow ac- 
cess to the machine at the Assembly- 
level. 

C-Bug 

The monitor is a powerful 6809 monitor, 
and is available on cassette. The two ver- 
sions are virtually identical, except that 
the ROM version mounts into a Radio 
Shack ROM pack, allowing instant access 
(mounting instructions are included). The 
documentation is quite complete, includ- 
ing loading, running, and operating in- 
structions. Also included is a documented 
Assembly listing of the C-Bug monitor, 
monitor. 

Commands 

The cassette version loads using the 
CLOADM command, and will run by typing 
EXEC. There are 19 commands, as fol- 



lows: 

G —Go back, Return to Basic 

R —Display 6809 register list 

M —Memory examine and change. En- 
tering a hex address will display a 
line of eight bytes. The cursor may 
be moved up, down, left, or right to 
display more memory. 

I —Insert hex to memory 

T —Transfer block of memory 

J —Jump to machine language subrou- 
tine 

C —Change register list 

S —Save to cassette 

B —Set baud rate for comm link 

L Load hex 

$ —Convert hex to decimal 

. —Convert decimal to hex 

P —Move display page; any 512 bytes 
of RAM may be displayed. 

U —Upload and send data to comm link 

D —Download, and receive data from 
comm link 

! —Take over software interrupt 

AU— Auto mode: To use your computer 
as an intelligent terminal con- 
nected to a host system. Com- 
mands are entered from the comm 
link. 

X —Terminal mode: To use your com- 
puter as a terminal operating at 110 
baud. 

" —Reset causes the computer to be 
reset and returned to Basic. 

These commands are completely docu- 
mented in the manual, with examples of 

their use. 



Disassembler 

The disassembler is a program that will 
allow you to look into the Basic ROM, 
and is available on cassette requiring 16K 
or RAM to run. 

The program is well documented, in- 
cluding a complete Assembly listing, in- 
structions with sample outputs, and infor- 
mation on connecting your Color Com- 
puter to a printer. Also included is a com- 
plete list of useful ROM entry points, 
with their apparent functions, a list of in- 
teresting variable addresses that the ROM 
uses (like 0019 start of user RAM, etc.), 
and finally a memory map of the system. 

Running the Disassembler 

The program is ioaded using the 
CLOADM command, and will run by typing 
EXEC. You will be prompted for a series of 
parameters, starting with the start ad- 
dress for disassembly. To disassemble 
the complete ROM, just type Enter to all 
prompted questions. 

Features of the disassembler include: 
cross-referencing of variables and labels, 
output code that can be reassembled, out- 
put to an 80-column printer (highly recom- 
mended) or 32-column printer,' output to 
your video display, and a data table area 
specification which defaults to the table 
boundaries in the interpreter ROM. 

Both programs are highly recom- 
mended. ■ 
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Cocobug Debugging Monitor 
For the TRS-80 Color Computers 
Allen Gelder Software 
San Francisco, CA 
$19.95 

by Dennis Bathory Kitsz 



By the time you read this, it's likely 
there will be a dozen machine-code 
monitors for the Radio Shack Color Com- 
puter. However, none will have a catchy 
name like Cocobug, nor its unique appeal. 
This program is a machine-code monitor 
provided on tape, complete with docu- 
mentation, a quick-reference program- 
ming card, and a 32-page Motorola data 
sheet including timing diagrams and the 
full 6809 instruction set. 

Typical of software by Allen Gelder, Co- 
cobug is oriented towards machine-code 
programmers. This is an approach I find 
very appealing, because Assembly pro- 
grams (which consist of mnemonic re- 
placements for actual byte-for-byte binary 
coding) can easily obscure the real binary 
operations which the microprocessor is 
undertaking. 

Part of Gelder's own description reads, 
"With Cocobug you may examine RAM 
and ROM in hexadecimal, ASCII or mixed 
hex and ASCII form... the powerful 
MC6809E CPU is made available in a pair 
of 6809 Programming Models that depict 
the CPU features at entry and exit (via a 
restorable Breakpoint) of your machine 
code string. Byte entry and Breakpointing, 
plus the ability to direct real-time program 
flow, are made easy and natural through 
line-entry of addresses, bytes and certain 
control characters." 

The author's curiously formal descrip- 
tion belies the ease of using the program. 
Cocobug itself consists of two parts, a Ba- 
sic menu/prompting program, and a ma- 
chine-code subroutine for display of mem- 
ory and execution and breakpointing of 
the user's program. After a very brief 
CLOAD and CLOADM (the Color Comput- 
er equivalent of the Model I's System com- 
mand), the program is run. A cursor ap- 
pears at the top of the screen waiting for a 
user directive. 

Memory display options are M and N, 
followed by a hexadecimal address. The 
M command displays the contents of 112 
bytes, 14 lines of eight rows of hex bytes. 
Fifty-six bytes in hex and ASCII are dis- 
played under the N command. The small 
number of bytes displayable on the 
screen is a function of the Color Comput- 
er's 32-character lines. However, the 
screen may be scrolled up or down eight 



bytes, or moved a single byte ahead or 
back. 

Most interesting are the programming 
models included in Cocobug. All the regis- 
ters (X and Y, plus the two accumulators) 
are displayed, as well as the top of the two 
stacks and the condition code register 
(known to Model I programmers as the 
flags). Under Cocobug's R command, two 
programming models are displayed: The 
first is the entry condition (before execu- 
tion of the user's code), and the second is 
the exit condition (after a breakpoint). This 
display is disabled with the T command. 

Line entry is a machine programmer's 
dream. The L command begins the pro- 
cess. Here's an example from the docu- 
mentation: L(0DOO)BF043O39(0D10-8E4849 
BD0D00<. This short line commands Co- 
cobug to begin loading memory at 0D00 
hex with BF 04 30 39, then move ahead to 
0D10 hex and load 8E 48 49 BD 0D 00. The 
execution address (marked by the aster- 
isk) begins at 0D10 hex, and a breakpoint 
has been placed after the return from the 
subroutine beginning at 0D00 hex. It's 
quite a bit of work for only 35 keystrokes. 
An Assembly equivalent would involve 
more typing: 



0DOO 00100 ORG 0D00 

0DO0 BF0430 00110 STX 0430 

0003 39 00120 RET 

0D10 00130 ORG 0D10 

0D10 8E4849 00140 LDX #4849 

0D13 BDODO0 00150 JSR ODOO 



Gelder does allow Assembly enthu- 
siasts some comfort, however. Comments 
may be inserted between bytes or ad- 
dresses by using single quotation marks, 
such as L(0D00) STX 0430' BF 04 30. Inci- 
dentally, use of the ">" character from the 
Cocobug command mode restores the 
conditions before any breakpoints cre- 
ated during line entry. 

Rumors of monitor programs as good 
or better than Cocobug are already being 
heard, but software from Allen Gelder (in- 
cluding Basic semi-compiler for the Model 
I, Accel) is unique. Like Accel, for which no 
royalties are demanded when used to 
compile and distribute programs, Coco- 
bug is provided with complete instruc- 
tions on where it resides in memory, what 
RAM patch points it uses, and how to 
make backup copies. Furthermore, Coco- 
bug is fully supported by the author, and is 
the first in a group of modules (Gelder 
calls them a "suite of 6809 debugging and 
programming aids") that will include an 
assembler and other tools. Cocobug 
alone, however, is a capable and attrac- 
tive program at a very reasonable price. ■ 
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Quality Pcrcom products are available 
from the following authorized Percom 
retailers. If a retailer is not listed for your 
area, call Percom toll free at 1-800-527 
1592 for the address of a nearby retailer, 
or to order directly from Percom. 
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MICROCOMPUTER SYSTEMS INC Hoi Spnnqs 1501 1 623 5209) 

ARIZONA 
SIMUTEK Tucson (602)886 588t 

CALIFORNIA 

ALPHA BYTF STORES Calabasas (213) 883 K594| 

BERKELEY MICRO COMPUTERS Berkeley [415)8487122 

COMPUTER INFORMATION FXCHANC.E 

SanluisRev (7141 75.7 484' 
COMPUTER SERVICE CENTER Hollywood (2131 851 3434" 

DESMAR ELECTRONICS Santa Claw (408) 988 22(1) 

HOBBYWORLD Northndye (2131 Wo 92(X 

WHOLESALE TECHNOLOGY SantaAna (714)979 170C 

COLORADO 
MICROCOMPUTER APPLICATIONS 

Denver (303)922641 

DISTRICT OF COLUMBIA 
THE PROGRAM STORE Washington (21121 337 4641 

FLORIDA 
ENTRONINC Largo 1813)5865012 

MICROCOMPUTER C( )NSU1 TANTS 

Ormond Beat h (9041 h73 5787 
MICROSYSTEMS SOFTWARE. INC 

Hollywood (305)983-3390 

GEORGIA 
DAVIS SYSTEMS. INC Atlanta 1404)634 2300 

HAWAII 
COMPUTER CENTER Honolulu (8081488 2171 

IDAHO 
OFFICE MAGIC COMPUTERS Hois* (208)3764613 

ILLINOIS 
IGARCIA & ASSOCIATES Chicago (312)7829751) 

KANSAS 

BESCO ELECTRONICS Shawnee (913126a 7633 

CARDENS. INC Hutchinson 1316)669 8261 

MASSACHUSETTS 

fOMNITEK lewksbury 1617)851 4580 

MARYLAND 

DAMASCUS RADIO SHACK Damascus (301 ) 253 211)1 

MICHIGAN 
ALTERNATF SOURCI Lansmg (5171487 3358 

MINNESOTA 
THE CODE ROOM EdenPraine (612)934 1821 

MISSOURI 
LEMBERGERCO Vienna (314)422 3353 

SOFTWARE CENTER Florissant (314)838 7755 

NEW HAMPSHIRE 
HARDSIDF Mlllord (8001258 l/'K 

NEW JERSEY 
CHANNEL 1 RADIO SHACK Medlord (609) t>54 7454 

NEW MEXICO 
AUTEL ELECTRONICS Albuquerque (505)2556451 

NEVADA 
PCS COMPUTER [m. Vegas 1702)870 4138 

NEW YORK 

H & E COMPUTRONICS Spnng Valley (4141425 1535 

80 MICRO COMPUTER SERVICES Cohoes (518) 235 9(X)7 

MICRO 80 SYSTEMS Brooklyn (2121 748 3236 

STONYCLOVE New York City (21213918337 

OHIO 

FELDMAN ENTERPRISES Akron (216)724 558.) 

JERRY S COMPUTER Cleveland (216)6416719 

MPS Wadsworth (216)336 2771 

PENNSYLVANIA 

ADVANCED MECHANIZATION Ivyland (215) 672 4000 

COMPUTER ANALYSTS New Bnghlon (4121846 4323 

TENNESSEE 
COMPUTER WORLD. INC Nashville (6 1 5 1 255 8330 

MARKETING COMMUNICATIONS Memphis (9011 744 8677 

TEXAS 
ACCESS UNLIMITED Richardson (800) 527 3475 

(2141690 0206 
COMPUTEX Webster 1713)488 8022 

QUALITY SOFTWARE Dallas (214)484 2976 

TEXAS COMPUTER SYSTEMS Brady (915)577 2931 

UTAH 
MICRO MNEMONICS Sunsel (801)298 6804 

WISCONSIN 
BYTE SHOP Mil WAUKEE Greenfield (414)281 7004 

FOREIGN DEALERS 
AUSTRALIA 

DICK SMITH ELECTRONICS P O Box 321 North Tyde NSW 21 1 3 

CANADA 

VALERtOTE AND ASSOC Guelph Ontano (5191824 7041 

DVR ELECTRONICS Surrey BC ' (604)576 1045 

. MEXICO 

CIBERMATIC. S A Mexico (905)592 3433 

COMPUTADORAS Y ASESORAMIENTO 

Rio Panvco 1 4 Mexico 5 D F 
DOMINICAN REPUBLIC 
RADIO SHACK Santo Domingo (809)565 9121 



30 • 80 Microcomputing, September 1981 













Disk Storage: If s No Place to Compromise. 



A dependable disk system 
means everything to the high- 
performance operation of your 
computer. At Percom. we know 
this. And we do something 
about it. 

For example, the connectors 
on our TFD drive systems are 
gold plated. 

Why? Because solder-plated 
contacts oxidize, forming an in- 
sidious insulation that can 
cause erratic operation. And 
then total failure. 

Gold-plated connectors are 
just one way we make better 
drive systems than the competi- 
tion. 

Now #1 for the Model III 

Quality Percom TFD drives provide more 
features, cost less. Add-on drives start at 
only $439.00. Complete First Drive Sys- 
tems start at only $749.95. Features: 
"Flippy" Capability - Record your 



To order products, or for the name of your 
authorized Percom retailer, call toll free: 
1-800-527-1592. 




PERCOM DATA COMPANY, INC 

211 N KIHBY GARLAND. TEXAS 75042 

1214)272-3421 



programs and data on either side of a dis- 
kette. Greater Storage Capacity 

Store 180 Kbytes — formatted — on one 
side of a 40-track TFD drive Store over 
twice as much on a TFD 80-track drive. 
Think Megabytes — Your TFD drive 
controller will handle up to four drives. 
You can access almost 1.5 million bytes 
of on-line program and data files. Either 
Add-in or Add-On — Your TFD First 
Drive System can be either internal 
(add-in) or external (add-on). In either 
case, you get a complete system in- 
cluding the disk controller, drive, power 
supplies and disk-operating software. 
BASIC-Language DOS — Included on 
diskette with each First Drive System is 
Percom's OS-80 111 M . This easy-to-use 
disk-operating system loads into 7 Kbytes 
of RAM and then frees the drive for other 
use. With OS-80" programs, you can 
have full, read-write interchangeability 
between Model I and Model III diskettes. 
Or Model III TRSDOS* — TFD 40 
track drives work with Tandy's Model III 
TRSDOS. without modification. For 80- 
track operation. TRSDOS can be easily 
modified with diskette patches supplied. 

Still #1 for the Model I 

Besides greater storage capacities, more 
quality control measures and lower pri- 
ces, all Percom Model 1 drives are rated 
for double-density operation. 

Plug a DOUBLER ,v in your Expansion 
Interface and enjoy the same double- 
density disk storge capacity as Model III 
owners Included with each DOUBLER is 
a TRSDOS compatible double density 
disk operating system. DOUBLEZAP 
programs are available for upgrading oth- 
er popular DOSs for DOUBLER opera- 



tion. And our double -density version of 
OS-80" costs just $49.95. 

Of course you don't have to upgrade 
your Model I for double-density opera- 
tion to use Percom disk drives. But it's 
nice to know you can. 

Percom TFD drives for the TRS H'V 
Model I are available in 40-. 77- and 80- 
track versions, in 1-. 2- and 3-drive con- 
figurations. Prices start at $399.00. 

System require merits: Model III TFD drives work 
with a 16-Kbyte system (mini and Model III BASIC 
The initial dnve must be a first dnve system An op- 
tional interconnecting cable is available lor expand 
ing with external dnves #3 and #4 Model I TFD 
drives work with a 16-Kbyte system (min) « ; 
with an Expansion Interlace. Level II BASIC and 
DOS software, and an interconnecting cable Two 
and four drive interconnecting cables are available 
from Percom 
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the best for my TRS-80 computer. 
Send me free literature about quality 
Percom products 
□ Model I : Model III 



1 Send to 

' PERCOM DATA COMPANY. Inc.. Deft K 

l 21 1 N Kirby St Garland TX 75042 
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Astro-Scope 
Sex-G -Scope 
AGS Software 
Orleans. MA 
$30 eacjr, disk 

by G. Michael Vose 

Astrology is a big-business, as seen by 
the number of newspaper columns 
and books devoted to the subject. It is also 
a serious business based on scientifically 
observable phenomena — the movement of 
planets, stars, moons, asteroids and other 
heavenly bodies. The positions of the stars 
and planets at the time of a person's birth 
are used by astrologers to make predic- 
tions and judgements about an 
individual's future. The logical connection 
between the position of the planets and 
the characteristics of a human being is a 
bit ftazyH&my mind, but millions of people 
believe that a valid connection exists. 

Astrology and Computers 

''jffSrfcssfrprial astrologers are using mi- 
crocomputers at an increasing rate to per- 
form the calculations needed to cast horo- 
scopes. Casting horoscopes by hand can 
take hours and hand-held electronic calcu- 
lators simplify the process only a little. The 
use-of microcomputers helps provide the 
information fast and can also provide 
greater quantities of it. 

One of several companies that has been 
producing astrological software is Astro- 
Graphics Services/Software of Orleans, 
Massachusetts. They recently released 
two programs which add a new dimension 
to microcomputer astrology. The pro- 
grams are called Astro-Scope and Sex-O- 
Scope. They both plot and display ex- 
cellent natal event sky charts (using the 
pin wheel format) plus all the planetary as- 
pects; More importantly, they also provide 
1500 plus word descriptions of the person 
whose horoscope has been cast. This is a 
major advancement in astrological soft- 
ware. 

The Sex-O-Scope program gives a read- 
ing of the subject's sexual proclivities and 
attitudes and is based on texts written by 
John Townley, author of Planets In Love 
and the editor of Sexology Today. The 
readings provided by the Astro-Scope pro- 
gram were written by Steve Blake and 
Robert Hand, authors and lecturers on the 
subject of astrology. 

These programs can be used by anyone, 
which is what makes them unique. I've run 
other astrology programs that produced 
sky maps and aspect charts, but I didn't 
know how to interpret the information. 
These kinds of programs are designed for 
professional and serious amateur astrolo- 



gers. The new offerings from AGS Soft- 
ware, however, can be great fun, even 
for someone who has no knowledge of 
astrology. 

These programs, though only for the be- 
ginning astrologer, are complete and fun. 




Once you enter the basic information- 
date, time and location of a person's birth 
—the computer will calculate and then 
display horoscope data and character 
descriptions. You can cast horoscopes for 
yourself, friends, family members or 
famous people. 

Here are some excerpts from Astro- 
Scope and Sex-O-Scope. 

Astro-Scope for Howard Cosell 

Howard CoselPs ascendant is in Leo. If 
your ascendant is in Leo also some char- 
acteristics you may have are: You are 
proud, and like being the center of atten- 
tion. You are strong, dominant, dignified 



you are: very energetic and high-spirited, 
independent and a risk taker. You are also 
an enthusiastic leader, but a reluctant 
follower. So blunt, direct and honest that 
at times you hurt other's feelings. Your 
strong competitive urge may alienate 
others. You are good natured and bold! 

Sex-O-Scope for Linda Lovelace 

Linda's ascendant is in Taurus which 
makes her earthy, slow at moving, but 
persistent once aroused, warm, friendly, 
loving, steady and strong. 

I told you this could be fun! These are 
only excerpts— each of these readings 
took less than a half hour to peruse. 

These programs are a mite expensive if 
entertainment is your aim (they don't have 
print routines although there are routines 
you can use to obtain printouts from Basic 
programs). AGS Software does offer ver- 
sions that do provide printouts plus the 
license to reprint the material. These ver- 
sions have to be special ordered and, at 
$200, are aimed at the professional as- 
trologer. 

From Technocrat to Mystic 

The text files that accompany the main 
program are quite large, so you'll need at 
least 32K and two disk drives to run these 
programs. The documentation booklets 
are some of the best I've seen, providing 
latitude and longitude figures for at least 
one city in every state of the U.S., blank 
charts that you can photocopy for your 
own use, and data on famous people that 
you can use to run their charts. 

These programs might change your atti- 
tude toward astrology. You may see the 
economic potential of running horoscopes 
for your star-struck friends. Or you might 
want to start an astrology column in a 
local newspaper or magazine (once you've 



"The Sex-O-Scope program gives 

a reading of the subject's 
sexual proclivities and attitudes. " 



and honorable. You like the power and priv- 
lege that comes with leadership. Others 
must have integrity to impress you. You 
like sumptuous surroundings, and have a 
regal bearing! 
His sun is in Aries. If you're an Aries, too, 



purchased the reprint rights from AGS 
Software.) 

At the very least, you could use these 
programs to have some fun, and maybe 
even change your image from technocrat 
to mystic! ■ 
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Just 55 hours ago, 5.3 million pounds of thrust from two solid fuel boosters sent the 
Space Shuttle Columbia into orbit. Now, on-board computers performing 325,000 
separate operations every second will help guide the Columbia safely and gracefully 

home to Earth. 

Instant Software's SPACE SHUTTLE puts you in the command pilot's chair of America's 
first reusable space vehicle. And, until commercial space flight becomes a reality, this is 
the closest you'll get to the Ultimate Flight. 

0332R-A11 Model I & III Level II 16K $14.95* 



Instant Software 



VISA 



PETERBOROUGH, N.H. 03458 



TO ORDER: 

See your local 

Instant Software dealer 

or Call Toll-Free 

1-800-258-5473 

orders only 

In New Hampshire 
1-603-924-7296 

Mon Fn 8:00 an™— 4 30 pm E S T 



"Plus shipping 



Dealer inquiries invite 
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SuperStep 

Allen Gelder Software 

San Francisco, CA 

$19.95 

by Mendel Cooper 

Shortly after introducing the TRS-80, 
Radio Shack brought out a stripped- 
down machine-code monitor and debug- 
ger, T-Bug. At the time, T-Bug was the only 
game in town and you bought it. Now 
there are much better monitors on the 
market, and you may well regret your $15 
investment. 

Into a Heavyweight 

SuperStep transforms the lowly T-Bug 
into a heavyweight. It offers single- 
stepping, a two-speed trace mode, and a 
versatile disassembler that can run in con- 
junction with the single-step or trace 
modes. A processor model displays all 
registers and flags, both for the current in- 
struction and for the previous one. An in- 
telligent RAM window shows the RAM 
locations and contents affected by 
memory accesses. 

SuperStep has commands that back- 
space in memory, clear the screen, and 
display memory contents in rows of 
16— in hex or in ASCII. It gives direct ac- 
cess to the registers (each one labeled) 
and to the flags (each one individually 
set). There is also a relative-jump pointer 
that shows where you are jumping to — 
and can even take you there, and back. 
There is a high-speed save/load command 
included in the package. Regrettably, this 
one will not work on my machine because 
it has the XRX cassette load modification. 

SuperStep's string editor allows insert- 
ing or deleting bytes in a sequence of 
code. The bytes on either side of the 
change move aside or close up, as neces- 
sary. Useful for editing ASCII strings or ta- 
bles, this feature also allows creating or 
deleting space within a program. A patch 
can now have enough space to reside en- 
tirely within the program it modifies; it no 
longer need jump elsewhere to do its work 
(you would still need to fix up the Jumps 
and Calls, of course). 

An Invaluable Aid 

I rate SuperStep as the best single pro- 
gram I have in my modest collection. If the 
program is useful as a debugger, it is in- 
valuable as an aid to learning Assembly 
languiipe jplbgramming, and the Z-80 in- 
strucxiofi set in particular. As the 
program's author states, SuperStep cuts 
down on the "imaginative overhead" of 
the programmer. William Barden, in his 
book TRS-80 Assembly Language Pro- 



gramming, advises his readers to "play 
computer" as a means to understanding 




program flow. SuperStep plays computer 
for you, and with more precision and 



greater clarity than the paper-and-pencil 
method. 

I do have a couple of minor bones to 
pick with the program's author. The docu- 
mentation needs to be revised and re- 
organized. It could be greatly expanded, 
with many more examples. But this is 
hardly a fatal shortcoming since you learn 
to use this program by using it and experi- 
menting. 

The only real reservation I have about 
the program is that it needs T-Bug to run. 
SuperStep is a steal at its price, but you 
must also pay $15 for T-Bug. Perhaps 
Gelder will rewrite the program as a stand- 
alone monitor. ■ 



Fractional Sound 
The Innovative Penguin 
Harvey, LA 
$14.96 cassette 
$18.95 disk 



by Mary S. Gasiorowski 



Fractional Sound is a fractional drill 
program for the Model I Level II, or 
Model III 16K (or Disk Basic, 32K), with 
sound (by connecting the auxiliary plug to 
an amplifier). The program allows you to 
set parameters for: the type of operation 
(add, subtract, multiply, divide, or mixed 
types), maximum size of numerator and 
denominator, whether mixed fractions are 
allowed, and the number of students in- 
volved; it will also allow you to put in your 
own problems, if you want. 

Bad Point 

The format for putting in the answer is 
extremely awkward. You have to identify 
which of the eight positions each number 
of your answer goes into (two for the 
whole number, three for the numerator 
and three for the denominator). If you (and 
your kids) can get used to that, then the 
rest is easy. 



Good Points 

The program generates easy-to-read 
large (5/8 inch for numbers in fractions, 
two inches for whole numbers) numbers 
on the screen, and a random tone ticking 
sound while it's waiting, as well as a bugle 
charge when your answer is correct, and 
other miscellaneous sounds. 

If you get a problem wrong (it informs 
you), the program goes into its waiting 
mode. It will explain step-by-step how to 
do the problem as long as you press a key 
each time to continue. 

One nice feature is that a correct but 
unsimplified answer is not counted as 
wrong. Many programs will accept only 
the simplified answer, which can be frus- 
trating for a child who has done the work 
of combining the fractions, but because 
he neglected to simplify, gets no credit for 
his work. In Fractional Sound, if you com- 
bine the fractions correctly but neglect to 
simplify, you are told to simplify your an- 
swer and continue. 

On occasion during the drill, a graphics 
character (Marley Mole) appears to en- 
courage you. He wants you to come out 
and play a game with him. 

At the end of the drill is a little 
game— fence in the moving dot (Marley 
Mole) without getting trapped first. It's a 
nice little game, appropriate for the 
intended age level of Fractional Sound. ■ 



"In Fractional Sound, if you combine 

the fractions correctly but neglect 

to simplify, you are told 

to simplify your answer and continue. " 
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Put Your Fingers On 
The Pulse Of Wall Street 

With Your 
Radio /hack Computer 



If you invest in the market, operate your own busi- 
ness or require updated information quickly to 
manage your affairs, Dow Jones Information Services 
provides the authoritative business and financial in- 
formation you need. . .from Wall Street, Washington 
and around the world. Now Radio Shack owners 
can receive this valuable service through TRS-80® 
Videotex® software. 

Get Information For Business And 
Investment Control. . .On Command 

Discover how quickly and easily your personal 
computer turns into a specialized, sophisticated 
library of information with access to the Dow 
Jones database. Ifs considered the world's most 
reliable and comprehensive source of business 
and financial data providing you with news 
up-to-the-minute as well as from the pre- 
vious 90 days. 

Now you can review thousands of items 
from The Wall Street j ournal , Barron's and 
the worldwide Dow Jones News Service 
without having to maintain piles of news- 
paper clippings. Information about com- 
panies, stocks, labor, government, interna- 
tional market and monetary developments, 
and so much more, is yours on command. 

Quotes From Four Exchanges 

Now, in just seconds, you can obtain cur- 
rent prices and the volume traded for 
stock quotes (15 minutes delayed) on over 
6,000 companies. . .plus 50 key financial in- 
dicators on 3,200 selected firms and 180 in 
dustries. You'll also have access to trading 
information on mutual funds, treasury 
notes and bonds. 



Imagine being able to spot trends, research a com- 
pany, obtain data that could affect your business, 
your investments, your investment decision-making. 
But you don't have to imagine anything. . .Dow 
Jones Information Services provides it all right now. 

Low Start-Up Cost. . .Free Password. 

Stop by your nearest Radio Shack store and 
find out how easy and inexpensive it is to get 
Dow Jones investment data through TRS-80 
Videotex. Videotex software for Radio Shack 
computers is only $29.95. Whaf s more, you 
get a Dow Jones password absolutely 
free. . .along with one hour of free in- 
troductory time. And there are no 
start-up or minimum usage charges. 
In addition, software and usage costs 
will be tax deductible in many cases 
(consult your tax advisor for further 
information). 

Customer Support. . . 
Just A Phone Call Away. 

Dow Jones' professional customer 
service staff is ready to provide com- 
plete information about this impor- 
tant home information service now. . . 
and full customer support after 
you've made your purchase. 
Just call toll free. . . 

800-257-5114 

In New Jersey call: 
(609) 452-1511. 

TRS-80, Radio Shack, and Videotex are registered trademarks of Tandy Corp 




DOW JONGS INFORMATION SERVICES 

Providing Information Through Innovation 

Dou Jones & Company, Inc. --<25 
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Space Shuttle 
Instant Software 
Peterborough, NH 
$14.95 

by Jon Lindsay 

When the space shuttle Columbia 
hurtled toward Earth, I experienced 
'its shock wave as it descended over Cali- 
fornia's Big Sur to land at Edwards Air 

. Force Base. So I waited for the arrival of a 
program named Space Shuttle, which sim- 
ulates the flight of the Columbia from Earth 
orbit to a landing at Cape Canaveral. Why 
the landing was not simulated for Ed- 
wards Air Force Base is a mystery whose 
answer is known only to the program au- 
thor. 

To measure how well the operator per- 
forms during the simulation, score is kept 
of the pilot's performance during several 
phases of the flight and the score totaled 

"after the simulation is over. I was im- 
pressed by the lack of emphasis on the 
game aspect. I would rather spend my 
time mastering the task being simulated 
than compete against the computer. This 
chance to assume the role of an astronaut 
will highlight some of the problems, mo- 
notony and excitement of guiding this rev- 
olutionary craft to a safe landing. 

About the Program 

The viewer is initially faced with three 
selections on a menu. The first selection 
is a flight from space to a landing at a 
spaceport. The second is called "long ap- 
proach." You descend from about 100,000 
feetto the spaceport, approximately 220 
miles away. The final selection is a 
' straight-in landing from about 28 miles 
but.-.The second and third options are real- 
ly'jus.t portions of the full flight, isolated 
for the ease of adjusting the pilot to flying 
this "brick with a engine." True to life, you 
must "dead-stick" the Columbia— bring it 
in, wfth almost no power. Not being an as- 
trophysicist, I have no way of knowing 
how accurate the flight path algorithm is. 
But it appears to conform to some obvi- 
ous rules. For example, the atmosphere 
extends to an altitude of about 58 miles. 
Since Columbia initiates its flight several 
hundred miles up, it will behave like a 
spacecraft above 58 miles and like an air- 
plane beiow that figure. Such seems to be 
the case in the program. In space, only 
thrustters can be used to guide the craft; in 
the atmosphere, more conventional con- 

tro'%Jp» De us ?d- 

.v*J(||8|b are four distinct phases to the 



• In space— thrusters must be used to 
control the reentry configuration and 
temperature. 

• After reentry but above 58 miles- 
loss of some thruster effectiveness, 
though they are still the only means of 
control. 

• Below 58 miles— complete thruster 
ineffectiveness but craft can now pitch 
and roll as needed: Altitude is in miles, un- 
til 100,000 feet. 

• Final approach— landing gear and 
speedbrakes can be used: Also, there is a 
yaw control for fine-tuning the approach. 

Inside Columbia 

You are presented on your flight screen 
with a primitive graphic view of the 
horizon, a set of controls and some sens- 
ing instruments. There is little animation 
through the split window of the shuttle, 
except for the horizon, which moves only 
up and down in a horizontal plane. Rolling 
the shuttle does not affect this plane. 

The sensing instruments feed the pilot 
pertinent data: 

• Altitude/entry vector; 

• Airspeed/velocity; 

• Heading; 

• Glide (rate of descent); 

• Time; 

• Temperature; 

• Pitch and roll values; 

• Pitch and roll indicators; 

• Latitude and longitude; 

• Artificial horizon; 

• Distance to spaceport; 

• Localizer indicating distance off 
centerline of runway; 

• Stall indicator; 

• Temperature warning; 

• Status of landing gear; and 

• Status of speedbrakes. 
Command line single key entries are: 

• (P)itch — raise and lower nose; 

• (R)oll— left or right bank; 

• (T)hrust— control pitch and heading 
above 58 miles; 

• (Y)aw— minor heading corrections 
without rolling; 

• Trac(K)— check in to tracking stations; 
and 

• (G)o— accelerate the flight-phase up- 
date at will. 

At the bottom of the screen is the com- 
mand line that allows the pilot to control 
the flight attitude of the shuttle and report 
at the appropriate times to the tracking 
stations. Except for the lack of feel of the 
shuttle, everything is there on the flight 
panel to permit the astronaut to guide the 
shuttle to a safe landing. It is more dif- 
ficult to perform this flight than one would 
imagine. 



Flying the Columbia 

There are several aspects that differ 
from the airplane. The most striking dif- 
ference is the surfboarding effect of the 
shuttle as it approaches reentry. If the en- 
try phase is not carried out with precision 
and diligence, Columbia will skip off the 
atmosphere into space never to return 
again. On reentry the craft's hull shields it 
from heat. 

Orientation and reality can be lost during 
the reentry process. I imagine this feeling 
might be similar to the experience of Co- 
lumbia's pilots. This is because the scope 
of reentry is larger than your perceptions. 
This is not a fly-it-by-the-seat-of-your- 
pants operation, so it becomes necessary 
to fly the shuttle "by the book"— flying the 
shuttle to conform to a set of computer- 
generated coordinates that appear to 
make no sense. A sort of blind trust seems 
to be involved, a faith in computation. 

Guiding an aircraft using heading, lati- 
tude and longitude bearings requires you 
to think of the Earth as a globe striped 
with markings bearing latitude and longi- 
tude. For the purposes of this simulation, 
the space shuttle is required to fly over a 
series of tracking stations along the reen- 
try path. Not all of the check points are 
straight ahead. The pilot must manipulate 
the shuttle to guide it over these points. 
Once over the tracking station, he checks 
in via the command line. The computer 
tallies his performance throughout the 
reentry process and assigns performance 
points for how close the shuttle comes to 
overflying various check points. 

Your performance score is based on a 
possible 1,000 points: Reentry is allotted 
100; general flight, 100; navigation, 400; 
and landing, 400. Points are deducted as 
you commit astronautical malpractice 
such as stalling or overheating the craft. 
The flight conduct after reentry and the 
final approach and landing are also evalu- 
ated. 

The spaceport runway is located on lon- 
gitude 80.65 degrees west. The shuttle 
lands to the north, or on runway 36. Your 
approach on final is made at a heading of 
zero degrees, using the yaw control fre- 
quently to fine-tune any course correc- 
tion. 

It is here something should be said 
about navigation. The secret to flying the 
Columbia is understanding your spatial 
orientation. When heading 90 degrees 
(due east), the shuttle parallels latitude. 
When heading zero degrees (due. north), it 
parallels longitude. This is great to know 
since any course in between simultane- 
ously affects latitude and longitude. 
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PEN ULTIMA Ti 
Space War Gam: 

is HERE! 



TRS-8, 
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0100102 $24,9 
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0120102 $29.95* 




dventut& 

INTERNATIONAL 

A DIVISION OF SCOTT ADAMS. INC. 

BOX 3435 • LONGWOOD. FL 32750 • (305) 862-6917 

ORDER FROM YOUR FAVORITE DEALER 
or CALL TOLL FREE (800) 327-7172 



SHIPPING & HANDLING CHARGES ARE EXTRA 
PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



\ 



PHOTO COPYRIGHT - DON DIXON 



•TRS-80 is registered Trademark ol flie Tandy 



The complicated nature of the naviga- 
tion makes it necessary to prepare in ad- 
vance where you want to be and when. I 
found it extremely helpful to create a flow- 
chart of what I was supposed to do to be 
where I was supposed to be at the right 
time. Even then, it was difficult and takes 
some practice. 

An inspection of the check points re- 
veals the space shuttle is traveling west 
(where longitude is larger) to east, and 
south (where latitude is smaller) to north. 
If you visualize this flight path, you have 
made a significant step in solving the nav- 
igational problem. 

Once proper entry has been made, the 
message "Orbit Achieved" is printed. 
There is no indication when you are going 
to hit the entry window, only that you are 
so many feet above or below the window. 
If you arrive at the window but are too high 
or low, you could lose control of the shut- 
tle. This is the reason for getting down to 
business the moment you initiate the 
flight. Getting the "Orbit Achieved" mes- 
sage assures you that you have passed 
through the window and are within the 
grasp of the earth's gravity. The nose is 
manipulated to adjust the shuttle's speed 
as you approach the first tracking. This is 
the most southwestern tracking station 
you must report to. Immediately past this, 
you take a heading of 70-80 degrees to 
move your craft northeast toward the next 
station, South Texas Radio. Watch the 
nose temperature! If you overheat, you 
will be warned (and you will lose points in 
the scoring). Remember, this scoring is 
not a game; it is a measure of your perfor- 
mance. 

The next tracking station, U.S.S. Taft, 
lies in the Gulf of Mexico. And the final 
check-in is made to the U.S.S. Fairchild off 
the coast of Florida. Once this is made, 
start a left turn for the final approach. This 
turn will take you off your easterly head- 
ing toward the north. Your final approach 
will be on a due north heading. A localizer 
data display will tell how far off to the left 
or right of the centerline of the runway the 
Columbia is. 

Once on the fina! approach, you still 
have problems. Proper velocity and head- 
ing have to be maintained, while the alti- 
tude is taken into consideration. Remem- 
ber, you are dead-sticking the shuttle in! 
The main chore here is to get on a proper 
giide path and hold it. Ideally, within 100 
miles the shuttle's speed should be 
aiound 2,000 mph and its altitude at about 
two -to three miles. Twenty-five miles out, 
the speed should be around 400 mph and 
the altitude at about one mile. Lower the 
gear and adjust the speedbrakes again. 



As you near the approach of the runway, if 
you are in the final glide pocket, control of 
the space shuttle is taken over by the auto 
pilot and it completes the landing for you. 
If all has gone well and the auto pilot 
has landed the shuttle, the computer 



'Because you landed 
safely does not. . . 
mean that you will 

have a good score," 



gives you a report (score) of your perfor- 
mance. If not, probably one of the follow- 
ing has taken place. 

What Can Go Wrong? 

The first and most disquieting event oc- 
curs during reentry. As mentioned before, 
if the entry vector is made too high for or- 
bital insertion, the shuttle may skip back 
into space. If too low, it may burn up in the 
atmosphere. In either case, the simulation 
ends. 

While making a descent from about 200 
hundred miles up, I allowed the nose to 
pitch up too high. I compounded this ad- 
ding even more down thrust, forcing the 
nose still higher. The stall warning went 
unnoticed and so did the stalled indica- 
tion. When I finally noticed the pitch in- 
dicator, it was moving through 600 
degrees, the airspeed was 160 mph and I 
was dropping at a rate of 35,000 feet per 
minute. I interpreted this interesting 
maneuver as tumbling. 

The reason for arriving at this attitude 
was due to my forgetting how much thrust 
was given and in which direction. There is 
no indication that a thruster is firing once 
you have fired it. And a thruster fires con- 
tinuously until you neutralize it with op- 
posite thrust. So applying five units of 
down thrust, then giving the same com- 
mand again results in 10 units of down 
thrust. You can see the result of this by 
watching the pitch data. As many as 100 
units of thrust are allowed at any one in- 
put. But the units may be additive. This 
was another good reason for maintaining 
an accurate flight log. 

The most obvious problem is naviga- 
tion. You can deviate from course by a 
considerable distance. If you fly south of 
latitude 21.5 degrees north or north of 
latitude 28.7 degrees north, you will be 



given an Off Course warning. The effect of 
this wandering can make getting to the 
runway difficult. And speaking of off 
course, being on the final approach does 
not mean you will arrive at the runway. 
First, you have to move onto the center- 
line of the runway. A problem I had was 
losing altitude. Arriving at the approach 
end of the runway at 24,000 feet is a little 
embarrassing. Of course, you are permit- 
ted to circle and with that much altitude, 
there should be no problem. But there is. 
As the shuttle plummets towards earth, it 
seems to be very sluggish. It is big, heavy 
and fast. Making a circling approach over 
the runway was difficult for me. I had trou- 
ble realigning the shuttle back onto the 
centerline. There is a lot of inertia there. 
The so-called straight-in landing is 
anything but easy. A common problem 
was overshooting the runway because of 
too much altitude. You certainly can do it 
while the instruments faithfully log your 
position. A message appears if you land 
off the runway. Landing short of the run- 
way is considered a poor landing. Landing 
too hard could destroy the shuttle. In 
other words, just trying to get the space 
shuttle in a configuration allowing the 
auto pilot to take over becomes an ex- 
hilarating event. And if you have forgotten 
to put the landing gear down, it is a little 
messy. When the shuttle is on the runway 
you must endure the computer's measure 
of your performance— whether it was 
good or bad. Just because you landed 
safely does not necessarily mean that you 
will have a good score. 

Conclusion 

Space Shuttle is a different sort of 
simulation. There are no sophisticated 
graphics. One nice feature of the copy I 
received was it was written in Basic, mak- 
ing fine-tuning easy. On the other hand, 
being written in Basic possibly was a 
restrictive influence on the design of the 
program presentation. 

Since it is in Basic, it might be in- 
teresting to see how the program would 
work if one is fortunate to have a Basic 
compiler available, modifying the ap- 
propriate timing loops where indicated. I 
am not that eager to try to rewrite what is 
already a well thought-out algorithm, nor 
to try to make any particular adjustment in 
the program. If one was inclined to do so, 
it should not be an impossible task. 

As for the program's space algorithm, I 
thought it was terrific! It seemed plausibly 
accurate. All in all, left exactly like it is 
now, it is quite entertaining. For those of 
you with an itch to pilot the Columbia, this 
is the program for you.B 
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CoWt2Hl!ies 

The Scott Adams' Adventure series announces the release of 
Adventure #11 "Savage Island, part 2" and Adventure #12 "Golden Voyage". 

For The • TRS-80 • APPLE • ATARI • $19.95 tape 

Also available on Bonus Triple Pack Disk Adventures #10, #11, and #12. ^222 
For the TRS-80 and Apple $39.95 
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The Stone of Sisyphus carries you to the "thinking man's" dungeon. A subterranean 
world of monsters, magic, traps and treasures demands brains rather than luck to survive 
(of course, you might take along your mace just in case. . .). 



MACES & MAGIC are tanlasy adventures involv 
mg you anil your computer Armed only with your wits 
a microcomputer and the software provided, you can 
become the hero or the meal your destiny dictates 
You create a character, equip him (or her) with 
suitable weapons and armor, and enter the dungeon in 
search ol lame and fortune Neither is particularly 
easy to obtain 

If you are successful in avoiding or conquering 
the various monsters traps, enchantments and illu 
Sions set by our nefarious dungeonmasters. you may 
escape with riches and glory Your name and deeds 
will be recorded lor posterity in the records ol the 
dungeon More importantly you II be alive You may 
then use the same character in his more experienced 
and wealthy form when you enter dungeons on later 
occasions 

Ihe obiecl ol the whole exercise is not |ust to 
light the monsters and collect treasure You have to 
get out alive to enjoy it In every dungeon there is at 
least one exit It is possible to escape Irom each and 
every dungeon with a whole skin We state that fact 
here because players oflen believe this not to be true 
We really aren t out to gel you Not really 



FOR ALL OF THE BELOW 

Apple 2 Disk with Applesoll 

or Apple 2 Plus 48K 

THS80 32K Model 1 or 

THS80 48K Model 3 



TWO FULL DISKS WORTH OF DATA!! 



A compacted data structure makes it possible to 
•un this fantasy on a single disk drive, though 2 full 
diskettes worth ol data are supplied Expanded use of 
free-form input puts your ingenuity to an even greater 
test The responsiveness of the programs to the in- 
dividual qualities of the character make this adven 
ture frustratingly enioyable for hundreds of hours^ 
before its secrets can be unlocked 
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by Dennis Kitsz 



Autumn will be upon us soon, but the 
nights are already longer than the 
days in Roxbury, since it nestles between 
two ranges of the Green Mountains at the 
headwaters of three rivers. Across the 
street, the mechanic is putting the clap- 
boards on his solar-powered, micropro- 
cessor-controlled garage. As if to com- 
pete with that technological neighbor, the 
sunflowers are reaching to top last year's 
highest bloom, more than 14 feet. All 
these simultaneous occurrences could 
mean just one thing— it's time for the sec- 
ond annual Autumnal Equinox Hardware 
Festival! 

You can keep the soldering irons cool, 
though, because this month's column is 
(by popular demand, no less) an illustrat- 
ed introduction to electronic hardware- 
resistors, capacitors, transistors, diodes, 
integrated circuits, and displays. There 
won't be a heavy dose of theory, just a 
simple rundown on identification of parts, 
how to read their values, and what they 
look like. 

Your basic TRS-80 Model I keyboard unit 
consists of 59 capacitors, 11 diodes, 6 
transistors, 76 resistors, 82 integrated cir- 
cuits, switches, sockets, a crystal, and a 
fistful of connection hardware. If this 
quick list of contents doesn't conjure up 
any mental images of particular parts, 
then this column is for you. 

What's an IC? 

An integrated circuit (IC) is a black box, 
figuratively and most of the time literally. 
Once upon a time, there was a great, am- 
bitious space program, one that required 
a lot of electronia in a very small capsule 
that also contained a fairly bulky human. 
Electronic engineers set about to minia- 
turize as much of the electronia as possi- 
ble, whittling the metal cans off individual 
transistors and stuffing several of the 
transistors together wherever these indi- 
vidual parts had some logical relation- 
ship Gradually the engineers came to 
understand that general-purpose circuit 
building blocks could be built inside a 
single metal or plastic package, saving 
both valuable space and a lot of piece- 
meal wiring. They concluded that only 
those circuit connections which had to be 



mated to other circuits needed to be 
brought to the outside of these combina- 
torial black boxes. 

The technical prowess to achieve this 
integration of parts came slowly at first, 
especially since the industry had only very 
recently learned how to produce indivi- 
dual transistors reliably. To produce 10 or 
15 or 20 transistors joined together, all 
perfect, was a major achievement as 
significant as a man first stepping on the 
surface of the moon; the whole story can 
be read in a special issue of Scientific 
American (September 1977), but for the 
moment consider this remarkable fact: 
The 16K bytes of memory inside your run- 
of-the-mill TRS-80 contain the equivalent 
of over 140,000 transistors. A complete 
TRS-80 system with disk drives and printer 
would boast a miniaturized body of nearly 
a million individual transistors— and 
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Fig. 1. Mostek Co. Memory Circuit Chip 
(Scientific American, 1977). 



every one must be perfect for your low- 
cost personal computer to operate. 

If you are not in awe of this achieve- 
ment, give up one of those 16K RAMs 
which now cost less than $2 each in sets 
of eight; carefully crack open its cover just 
above the external pin connections. Get a 
jeweler friend to help if you haven't got 
steady hands. Now take a look at Fig. 1, 
which shows what you've got inside that 
memory circuit on a three by five-millime- 
ter chip of little more than refined sand. 
That's a remarkable technical achieve- 
ment, I think you'll agree. 

Integrated circuits come in a variety of 
purposes, voltages, interconnection char- 
acteristics, and shapes and sizes. With a 
few exceptions, the purpose of those in- 
side your TRS-80 is as digital building 
blocks; they operate from a five-volt power 
supply; they directly interconnect with 
each other; and they are produced in 
industry-standard, dual-inline packages 
(DIPs). The TRS-80 ICs that don't fit this 
mold are its voltage regulators, which are 
not digital circuits; its program memories, 
which need 12 volts, 5 volts, and - 5 volts; 
and the cassette and video input/output 
control ICs, which do not connect directly 
to the others. 

Photo 1 shows a group of integrated cir- 
cuits. The first row across the top is the 
bank of eight 16K dynamic RAMs (read/ 
write memories) used for program memo- 
ry inside the TRS-80. The next row con- 
tains eight 1K static RAMs, used for the 
video memory. You can't tell much about a 
chip by looking at its shape, as these two 
similar rows demonstrate; shapes are part 
of an industry-wide standard which speci- 
fies that the external pin connections are 
spaced 1/10 inch apart. Three different 
widths of the dual-inline packages (DIPs) 
are used, depending on the number of 
pins. 

The remainder of the integrated circuits 
in the picture have been chosen to give a 
general view of the variety of functions 
similar-looking ICs may have. The two 
white integrated circuits are in gold- 
topped ceramic packages. The. first is a 
serial keyboard encoder (it scans a key- 
board and outputs a stream of bits repre- 
senting the key pressed) and the second is 
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TRS-80PROGIWMS 
SUPER SOFTWARE AT SUPER PRICES 



THE ULTIMATE DISK-OPERATING SYSTEM 

LDOS™ 

A completely documented new generation of 
operating system for the TRS-80. Far superior to 
any on the market. It is a totally independent 
device system, capable of device linking, routing, 
setting, and filtering. LDOS will support 5 " and 8" 
floppies, single/double density, single/double 
sided, and up to 80 tracks. Full customer service 
provided with a toll free 800 number. Excellent 
documentation in a tab indexed manual (over250 
pages). Call or send for more information today. 
Available for Model I 

or III only $149.00 

LDOS™ is a product of 
Logical Systems inc. 



ALSO AVAILABLE 

EDAS 3.5 Model I and III. . . $79.00 

EDAS 5.0 Model II $179.00 

Host Model ii was $199.00 

now $99.00 



MAILING SYSTEMS 
MAIL/FILE - SERIES II 



BUSINESS SYSTEMS 

INVENTORY MASTER SYSTEM 

With today's market, keeping on hand only what 
your demand calls for is reason enough to let 
your TRS-80 accurately and effectively take care 
of your inventory. Always know what to stock and 
when to stock it. This system has many features 
which were modeled after a main frame system 
of large capacity. More information available 

upon request. 

Model I version just $159.00 

Model III version just $259.00 



ALSO AVAILABLE . . . 

For the MODEL I or ill 

STOCK MARKET MONITOR 



3d actic 




Cassette version $89.00 

Disk version $99.00 



NEW Series II Mail/File has all of 

the outstanding features of the 

original Series I Mail/File, PLUS 

many additional qualities which 

again will set standards for 

this type of system. "Word 

processor" type input editor, 

fast sorting, and fabulous 

editing capabilities are a 

few of its features. Name 

and ZIP code are under 

constant sort. Series II is 

compatable with Series I data files. 

Model l system will handle up to 600 names. 

Model III system will handle up to 1200 names. 

Either system available for only $159.00 

Also available for the Model ll $199.00 

THE ULTIMATE IN MAILING SYSTEMS 

MASS/MAIL SUBSCRIPTION SYSTEM 

AVAILABLE FOR MODEL II. 

/ think the system will stand the test of time . . . it is probably 
the most sophisticated system around for the micros today 
Mike Schmidt (EDITOR! 80-US Jan/Feb pg. 94 

calactic's Mass/Mail System was designed with 
the needs of the large mailing list in mind. This 
system has capabilities of handling up to 10,500 
records, with access times of less than 1 5 seconds 
and usual access of about one second. All adds, 
deletes and edits are instant for the operator and 



11520 North Port Washington Road 
Mequon, Wisconsin 53092 







MAILING SYSTEMS 

are then completed later in a 
"batch mode". The System 
comes complete with exten- 
sive documentation and on- 
going support 

Contact Galactic Software 
for detailed specifications 
for your exact needs. Avail- 
able only for the TRS-80 
Model ll. 



ULTRA-TREK GAME 

Can you master this 
trip through the galaxies? 

Climb aboard the Star-Ship Enterprise and head 

for a universe of unknown encounters, enemies 

and stellar battles. As commander, will you be 

able to keep the Enterprise and its crew en 

route and on patrol? Can you destroy the 

hostile base? Order today 

Model l or III version only $19.95 

All of Calactic's products have a one year 

limited warranty with customer support included 

with each purchase. Warranty information is 

available upon request in \writing. 

Money orders, credit cards, & cod's shipped 

within 24 hours. 

Can't wait? 
call 

414/241-8030 

TRS-80 A Trademark of Tandy Corp. 
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Photo 1. Integrated Circuits 

an industrial type 8060 microprocessor. 
Next in the photo is the heart of the TRS- 
80— a Z-80 microprocessor in a black 
plastic package. All three are in 40-pin ar- 
rangements. 

Following are two chips used in 
8080-based computer systems: a 28-pin 
8251 serial interface, and a 24-pin 8212 bi- 
directional buffer. These chips permit an 
8080 microprocessor to talk to the outside 
world in different ways. The third row 
shows a pair of 24-pin integrated circuits 
containing Level I Basic. Next is a 2716 
erasable, programmable, read-only-mem- 
ory (EPROM) with 2048 bytes of informa- 
tion in a 24-pin grey ceramic case; the 
EPROM may be programmed and erased 
by a user. The last three ICs are a three- 
state buffer 81 LS95, which is an ideal tool 
for interfacing the TRS-80 edge card to the 
real world; an ordinary transistor-to-tran- 
sistor logic (TTL) circuit, from which fami- 
ly over 60 of the ICs inside the TRS-80 are 
drawn; and a 1024-bit shift register, which 
sends bits along in a bucket-brigade-iike 
stream. Finally, turned sideways in the 
photo are two IC-like parts. These are DIP 
shunts, groups of metal bars which may 
be broken by puncturing. These are inex- 
pensive programmable switches used in 
t'.o computer to connect together cir- 
cuitry which Level I or Level II Basic, 4K or 
16K memory. 

Reading ICs 

Occasionally you may see a magazine 
article which describes a modification 
you'd like to make to your TRS-80. Don't 



be afraid to tackle it (once you've checked 
the Debug column for the next two 
months). For hardware newcomers, the 
most fearsome part of going inside a com- 
puter seems to be that anonymous, 
threatening, indistiguishable mob of in- 
tegrated circuit black boxes. Actually, 
they're really quite tame. Every integrated 
circuit inside the TRS-80 is marked in two 
ways. The first marking is a "Z" number 
silkscreened on the circuit board, which is 
a simple way of referencing its board posi- 
tion; this number can also be found on the 
schematic diagram. The second marking 
is the combined industry-standard part 
number, manufacturer code, and dating 
code. The code for Z44 stamped on the IC 
may look something like this: 

SN74LS367N 
7914 

By cross-checking the Z number in the 
TRS-80 parts list, you will find this is a 
74LS367tri-state hex buffer (whatever that 
means). The number itself (74367) is an 
industry-standard, generic type number in 
the 74xx series of logic circuits; the LS is 
an abbreviation for low-power Schottky, a 
specific family within this generic circuit 
tape (you may find LS, C, H, L, S, or no let- 
ters at all). The SN prefix in the code is the 
manufacturer's identification (Texas In- 
struments uses SN, Signetics uses NE, 
etc.); the suffix letter is the package style 
(N means dual-inline plastic). Finally, 7914 
is a date code in year/week format (the 
part was manufactured during the 14th 
week of 1979). So the part number 
SN74LS367N 7914 tells us that this circuit 
is a low-power Schottky-type tri-state buf- 
fer in a plastic dual-inline package, manu- 
factured by Texas Instruments during the 
14th week of 1979 (whew!). 

There's an easier way to discover the 
part type. Look through the Z numbers, ex- 
amine the integrated circuits on the 
TRS-80 circuit board, and reference the 
parts list (pages 93-98 in the Technical 
Reference Handbook). You should get a 
feel for how part numbers are printed and 
how to read them. Occasionally you will 
find a part number with no relationship 
whatsoever to the generic number in the 
parts list; the schematic also does not 
match the part on the board. In this case 
you are probably looking at a "house-num- 
bered" IC; house numbering is done when 
a customer (in this case, Tandy Corpora- 
tion) orders a large quantity of parts, and 
the manufacturer's production run is dedi- 
cated exclusively to that order. House 
numbering is often found on the TRS-80's 
video memories. 

"Reading" an integrated circuit is easy, 
since they're all numbered the same way; 
see Fig. 2. The IC is positioned by finding a 
notch or a dot conspicuously placed 



toward one end; look down from the top 
(some ICs have both a notch and a dot). 
This is the keyed end of the IC. With the 
notch or dot pointing north, pin 1 is to the 
west. Pin 2 is to the south of pin 1; pin 3 is 
next to the south of pin 2; etc. 

When you get to the bottom of the IC 
(say at pin 8 on a 16-pin DIP), the next pin 
is immediately to the east (say 9). Pin 10 is 
to the north, 11 north of that. The highest 
numbered pin always ends up opposite 
the lowest numbered pin. It's done in a 
"square circle". 

If you read an article that says, "solder 
a wire to pin 12 of Z44", you would start at 
the top left and count 'round the bottom 
until you reached 12. That's the place. 

The Logic Blocks Inside 

Digital logic is a subject I've covered 
before (see "80 Applications," May and 
June, 1980, March, 1981, and accompany- 
ing hardware construction projects), but 
this time I'll describe the hardware from— 
as much as possible— a software ap- 
proach, and with lots of analogies to 
everyday situations. Let's start with some 
simple logic functions: AND, OR, Exclu- 
sive OR, and NOT (complement). 

Four simple AND, OR, Exclusive OR, 
and CPL (complement, or NOT) calcula- 
tions using only two binary digits are 
shown in Example 1. 

These are the truth tables for single bits, 
something with which machine-code pro- 
grammers will be very familiar. Basic 
users, too, have the AND, OR and NOT 
functions available. For each truth table, 
there is an equivalent, commercially 
available, logical integrated circuit (Exam- 
ple 2). 

Some integrated circuits contain multi- 
ple inputs— the 741 1 three-input AND gate, 
the four-input 7420 NAND gate, the three- 




Read This Way 

Fig. 2. How to read integrated-circuit pin 
numbers. 
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ow's your 
love life? 




A little dull dround the edges? 

Routine? Predictable? Boring? Maybe 

all it needs is a little Interlude. Interlude is 

the most stimulating computer game ever conceived 

It combines a computer interview, an innovative 

programming concept, and a one-of-a-kind manual to 

turn your love life into exciting, adventurous, delicious tun! 




Interlude is: romantic... playful... outrageous... a fantasv. interlude is: ■ A Bed of Roses (Inter- 
lude #1) ■ Mat iterlude #49) ■ The Chase (Interlude #7) ■ Rodeo' (Interlude #71) ■ The King and I 
(Interlude #60) ■ Some Enchanted Evening (Interlude #84) ■ Caveman Caper (Interlude #82) ■ From Here 
to Ecstasy (Interlude No. 30) ■ Satin Dreams (Interlude #72). 



More than 100 Interludes are included in the program. Most are described in detail in the accompanying manual, 
but several surprise Interludes are buried in the program awaiting that very 

ime when your interview says you're ready. (When you learn secret 
Interlude #99, your love life may never again be the same!) Interlude 
can give you experiences you'll never forget. Are you ready for it? Jhc Uhimatc Experience. 



Interlude 



INTERLUDE. Dept. 80, 10635 Richmond Avenue. Houston, Texas 77042. I'm really ready. Send my Interlude today. 
Apple II IhK)' TRS-80 (Model 1. 16K)" Poster Available for immediate shipment 

C 20"x 24" reproduction of 

this ad without ad copy Please enclose your check payable to INTERLUDE 
($4.95 — includes or complete "the charge inform.) 

shipping charges) 

All charge customers must sign hen 
Expiration date 



assette ($18.95) . Cassette ($18 95) 
Diskette ($21.95) . Diskette ($21 95) 
Diskette - Pascal or DOS 3.3 ($21.95) 
Add $1 75 for shipping and handling. 

J MASTERCARD C VISA 
Account No. 



MasterCard Bank Code 



CHARGE CUSTOMERS: Order by phone toll free' 1-800-231-5768 Ext. 306 (Te 

Name 

Address 1 _ 

j 



1-800-392-2348 Ext 306) 
Age 



State 



Zip 



•Apple II is a registered trademark of Apple Computers, inc. **TRS-80 is a registered trademark of Radio Shack, a Tandy Co 
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Example 1. Binary Digit Calculations 




Not (CPL) Gate, Genenc'type 7404, 6 gates per IC. 



First Digit ■ 
Second Digit ■ 




AND Gate, Generic type 7408, 4 gates per IC. 




OR Gate, Generic type 7432, 4 gates per IC. 



First Digit • 
Second Digit • 




•Result 



XOR Gate, Generic type 7486, 4 gates per IC. 



First Digit - 
Second Digit - 



_> 



NAND Gate, Generic type 7400, 4 gates per IC. 



First Digit 
Second Digit 




NOR Gate, Generic type 7402. 4 gates per IC. 



First Digit • 
Second Digit • 




XNOR Gate, Generic type 74266, 4 gates per IC. 

txample 2. Equivalent Integrated Cir- 
cuits 

input 7427 NOR gate, etc.— which have 
the effect of applying the logic function to 
all inputs. The 13-input 74133 NAND gate 
would perform this function: Input 1 AND 
Input 2 AND Input 3 AND Input 4 AND In- 
put 5 AND Input 6 AND Input 7 AND Input 



8 AND Input 9 AND Input 10 AND Input 11 
AND Input 12 AND Input 13 = Result, then 
CPL (NOT) the result. It does this, inci- 
dentally, in less than 15 billionths of a sec- 
ond, 30 times faster than the Z-80 chip 
could perform the same function! 

Still other ICs may combine gates, such 
as the 7464 (see Fig. 3). This gives the 
single-digit result of this complete logic 
equation: 

Y = NOT ((A AND B AND C AND D) OR (E AND F) OR (G 
ANDH AND I) OR (J AND K)) 

Okay, stay with me. Like they say in 
those ads for clothing patterns, if I can 
sew, you can sew. Same goes for this digi- 
tal hardware; but put me inside a ham 
radio, and I'm thoroughly lost. This digital 
stuff is easy, however, since it just in- 
volves transferring the logical theory you 
already know into a different form, a form 
that looks like electronics. By way of 
tangential explanation, let me digress a 
bit about functional fixedness. We all con- 
sciously tend to limit our vision or imagi- 
nation, mostly because it's the easiest 
way to make sense out of the world 
around us. That's okay for basic survival, 
but consider: A spoon alone is great for 
soup, but if used with a dash of human im- 
agination, two spoons can make music. 
Who thought of that? Not the same per- 
son who turns junk car bumpers into 
sculpture, but the principle is about the 
same. Here's another thought: Until a new 
timing belt arrives, my printer's carriage 
return functions because I have nylon 
string attached to the print head, looped 
over a pulley, and weighted down with a 
paper punch. It works, with no fancy elec- 
tronia. Think about this: If thumbs were 
the key factor in the evolution of humans 
from lower animals, then binary is a truly 
unnatural number system. If it's un- 
natural, then no matter how it's trans- 
formed, it's legitimate if we need it that 
way. Now back to digital logic. 
Consider this listing: 

LD A.VALUE 

RRCA 

OUT PORT.A 

What is being output through port A? 
Assuming A is greater than two (hex 10), 
then RRCA (rotate accumulator to the 
right) performs a binary division by two. 
(For those unsure about this, consider 
that the number 57440 decimal when ro- 
tated to the right would be 05744— divi- 
sion by 10. It works the same in base two.) 
There's a digital circuit that can perform 
this same division-by-two function, and 
it's called a flip-flop. It's a permanently 
hard-wired RRCA function, and it's shown 
as a box. 

A positive-going pulse going into its 
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74S64IN) 

Y = ABCD + EF + GHI + JK 
Fig. 3. A 7464 IC 

clock (CLK) input causes the output to 
toggle once (0 to 1). A negative going 
pulse has no effect. A second positive- 
going pulse causes the output to toggle a 
second time (1 to 0). For every pair of one- 
zero patterns as its input, a single one-zero 
pattern appears at the output— division by 
two, electronic style. Oh yes— there's also 
a clear (CLR) input to keep the division 
from happening when you don't want it. 
Fig. 4 shows a generic type 7473 flip-flop, 
with a clock and clear input, plus "J" and 
"K" inputs, which represent the initial set- 
ting of 1 and 0. Q and Q-bar (the Q with a 
line over it) represent the output in its 
"true" form, plus in complement form — a 
bonus provided by many integrated cir- 
cuits. Eight flip-flops are like having a pro- 
cessor with both an accumulator and a 
complement accumulator available at the 
same time. 

Last among logic circuit considera- 
tions for this brief introduction is the con- 
cept of a three-state device. The first and 
second logic states are 1 and as you 
know, but the third state is a kind of elec- 
tronic invisibility. In a computer, many 
electronic circuits must share the same 
group of address and data lines— the ad- 
dress bus and the data bus— but only one 
may actually use the bus at a given time. 
With more than a dozen devices connect- 
ed to the data bus in the TRS-80, a terrible 
electronic confusion would result if they 
all tried to submit their information to the 
central processing unit (CPU) simultan- 
eously. 

To avoid this conflict, electronic de- 
signers devised an invisible logic state. 
Liken the computer control circuitry to the 
traffic light at a complex intersection, 
where only one line of traffic receives a 
green light, while all the others receive a 
red light. Assuming no suicidal or reck- 
less drivers and no right turn on red, then a 
driver with a green light may continue 
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Fig. 4. 7473 Flip- Flop 

through the intersection as if there were 
no other cars present at all (that's not ex- 
actly true according to my drivers manual, 
but please accept the analogy). When the 
light changes, traffic stops in one direc- 
tion and starts in another. In the elec- 
tronic intersections of the computer, 
signals may be output by just one device 
when it receives the proper signal. 

To carry the traffic analogy further, 
recall that most traffic signals have an 
amberwarning light. In real-life situations, 
cars slow down (or speed up to get through 
the light before it turns red). Cars on the 
other side inch forward upon seeing a hint 
of that amber signal. This is analogous to 
the rise and fall time of data signals run- 
ning through the computer, that safe peri- 



od during which signals may change logic 
state from 1 to or from to 1 with no 
conflict. 

One final analogy: Those of you who 
have driven in New York City know that the 
traffic signals are timed so well that a 
driver can start in the financial district and 
drive clear through to Columbus Circle. 
Under these conditions the car maintains 
a constant speed akin to that of the 
changing traffic signals; all other vehicles 
can keep the same speed (or at least out 
of your way); and no emergencies— police 
cars, accidents, or breakdowns— impede 
the car's progress. In the computer, this is 
known as "access time." All electronic 
parts must be able to complete their re- 
sponses throughout the system in at least 
as fast as the master traffic signal, the 
"system clock." Any part whose access 
time is too slow (like some RAMs) will 
have an adverse effect on the operation of 
the computer. 

Narrow Streets and Garages 

Resistors and capacitors are abundant 
in the TRS-80, but I'll keep the theory at a 
low level for this section. Resistors limit 
the voltage or current received by some 
part of a circuit. They can be found provid- 
ing limited current to light-emitting diode 
displays (LEDs), holding an IC input to a 
one or zero level, or as part of the audio cir- 
cuitry in the video output. Variable 
resistors serve as adjustments to the 
video display or to the power supply volt- 
age being sent to the computer as a 
whole. They act like narrow city cross- 
streets, where only a limited number of 
cars can move across town from the large 
potential auto-streams flowing along 
main avenues. 

Capacitors store an electrical charge, 
releasing it as needed. Capacitors inside 
the TRS-80 store power supply irregulari- 
ties, effectively smoothing them out; they 
delay the transfer of current from one 
logic IC to the next (to adjust the horizon- 
tal or vertical video image, for example); or 
they store and release energy at regular 
intervals to provide clocking signals (what 
keeps your disk drive on for an extra few 
seconds, or times the characters being 
output by your printer). 

A collection of resistors is shown in 
Photo 2. At the bottom right is a group of 
simple resistors, varying in size according 
to the amount of current they are capable 
of handling without overheating. Small re- 
sistors are most commonly available as 
carbon composition (inexpensive, packed 
carbon) and carbon film (resistive film 
plated on a non-conducting base). Small 
resistors make up the bulk of those in the 
TRS-80. 



MMSFORTH VERSION 2.0: 
MORE FOR YOUR RADIO SHACK 
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• MORE SPEED 

10-20 times faster than Laval II BASIC. . . , 
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Very compact compiled coda plus VIRTUAL 
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AM) $59.95* 

MMSFORTH GAMES DISKETTE real lime graphics 4 
board games w/source code Includes BREAKFORTH 
CRASHFORTH. CRYPTOOUOTE. FREEWAY. OTHELLO 
4 TICTACFORTH (requires MMSFORTH V2 1 drive 4 
32K RAM) $39.95* 

Other MMSFORTH products under development 

FORTH BOOKS AVAILABLE 

MMSFORTH USERS MANUAL w/o Appendices, for non 
owners $15.00' 

USING FORTH more detailed and advanced than 
above . $25.00* 

INVITATION TO FORTH detailed beginner book on 

llgFORTH $17.50* 

THREADED INTERPRETIVE LANGUAGES - advanced 
excellent analysis ol MMSFORTHIIke Ian 

Suage. ■ ■ • $19.95* 

ROGRAM DESIGN 4 CONSTRUCTION Intro, to struc 

tured program, good for Forth ■. . $6.95* 

FORTH 79 STANDARD MANUAL • olllcla" reference to 

79-STANDARO word set. etc $10.00* 

CALTECH FORTH MANUAL good on Forth Internal 

structure, etc $10.00* 

FORTH SPECIAL ISSUE. BYTE Magazine (Aug. 1980) we 

stock this collectors Item for Forth ueers arid beginners 

. . $4.00* 

* ORDERING INFORMATION: Software prleaa Include 
manuala and require signing ot a single system.'slngle 
user license SPECIFY for Model I or Moaei in ! Add 
$2 00S/H plus $300 per MMSFORTH and $1.00' pet addi 
tlonal book, Mass orders add 5% lax. For«lgf| orders 
add 20% UPS COD. VISA 4 MIC accepted, nO-unpaio 
purchase orders, please. V^lfc *■' 

Send SAS£ tor free MMSFORTH iBfdmi WW 
Good dea/ers sought 

Get MMSFORTH products from your 
computer dealer or 

MILLER MICROCOMPUTER ->n2 

SERVICES (M9) 

61 Lake Shore Road, Natlck, MA 01760 
(617)653-6136 
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Photo 2. Resistors 



\, The large vertical row of resistors the 
(Shoto depicts are heavy-duty wire-wound, 
porcelain, ceramic.'and "sand" resistors. 
These types are used wherever heavier 
currents are required; a few ceramic ones 
are found in the TRS-80 power supply. 

At the bottom left are three dual-inline 
(DIP) resistor packs that look like ICs, and 
one single-inline (SIP) resistor network. 
Often, digital circuits will require a string 
of "pull-up" resistors, needed to activate 
or keep-stable some part of the circuitry. 
Pull-up resistor values are often the same 
for all eight data lines, so groups of identi- 
cal resistors are combined in industry- 
standard packs such as these. In a TRS-80 
system, you may be familiar with the so- 
called "terminating resistors" required in 
disk drive 0. In the photo, this is the blue 
DIP resistor pack, which is made up of 
eight 150-ohm resistors. 

Finally, variable resistors (also called 
potentiometers) are shown in the top right 
block of the photo. A standard radio 
volume control is followed by eight dif- 
ferent styles of "trimmer" potentiometers. 
The white one at the top right is similar to 
those in the TRS-80 for power supply and 
video positioning adjustments. 

The schematic symbol for a resistor is a 
crunched-up wire, representing its resis- 
tance to the flow of electricity (Example 3). 
Variable resistors can be drawn either 
with an arrow showing they are "center- 
tapped" (a connection to either end of a 
fixed resistor, with a wiper moving in be- 
tween) or merely variable (a single connec- 






Example 4. Variable Resistors 



STANDARD COLOR CODE 
RESISTORS AND CAPACITORS 



Color 


First Figure 


Second Figure 


Multiplier 


Black 








None 


Brown 


1 


1 


10 


Red 


2 


2 


100 


Orange 


3 


3 


1.000 


Yellow 


4 


4 


10,000 


Green 


5 


5 


100.000 


Blue 


6 


6 


1,000,000 


Violet 


7 


7 


10,000.000 


Gray 


8 


a 


100,000,000 


While 


9 


9 


1.000,000.000 



RESISTOR 



Example 3. Resistor 



4nij 

\\ ^^ \Tolerance 

\ Multiplier 

1st and 2nd Significant Figures 

Fig. 5. Resistor Chart 



Photo 3. Capacitors 



tion to the fixed resistor, and one to the 
wiper) (Example 4). 

Reading resistance values is quite sim- 
ple, and has been an industry standard for 
several decades. Resistor values are mea- 
sured in ohms, and these are painted on 
the body of the resistor with color-coded 
bands: The first and second bands are the 
resistance value base number, the third 
band is the power of 10 by which the base 
number is multiplied, and the fourth band 
(if any) is the accuracy of the resistor. Fig. 
5 is a table of color codes. Resistance 
values are usually standard multiples, and 
the most common base values are 10, 12, 
18, 22, 27, 33, 39, 47, 56, 68, 75, 82 and 91 . If 
you can't figure out which direction to 
read the color bands, try both ways, then 
see if the base number matches one of 
those above. Otherwise, borrow an ohm- 
meter. 

On precision resistors (those with one 
percent accuracy), the values are usually 
printed in numbers. Thus, 220 would be 
220 ohms, 473 would be 47,000 ohms, etc. 
Variable resistors always have their nu- 
merical values printed or embossed on 
the body of the part. In schematics, the 
values are written with standard abbrevia- 
tions K and M (kilo = 1,000; mega = 
1,000,000). 15,000 ohms is written "15K 
ohms" or simply "15K." 1 ,200,000 ohms is 
written "1.2M ohms" or simply "1.2M." 
Occasionally you may come across Brit- 
ish schematics, which do not follow the 
American standard. 4K7 is a mildly con- 
densed way of saying 4.7K, or 4700 ohms, 
3M9 is 3.9M ohms, etc. 

For a while, capacitors were also color 
coded, but this practice has not caught on 
in the computer electronics industry. 
Photo 3 shows a small selection of the 
many shapes and styles in which capaci- 
tors are manufactured, including (top to 
bottom by columns) dipped paper, tanta- 
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YOUR WAIT IS OVER! 







B®3 



The fast, simple, affordable way to step up 
your printing... 



FAST. The PBI" (Programmable Buffer Interface) is a 
unique new solution to an age-old problem. If you've had 
it with waiting for your printer to complete a run so that 
you could continue with your work, the PBI is for you. Let 
our PBI wait for your print-out so neither you nor your 
computer has to do any waiting The computer doesn't 
wait on the printer and the printer dosn't wait on the 
computer. The PBI increases throughput and saves time 
by entering data while the printer is printing. The PBI uses 
none of the host computer's memory and allows linking 
one or more host computers and one or more printers. 



SIMPLE. The PBI is easy to use. Simply plug the 
computer cable to the PBI and the PBI to the printer cable 
AFFORDABLE. The PBI will help you avoid the 
expensive purchase of a high speed printer We've priced 
the PBI with the user in mind. 
Choose From These PBI Models: 

• Single Parallel' 

• Dual Parallel" 

• Single Parallel and Single Serial (RS-232) 

• Dual Serial 

• Dual Parallel and Dual Serial 

A" l-'-glc- i-oii a-» i«t Buft<"l 
■ AllCu*- Umi ••• 12«. B.'f«v» 




MicroCompahble 



P. O. BOX 7624 



ATLANTA, GA. 30357 



PHONE (404) 874-8366 



- S#« LM of Adttrtlttra on p*g* 354 
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Photo 4. Electrolytic Capacitors 



Photo 6. Diodes 





Photo 5. Light Emitting Diodes 



lum, ceramic, polycarbonate, polystyrene, 
bead tantalum, ceramic disk, silver mica 
and paper. The general physical construc- 
tion is similar — layers of foil are separat- 
ed by non-conducting material (dielectric). 
The material used, its thickness, and the 
number of layers determine the amount of 
current the capacitor can store, and the 
amount of voltage it can stand before the 
dielectric shorts across. 

In general, ceramic disk capacitors are 
used wherever only ball-park capacitance 
is needed. These caps are temperature 
sensitive and have a tolerance of ± 20 per- 
cent or worse. Paper capacitors are good 
for higher voltages, and dipped paper 
caps are fairly stable. Polycarbonates and 
polystyrenes are used in audio circuits be- 
cause of their cleanness and low noise. 
Silver mica is the choice for close toler- 
ances (within five percent or better), and 
bead tantalums work well wherever preci- 
sion, durable high-capacity parts are 
needed. The TRS-80 uses ceramic disk ca- 
pacitors throughout, except in its power 
supply section. 



Capacitor values are marked in frac- 
tions of a farad. Now, a farad is one heck 
of a lot of capacitance; look at Photo 4. 
These are electrolytic capacitors, where 
the current capacity is increased by using 
a chemical dielectric. The one on the far 
right weighs in at half a pound and is less 
than one-twelfth of a farad! The smallest 
capactor in Photo 4 has a value of five 
microfarads, and the smallest capacitor 
in Photo 3 has a value of 10 picofarads. 
Capacitor values are abbreviated mf, uf, 
or (if for microfarads, and pf for pico- 
farads. Sometimes the f is capitalized 
(mF, pF), and older texts occasionally use 
the term micromicrofarad in reference to 
picofarad. 

Numerical abbreviations in picofarads 
are found on capacitors like those for 
ohms on resistors— 474 will mean 470,000 
pico farads (0.47 microfarads), and so 
forth. Again, British standards are some- 
what different (and even more sane): 
Since the most-used capacitor values are 
midway between the picofarad range and 
the microfarad range, they will write these 



Photo 7. Transistors 



values in nanofarads. So don't be thrown 
if some peripheral devices specifies a "22 
nF" capacitor— it means .022 micro- 
farads. 

The symbol for a capacitor shows its 
function well. Two current-carrying plates 
are separated by a non-conducting mate- 
rial. Electrolytic capacitors are marked by 
a positive ( + ) sign toward one end to in- 
dicate their placement in a circuit (Exam- 
ple 5). 



+ 



Example 5. Capacitors and Electrolytic 
Capacitors. 
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Example 6. LED 

Choosing Replacements 

There may come a time when you have 
to replace a resistor or capacitor in your 
computer. To do this you must obtain a 
part of equal or better quality than the one 
you are replacing. For resistors, ask for car- 
bon film, 1/4 watt, five percent tolerance, 
which can be found as part of the Radio 
Shack 271-1300 series. If the Technical 
Reference Handbook specifies wattage 
higher than 1/4 watt, make sure you get 
the higher wattage or else you'll watch the 
resistor darken, smoke, and snap in half. 
You may, on the other hand, substitute a 
higher-wattage resistor for a lower- 
wattage one if it physically fits in place. 
Make sure that the resistance you choose 
is within five percent of that specified, 
unless you are familiar enough with the 
circuit that you know you can substitute 
another value safely. 

When you replace capacitors, 50-volt 
ceramic disks are fine for the small ones 
scattered throughout the board. Radio 
Shack sells these in its 272-120 series. The 
Technical Reference Handbook parts list 
specifies 12-volt types for about 30 
capacitors, but erring in the direction of a 
higher voltage is wise. Where 16-volt elec- 
trolytic capacitors are specified, 25 or 
35-volt replacements will do fine. Also, 
since electrolytic capacitors have a per- 
centage of error of + 100, - 50 percent at 
best, don't hesitate to replace a 220 mf 
capacitor with a 270 mf capacitor. 

Displays 

One of the prettiest parts of electronics 
is its human interface— light-emitting 
diode (LED) and neon displays. Photo 5 is 
a collection of these displays, including 
(at the top left) 10 red, orange, and green 
single LEDs, from jumbo to micro sizes; 
(second row) nine seven-segment numeric 
LEDs; (third row) three seven-segment, 
multi-character, "bubble" type displays, 
popular in calculators a few years back; 
(fourth row) a jumbo seven-segement LED 
and a multi-character neon display; (ver- 
tical row at right) three larger neon dis- 
plays from desk calculators; (top center) a 
bar-graph LED used for hi-fi level controls 
in place of meters. 

The schematic symbol for a light-emit- 
ting diode is the same as that for a diode 



(see Example 6), with a few arrows repre- 
senting light emission. 

Diodes and Transistors 

Diodes and transistors are the building 
blocks of logic gates and other integrated 
circuits, but I've left them till last because 
you will find so few of them in your com- 
puter. Photo 6 shows (at top) three bridge 
rectifiers, which contain four diodes each; 
(left group) zener diodes, used for control- 
ling voltages; (middle group) small-signal 
switching diodes, found in certain inter- 
facing and logic circuits and for switching 
unwanted signals out of a circuit; (right 
group) rectifier diodes, for transforming 
alternating current top pulsing direct cur- 
rent. The larger diodes at the right can 
handle higher power. 

The schematic symbol for an ordinary 
diode consists of an arrow pointing at a 
bar, showing that electricity may only flow 
in one direction through these device. You 
may see either of the two symbols in Ex- 
ample 7; the surrounding circle is more 
common in older schematics. There are 





Example 7. Diodes 

variants on these diode symbols, the most 
common of which is that for the zener 
diode. A zener diode conducts electricity 
in one direction until the voltage rises over 
a critical point. Then it undergoes a tem- 
porary breakdown, letting the voltage con- 
duct backwards through the device. It is 
an electronic safety value. The broken 
lines at the edges indicate a zener diode 
(Example 8). 




Example 8. Zener Diode 

Transistors were the breakthrough over 
30 years ago that made your TRS-80 possi- 
ble. Although you will find few individual 
transistors inside present-day computers, 
there are still some used for non-logic 



functions. In Photo 7 you can see three 
general types: (top row) audio transistors; 
(second row) four small-signal switching 
transistors; a tiny radar transistor; and 
five high-power transistors. 

Transistors usually have three leads, 
because they are switching or amplifying 
devices. Two of the leads represent entry 
and exit points of some type of circuit; the 
third lead controls the flow of current be- 
tween the entry and exit points. Switching 
transistors flip on and off almost full; 
audio transistors follow the waveform pre- 
sent on the third lead and mimic its level. I 
won't go further with the theory because 
of the many types of transistors, and the 
numerous considerations needed to de- 
sign circuits using them. Among the sche- 
matic diagrams, see Example 9. 





Example 9. Transistors 

More to Come 

In a future column (I'm not promising 
next month anymore!) I'll present a run- 
down on what to do when your computer 
breaks down, oome precautions to pre- 
vent it, and, when things get desperate, 
what replacements you can make that will 
get you up and running. Included will be 
how even a rank amateur with 10 thumbs 
(except my friend Paul) can remove and 
replace a bad IC. 

Updates. 

I'd like to thank the hundred or so 
readers who wrote after reading my report 
of the minimal response to February's 
reader survey, and to those who reacted 
with dismay at my suggestion (in July) 
that I might be moving away from writing 
about the TRS-80 Model I in favor of the 
Color Computer. Yes, I probably will, and 
here's why: I feel the Color Computer is 
faster and more powerful than Model I, II 
or III. More on that sometimes later. 

To those who wondered: Yes, the inter- 
view with Dr. Lirpa was an April Fool joke. 
No, it wasn't a five-volt salami, it was a 
daisy ham borrowed from the Roxbury 
Country Store (thanks, Neal). Yes the pro- 
gram does increase keybounoe rather 
than eliminate it. No, the photo wasn't a 
secret shot to me, it was my wife Claire 
(put on your glasses, folks!). ■ 
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The Newest Peripheral 
for your Microcomputer 

The Encyclopedia for the TRS-80* 



■^ 



What's the key to getting the most from your TRS-80? No, 
it isn't disk drives or printers or joysticks. It's information 
Without a continual supply of information and ideas, you 
cant realize the full potential of the TRS-80. 

Now, you'd think that the 150 pages of articles published in 
80 Microcomputing each month would satisfy even the must 
voracious of TRS-80 users. Rut no! You've asked for even 
more information! 

Our respoase to the clamor for additional information is 
(he Encyclopedia for the TRS-80. a ten-volume reference 
work that is absolutely packed with programs and articles 
carefully selected to help you make the most of your 
microcomputer. You can coasider the volumes of the Ency- 
clopedia to be an extension of the documentation that came 
with your TRS-80. The articles and programs will lx- similar 
to those found in 80 Microcomputing. Each book is full of 
material on programming techniques, business, games, 
tutorials, education, utilities, interfacing . you name it. 

Unlike conventional encyclopedias, the Encyclopedia for 
the TRS-80 will never become stale or out of date. That's 
because the volumes of the Encyclopedia are being issued 
onc-at-a-tiine, over a period of months. This means that each 
new volume will reflect the latest developments and 
discoveries, making this a living encyclopedia for TRS-80 
users. 

Volume I was out in July. Volume 2 will be shipped in 
September. Each volume will contain approximately 270 
pages of solid information . . no advertising. Here's a sample 
of what's included in Volume I: 



The Encyclopedia for the TRS-80 is a\ ailable in two edi- 
tions. The deluxe COLLECTOR'S EDITION is a handsome 
green and black hardcover volume, with the title stani|>ed in 
gold and a colorful protective dust jacket provided. These 
durable volumes are perfect for school and library use and 
make a handsome addition to your personal library. They are 
available for $19.95 per volume. Also available is the more 
economical softcover edition. This contains all the informa- 
tion in the hardcover edition, but at a savings of over 45' !' 
is ruggedly bound for heavy use and has an attractive green, 
ivory, and gold cover. Available for $10.95 per volume. Roth 
editioas are in an easy-to-read 6" x 9" format which is perfect 
bound to remain flat when opened. 



80 MICROCOMPUTING ^V 

SPECIAL INTRODUCTORY OFFER 



Onto the entire set (the first ten sol 
iiiutM ul ill. F.ncvrlopcdu for the 
ntS-MJ ..cut rweive the tenth volnna 
KBKK! 

PAY ONLY $184.00 for the tint ten 
volume* of the deluxe hardcover COL- 
LI".* TOR'S F.OlTION-a regular 
SlfW SO value 

PAY ONLY 183.00 lor the lirvt ten 
volumes oi il» vuftcovei edition a 
regular 1109.50 value 
Pl.t'.S This s,« ul oiler include* I IN 
shipping and handling charges i an a<l<li 

nana! aavtaapal $15.00! 

Beat inflation hv busing the whole set 
now we (iinnot guaranty iIm ii 

single volume priei* lor future volumes 
Yon cannot lose! Preview the first vol 



ume of the Ml and judge for sm.rvelf II 
the Km-stlooedia for the THN-Kfl dues 
not meet sour needs or expeetatioits. just 
return tile lirsl volume within Ii n dass 
and we w ill refund the entire amount .>! 
your purchase I! at am lime von .ire 
dissatisfied, sou mas cancel the remain 
ing volumes ami receive a refund fat? d» 
full vain.- ol tlnis. vi.Iimim-v IIm- l««*.s 
will lie automatic-alls ship|ied I" v. hi 
everv '■ weeks via I f"s lake advantage 
of this offer ik>w ! You can't afford to inivs 
out on tin newest peripheral — the r'.n- 
eveiopedia for the TRS-80 Call sour 

■nkf in tad*) mi l I REf at 1-h<io- 

Hl "i-171 m iim tl.ri.«i|»inlielow or the 
jHistage |iuid postcard UK lodi-d In 'his 
uiaga/ine 



Four Graphics Methods — Improved 
techniques for dealing with the 
TRS-80's low resolution graph- 
ics. 

TTY Interface — Build an interface 
hookup a Teletype to a TRS-80 

The President Decides — A thrilling 
simulation that lets you make de- 
cisions as if you were President of 
the United States 

Measure Iastructional Effectiveness 
Many programs teach or tutor; 
this one helps determine the ef- 
fectiveness of the lessons. 

The Invoice — A program for small 
businesses which produces cus- 
tom invoices. 

Punch Out Your Disks— Double 
your disk storage in seven easy 
steps 



THE Encyclopedia for the TRS-80* 
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YES, please reserve for me a complete set of the first ten volumes of the Encyclopedia for the TRS-80 
. I want to go first class so send me the deluxe Hardbound COLLECTOR'S EDITION— a $199 50 value for 
$164.00 postpaid. A total savings of $34 95 over the single volume price 1 (Order EN8100) 
Send me Ihe blue collar" softcover edition — the same information at a substantially lower price, a $109 50 
value lot $8300 postpaid! A total savings of $2595 over Ihe single volume price' (Order EN8080) 

YES, | WANT TO START MY ENCYCLOPEDIA COLLECTION NOW 1 

Volume 1 ol Ihe deluxe hardcover COLLECTOR'S EDITION (EN810H $19 95' ' 
. Volume 1 of the Softcover edition (EN8081) $10.95" 

Volume 2 of the deluxe hardcover COLLECTOR'S EDITION (EN8102I $19.95" 
Volume 2 of the Softcover edition (EN8082) $10 95* ' 

"(Please enclose $1.50 per volume for shipping and handling All volumes will be shipped UPS it the • . 
street address is provided; otherwise shipment is by 4th class book rate ) Allow 2-3 weeks for delivery 



Payment enclosed Please charge to my VISA 

Card* MC Interbank** 

Name 

Address 

City Stat* 



Mastercard 

Expires 



AmEx 



Z'P 



^ 



Signature 
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80 Microcomputing. Pine St.. Peterborough NH 03458 
"TRS-80 is a trademark of Tandy Corp. 
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Networks Wire You to the World 



Strung out between the terminals and 
microcomputers of America and the 
computer banks of The Source, Compu- 
Serve and several hundred other timeshar- 
ing services worldwide, are thousands of 
miles of leased telephone lines. 

Originally designed for use by larger 
computers, this international system of 
linked common-carrier networks and the 
vast majority of the databanks they serve 
are compatible with TRS-80s and Tandy's 
Videotex terminals. 

While most services are specialized, 
their large number ensures that they have 
something to offer everyone, whether it's 
timely legal advice, medical information 
or a handy way to communicate with 
someone overseas. 

The networks cut the cost of reaching 
the data banks. Some of them can handle 
certain compatibility problems between 
different computers and protect data from 
transmission problems ranging from line 
noise to physical breaks in the cables. 

Most users, however, are only aware of 
the service they are subscribing to. 

Eariy Experiments 

Common carrier data transmission net- 
works like Tymnet and Telenet grew out of 
experiments in the late 1960s and 1970s. 
Telenet. Vienna, VA, was one of the first 



experiments which went public after sev- 
eral years of successful private operation. 

Lawrence G. Roberts, one of the net- 
working pioneers involved in Telenet from 
the start, writes in his article "The Evolu- 
tion of Packet Switching" (IEEE Pro- 
ceedings, June 1978) that the networks 
are based on a very different approach to 
communications than that used for most 
electronic communication methods. 

Telephones, Telex and most radio 
transmissions, for instance, are pre- 
allocation methods. That is, a transmis- 
sion channel is allocated exclusively to 
each user, either on a permanent basis as 
with commercial radio frequencies or on a 
per-use basis as with the telephone. Even 
if the assigned user is not communicating 
at a given moment, no one else may use 
any part of the channel allocated to him. 

An alternative to this method is 
dynamic allocation which incorporates a 
time-sharing concept. This is the system 
used by telegraph and postal systems. 

Rather than giving each user a direct 
link to the person he wishes to commu- 
nicate with, these systems allocate chan- 
nels only after a message is received. The 
messages ate moved from point to point 
(for example, post office to post office) 
within the system until they reach their 
destination. The system does not provide 



a direct, complete link between message 
sender and receiver. 

While both kinds were tried for comput- 
er networking, a form of dynamic alloca- 
tion called packet switching proved to be 
more effective. This method was devel- 
oped simultaneously in the mid-1960's in 
Britain by Donald Davies of the National 
Physical Laboratories, who named the 
system, and in the US by Lawrence G. 
Roberts at the Advanced Research Proj- 
ects Agency (ARPA), Cambridge, MA. 

Both these networks consisted of com- 
munications cables connecting minicom- 
puter packet switches. To use the system 
you call the nearest packet switch, tell it 
who you want to contact and give it the 
message you want to send. It chops your 
message up into discreet packets, each a 
standardized size. Davies' network, for in- 
stance, used 128-byte packets. 

The network determines the optimal 
path for the message, and the computer 
feeds the packets out to the next switch in 
that particular path. This method allows 
each packet to be checked to make sure it 
has not been garbled and determines the 
route for the packet to the next switch. 

While Davies wrote the original design 
for the network, European communica- 
tions people were slow to recognize its 
value, and Davies was only able to set up a 
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one-switch network to connect the com- 
puters at the National Physical Labora- 
tories. 

Launching ARPANET 

The story at ARPA was different. In 1968 
work began on the development of a 
packet switching network to connect 
computers involved in ARPA-sponsored 
research at several major universities. The 
result was ARPANET which used 50 kilo- 
bit per second (kbps) leased lines and 
minicomputer packet switches. It went in- 
to operation in December 1969 with just 
four client computers. By March 1977 it 
had 111 connections. 

ARPANET proved dependable and 
demonstrated several advantages over 
pre-allocation networks. It made more ef- 
ficient use of the leased lines which, in a 
period of increasing line costs and de- 
creasing computer costs, means savings. 

Since each switch or node checks each 
packet and can get a retransmission from 
the sending node if it detects an error, it 
guards against transmission garbles. It 
routes each packet separately, so it 
reacts instantly to overloads and even 
physical breaks in the transmission lines. 

The ARPANET and National Physical 
Laboratory experiences encouraged 
others, particularly in France, Germany, 
Canada and Japan, to start networks. By 
1974 five were being planned, and those 
involved decided it was time to agree on 
standards so they would be able to inter- 
connect. 

By March 1976 they had formed the 
CCITT, an agency of the United Nations 
based in Geneva, Switzerland, and agreed 
to Recommendation X.25, which estab- 
lished basic rules for making networks 
compatible. Because of this foresight, to- 
day there are 35 countries worldwide con- 
nected by networks. 

At this point the groundwork was fin- 
ished, and public packet-switching net- 
works began to develop. In most countries 
these were sponsored either by the na- 
tional government or the national tele- 
phone monopoly. The Trans-Canada Tele- 
phone System, for instance, started Data- 
pac, the dominant network in Canada, in 
1974. 

Things developed differently in the US. 
According to Roberts, the developers of 
ARPANET offered to sell the system to 
American Telephone and Telegraph 
(AT&T) in the early 1970's in the hope it 
would become the basis of a public net- 
work. AT&T was uninterested. 

At that time, however, the Federal Com- 
munications Commission (FCC) made 
some changes in its regulations designed 



to increase competition in the communi- 
cations field. These allowed ARPANET to 
go public on its own in 1973 under the 
name Telenet. 

Competition Emerges 

Meanwhile, Tymeshare Corp., Cuper- 
tino, CA, a timesharing company, had 
founded its own private packet switching 
network to serve its customers in 1969. 
According to company spokesman Dick 
Jokinen, "One day someone came along 
who wanted to use our network to reach 
their own computers." 



Tymshare was interested, but this 
would make it a common carrier under 
FCC regulations. In order to comply with 
these rules, they split Tymnet off as a 
wholely-owned subsidiary in 1977. 

While Tymnet is a packet-switching net- 
work and is fully compatible with interna- 
tional standards, it is significantly differ- 
ent from Telenet in several ways. For one 
thing, Tymnet uses 66-byte packets. 

Also, it is more centralized. While Tele- 
net depends on its thousands of nodes for 
all routing and other computer functions, 
Tymnet uses a combination of packet 



Dr. Lawrence Roberts, 
The Quiet Revolutionary 



Dr. Lawrence Roberts is an easy-going 
man. To talk to him you would never 
think him a revolutionary. Yet, he is one of 
the original developers of the packet net- 
working concept and the designer of the 
first operational packet system. 

Today, as president of GTE's Subscrib- 
er Network Projects division at Vienna, 
VA, he remains intimately connected with 
the network he started at the Advanced 
Research Projects Agency (ARPA), Cam- 
bridge, MA, in 1967. 

Roberts said the groundwork for Tele- 
net was laid while he was with MIT's Lin- 
coln Laboratory, Lincoln, MA. "We had 
pretty well developed time sharing in the 
research community in the early 1960s, 
so I felt that was going to happen in the 
business world, but I wanted to go further 
and access computers remotely." 

Can Computers Communicate? 

The first question to be answer was 
whether the computers would communi- 
cate at all. No one really knew. MIT had a 
mainframe computer in Lawrence and an- 
other in a laboratory in California, and 
Roberts hooked them together using a 
leased telephone wire, "to see how the ma- 
chines would react." 

"At that point I concluded it was feasi- 
ble to link machines," he said. "Then I 
started worrying about the networking 
aspects of it." 

Eventually he developed the concept of 
packet networks. He said it is natural for a 
computer person to think of digital com- 
munications in packets instead of in ana- 
log streams. Roberts wasn't the only one 
working on this idea, but he didn't discov- 
er that until after he had finished his 
design. 

"There were other activities going on, 



particularly in England, and we corre- 
sponded, but they were not doing any 
building," Roberts said. "We had already 
finished our conceptual work when we be- 
came conscious of their conceptual work. 
It also turned out Paul Barron had written 
some things in the early 1960s for the Air 
Force, but no one had heard of that until 
after our network was designed." 

Unlike the others, Roberts didn't just 
leave his network on paper. In 1967 he 
joined ARPA, a group which, among other 
things, sponsors research on several uni- 
versity campuses. He interested them in 
the idea of building an experimental net- 
work to link computers, and ARPANET 
was born. 

Selling the System 

It wasn't quite that simple, actually. 
While Roberts and, apparently, his bosses 
at ARPA believed in the concept, virtually 
no one else did. 

"The communications community 
(which was telephone at that time) 
thought it would never work," Roberts 
said. "They have a certain model and 100 
years of working with circuits of their kind, 
and they couldn't see it." 

Roberts met with a different kind of re- 
sistance from the universities. "They were 
violently against it," he said. "They 
thought I was crazy." 

Each university wanted to have com- 
plete control over its own system and did 
not want to share anything. At the same 
time, none of them believed that any of the 
others would have anything interesting to 
offer. 

"That quickly changed when they found 
other people had exciting things and they 
could do research through the system." 

ARPANET paid another dividend in 
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terms of savings. "We developed ARPA- 
switching minicomputers and a central 
bank of four mainframe "supervisors." 
These keep track of the condition of the 
system. 

When you call Tymnet and tell your 
local node what timesharing service you 
want, it tells the supervisor. The super- 
visor establishes the route your data will 
follow. The supervisor also steps in to re- 
route data if a line is broken or some part 
of the network is blocked. 

The nodes take care of establishing 
packets, checking them for transmission 
errors and retransmitting them whenever 
necessary. As with all other packet switch 
networks, its nodes handle several calls at 
once, operating like an electronic post of- 
fice. 



Today Tymnet uses more than 700 
nodes, services more than 350 host com- 
puters and can carry more than 4,000 
simultaneous users. It reaches about 250 
US cities. Telenet, a division of GTE Corp., 
Stanford, CT, reaches about 300 cities and 
carriers 200 timesharing services. 

Presently these networks are all using 
leased telephone lines to carry their 
transmissions. Roberts estimates that, 
depending on the kind of data being sent, 
packet switching makes from three to 100 
times better use of its lines due to the effi- 
ciency of time sharing. 

The extra computer needed for packet 
switching also costs money, but it is 
cheaper than the rising cost of transmis- 
sion lines. 

Because of this, packet switching be- 



came more cost effective than prealloca- 
tion several years ago. Roberts predicts 
that as that gap widens virtually all elec- 
tronic communications will be by packet 
switching. 

2001 

Roberts also predicts the eventual 
replacement of telephone leased lines 
with a variety of more efficient alterna- 
tives. He says as traffic grows, present 
trunklines, which work at 56 kbps, will be 
replaced with T1 digital trunks which 
operate at 1.544 megabits per second, 
allowing a great increase in the transmit- 
ting capacity of the system. 

He also says satellite transmission will 
become economically feasible for long- 

Continues lo page 56 



NET as a research tool and to access the 
research sites in the community," Roberts 
said. "One of the goals we had was to 
lower the cost of computer resources, and 
we did that by a factor of three by allowing 
universities to share resources instead of 
duplicating them." 

ARPANET also quickly dispelled the 
worries of the communications engineers 
who had said it would not work. It did not 
lose packets; it did operate smoothly and 
efficiently. 

Ma Bell's Reaction 

ARPANET did not impress everyone, 
however. One group that was not excited 
at all was American Telephone and Tele- 
graph, the parent company of Bell Tele- 
phone, as Roberts found out when ARPA 
tried to sell the network to them. 

"The Bell lab's evaluation said it wasn't 
compatible with anything else in the Bell 
network," Roberts said. "Actually it 
wasn't incompatible with their network— 
we were using rented Bell lines— it was in- 
compatible with their thinking." 

Bell apparently had decided back in the 
early 1960s that the Sherman Anti-Trust 
legislation made it impossible for them to 
get involved in data networks, so they nev- 
er did any research in them. They have 
lived to regret that decision. 

Today they are struggling to develop 
their own packet network under the name 
Advanced Communications Systems 
(ACS). Roberts says they are still putting 
hundreds of man-hours into designing the 
system and are at least two years away 
from building it. Meanwhile both Telenet 
and Tymnet, Cupertino, CA, are operating 
smoothly. 

One way or another digital data transfer 



will take over, probably in this decade. 

"For the home market it will take 
longer," Roberts said. "In business it is 
happening very quickly, as businesses go 



"Actually it wasn't 

incompatible with (Bell's) 

network — 

we were using rented 

Bell lines — 

it was incompatible with 

their thinking." 



to leased lines connecting buildings full 
of terminals to the network directly." 

The problem with the home market is 
the microcomputers are spread out. To 
solve this, GTE, the Japanese and several 
other groups are working on digital tele- 
phoning. In fact, the Japanese telephone 
company is presently installing a small 
operational digital telephone system. 

GTE is working on a method to allow 64 
kilobit (kb) data transfer through paired 
wire, an idea which Roberts terms quite 
feasible. He said the system would actual- 
ly work at about 200 kb, but would be alter- 
nating so you could transmit in one milli- 
second, receive in the next. 

Roberts envisions a telephone-comput- 
er terminal combination of the future 
which would handle both voice and digital 
data transfer at the same time, to and 
from different destinations. 

It would, for instance, tell you while you 



are taking one call that someone else is 
calling. It would get the caller's name and 
number and tell him you are on a call and 
either put the caller on hold or call back. If 
he wanted to send a written message, he 
could enter it and your phone would store 
it for you. 

If you had a list of people you needed to 
talk to, you could have your phone send a 
packet to their phones and find out who is 
free. Your phone would then make voice 
contact automatically. 

Your phone would also be able to take 
and store messages and communicate 
with time-sharing computers over the net- 
work. It would be able to tell callers if you 
are unavailable and when you will become 
available. It will be able to direct them to 
another phone where you can be reached. 

Roberts said the cost of lines makes it 
absolutely necessary the two systems, 
voice and data, be combined, although it 
is not impossible that voice transmission 
would remain analog for some time and 
the two methods would simply share the 
same cables. 

Roberts is working in the forefront of 
this development with GTE. He is respon- 
sible for the development and marketing 
of hardware that will complete the digital 
communications revolution. 

He remains optimistic about the future 
of packet switching. "It's my belief that 
the only way to handle data is to do the 
economics and the protocol conversions 
(to allow different machine to communi- 
cate with each other)," he said. "It will 
continue to be the major and probably the 
only way to handle data. There's' really no 
other way to do it."B 

by Bert Latamore 
80 Microcomputing staff 
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Ethernet Alive at Stanford U. 



Local networking may be the hottest 
thing in business communications 
since the telephone. A network changes 
the microcomputer on an executive's 
desk from an isolated business machine 
into an integral part of a company-wide 
computer system. 

It allows an executive in his office in 
one building to instantly send written in- 
formation, charts, diagrams, worksheets, 
etc., to another executive in another office 
in another building. 



' ' Ethernet is one of 
20 to 30. . .systems 



It allows him to compose a letter, cor- 
rect it himself, then send it directly to a 
spinwriter in the mailroom for printing. It 
allows him to receive up-to-the-second in- 
formation from the firm's central data 
banks on any aspect of his company's ac- 
tivities from parts in stock to the book bal- 
ances whenever he needs them. 

Such a tool creates a large business 



market, and many firms, from large com- 
puter manufacturers like Digital Electron- 
ics Corp (DEC) to tiny components 
makers, have developed networks and are 
supporting them with the necessary hard- 
ware and software. 

Ethernet 

One of the most interesting of these is 
Ethernet. Several manufacturers, includ- 
ing Xerox, DEC and Intel have promised to 
provide support to it. 

This network, developed by Xerox, is 
barely out of the experimental stage, and 
most components are not yet available for 
it. An experimental version is running at 
Stanford University, Stanford, CA. 

The Stanford Ethernet is a three mega- 
bit system, and the equipment and soft- 
ware used were part of the experimental 
system Xerox built when developing the 
10-megabit Ethernet. Xerox donated the 
experimental equipment to Stanford, Car- 
negy Mellon University and MIT. A group 
at Stanford has been working with the ex- 
perimental system. It is operating suc- 
cessfully, interconnecting 25 computers 
on campus. The object of the experiment 



Networks 

continued from page 55 

distance transmissions when the excess 
data flow exceeds 100 packets per second 
between two cities. Because of the built-in 
270 ms delay in one-way satellite trans- 
missions this would not be acceptable for 
transmission of interactive traffic but 
could be used for batch data transmis- 
sion. 

Roberts also spoke of packet radio with 
local distribution systems. Local distribu- 
tion is the most expensive part of a net- 
work. In this alternative to land lines, 
several clients would share a frequency. 
Each would broadcast to the node only 
when it actually has data to send, he says. 

Tymnet recently announced it was try- 
ing a packet radio system in San Francis- 
co and a satellite link between San Fran- 
cisco and New York City. The experiments 
follow a January FCC ruling reallocating 
the 10.55 to 10.68 GHz RE spectrum to 
digital electronic message services, both 
for local distribution microwave transmis- 



sions and satellite communications. 

As the cost of copper continues to in- 
crease and the cost of computing drops, it 
becomes easy to visualize a future in 
which dynamic allocation networks domi- 
nate telecommunications. Cable tele- 
vision (and radio), with its promise of 
unlimited channels, is growing rapidly. 
Packet switching could greatly improve 
its economics. 

Even telephone service may go this 
way. However, Roberts says, voice 
transmissions cannot be condensed as 
much as digital transmissions can, so 
such a change may not be economical in 
the near future, especially as it would in- 
volve the complete rebuilding of a large in- 
place system. Because of this, electronic 
mail sent through packet networks may 
become serious competition for the tele- 
phone. 

Whatever the future, the networks are 
here today which provide a doorway to a 
whole new world. ■ 

by Bert Lata more 
80 Microcomputing staff 



is to determine whether Ethernet or Ether- 
net-type network technology has a place 
on Stanford's campus. 

10,000 Computers Expected 

The current population on campus of 
250 computers and around 2,000 termi- 
nals is expected to grow to something like 
10,000 in 5 to 10 years. They hope to devel- 
op a network or system of networks to al- 
low most or all of these to interconnect. 
While a single Ethernet system would not 
be able to connect all the computers 
spread out around the several-acre Stan- 
ford campus, it could be used on a more 
limited scope in a single building or a 
large number of Ethernets could be linked 
together to do the job. 

Simple Packet System 

Ethernet is a packet system but with a 
much simpler and more limited method of 
operation than the intercontinental com- 
mon-carrier systems. When you send a 
message through Ethernet, the system 
chops the message up into packets in- 
cluding addresses indicating what stop 
on the system the message is being sent 
to. Then it inserts your packets into the 
stream of packets running through the 
Ethernet cable. 

So far its operation closely resembles 
the common network. However, the Ether- 
net arrangement does not include any 
packet-switching computers, and all 
packets follow the same path through a 
single cable. 

Each client computer on the system 
reads the addresses of every packet going 
past. If the packet is for it, the computer 
captures and stores it. If not, it passes it 
back into the system. 

Ethernet by itself is even more limited 
than that. Ethernet is not a complete sys- 
tem; it provides only the bottom two of the 
seven levels of "protocols'' or software 
and hardware packages needed for a total 
network system. What it does do is give 
you the connection devices to attach your 
machines to a cable and the interfacing 
software to allow it to create and address 
the packets. 

It does not include application pro- 
grams, for instance, which would instruct 
machines on how to communicate with 
each other. Ethernet is meant to' provide a 
common network base over which the net- 
working of different firms' machines can 
be accomplished. 
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This does not mean that DEC machines 
will be able to talk with Xerox comput- 
ers—unlike the common carrier networks, 
Ethernet does not handle any interfacing 
problems. These are taken care of by the 
higher level protocols which the Ethernet 
package does not include. 

Ethernet also does not include any pro- 
vision for confirming that the receiving 
machine gets the message sent to it. If 
that machine is turned off or malfunction- 
ing or if one of the packets are addressed 
incorrectly, the message will never arrive, 
and without some kind of confirmation 
the sender will not know this. This must 
also be included in the higher level pro- 
tocols. 

Physical Limits 

Ethernet has physical limits as well. It is 
a baseband system as opposed to a 
broadband system. This is like a tele- 
phone line which is a baseband system 
able to handle comparatively few mes- 
sages at once while a television cable is a 
broadband system able to carry hundreds 
of channels simultaneously. 

Additionally a single system cannot be 
more than 2,500 meters long. You can con- 
nect several Ethernets together using 
"gateways," however. These are devices 
used to interface different networks. Al- 
ternatively, an Ethernet system can be 
connected to a different kind of network, 
including the common carrier networks, 
using gateways which would translate be- 
tween Ethernet and the other network's 
protocols. 

Not On Market 

Part of the problem with determining 
the economics of the system is that the 
commercial hardware and software is not 
yet on the market and not expected to be 
for 18 to 24 months. 

Meanwhile, Ethernet is only one of 
some 20 to 30 possible networking sys- 
tems, each with their own advantages and 
disadvantages. Some, like the Tymnet lo- 
cal network which is really a smaller ver- 
sion of its common carrier network com- 
plete with packet switches, have much 
greater capability in terms of area covered 
and number of machines it can handle. 

Others, like Omninet by Corvus Sys- 
tems, which does not even use coaxial ca- 
ble but runs on simple twisted pair wire, 
have less capability than Ethernet but are 
probably less expensive. 

The question is what system fits the in- 
dividual's needs and pocketbook. ■ 

by Bert Latamore 
80 Microcomputing staff 



Four Hundred Databases 
Await Your Microcomputer 




CompuServe, The Source and, recent- 
ly, the Dow Jones Electronic News, 
have received a great deal of press atten- 
tion as interactive electronic information 
services for general microcomputer use. 

They are, however, only the start of the 
list of available data bases. Several hun- 
dred of these exist in 35 or more countries. 

Most were not originally designed for 
use by home microcomputers; however, 
the networks automatically handle most 
compatability problems, and as the 
microcomputer market grows, more data 
base publishers are becoming conscious 
of compatibility and are making efforts to 
take care of formatting and other residual 
problems. 

It is impossible to list all of these ser- 
vices here. Both Telenet, Vienna, VA, and 
Tymnet, Cupertino, CA, publish direc- 
tories showing most of the services they 
connect to. If you want to subscribe to a 
service, you must deal directly with that 
service, not with the network. All network 
charges are included in the fees you pay 
for using the service. 

Here are a few of the data bases: 

• Berkeley Solar Group, Berkeley, CA, of- 
fers solar energy analysis, weather data 
and other services tor the solar energy in- 
dustry. 

• Blaise, British Library, London, 
England, includes medical data bases, a 
listing of all British-imprint books ac- 
quired by the Library of Congress and a 
document-ordering service. 

• Bridge Data Co., St. Louis, MO, gives 
common stock quotes and other services 
to investors. 

• Bodart, Inc., Williamsport, PA, offers 
800,000 English-language monographs, 
including a descriptive list and an on-line 



ordering service. 

• Comcap Computing Systems Oakland, 
CA, provides technical time-sharing ser- 
vices for civil and structural engineers and 
land surveyors. 

• Dr. Dvorkovitz & Assoc, Ormond 
Beach, FL, offers what is reputedly the 
largest data base of licensable tech- 
nology in the world. 

• E. H. Boeckh Co., Milwaukee, Wl, pro- 
vides building cost estimates for insur- 
ance appraisers, developers, contractors, 
etc. 

• Florida Computer Inc. (FCI), North 
Miami, FL, has daily and historical data on 
the United States, Canadian and London 
commodities markets for speculators, 
hedgers and brokerage houses. 

• Lockheed Information Systems, Paio 
Alto, CA, has more than 100 data bases 
holding more than 30 million records giv- 
ing references to published articles, con- 
ference papers and technical reports on a 
wide range of subjects. 

• National Library of Medicine, Bethesda, 
MD, provides medical information in- 
cluding a 500,000-citation file of abstracts 
and references and is one of several medi- 
cal services available. 

• New York Times Information Service, 
Parsippany, NJ, carries abstracts from 
The New York Times and more than 60 
trade publications. 

• QL Systems Limited, Ottawa, Canada, 
has 40 or more data bases on Canadian 
subjects, including Canadian law, aquatic 
environmental data, fisheries, mining 
technology, energy, business, metals and 
Parliament. 

"Several hundred . . . 

databases exist in 35. . . 

countries. " 



• Weather Systems International Corp., 
Bedford, MA, provides past, present and 
forecast weather data and past and pres- 
ent sports and business information. 

• Westlaw, West Publishing Co., St. Paul, 
MN, gives full text and headnotes t>f deci- 
sions in all federal courts and incourts of 
all 50* states. ■ 

by Bert Latamore 
80 Microcomputing staff 
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Micro for Hire— Four Bits or Eight 




Ask her, and Head Librarian Marion 
Boben will tell you that she isn't at all 
threatened by the machine. The fact is, 
she's fascinated by it. It's been earning 
extra money for her library, and she hopes 
it stays right where it is— near the card 
catalog, just within sight of her checkout 
desk. 

With the exception of its coin slot, the 
cassette-equipped Model I is not very ex- 
otic. There is no disk drive, no expansion 
interface, no printer. The '80 has generat- 
ed a lot of interest among library regulars 
in Strafford, a suburban community of 
23,000 just outside of Philadelphia. It even 
achieved date-line status for the town on 
the Associated Press wire when a story 
about the library's new addition appeared 
in several newspapers across the country. 
There aren't many microcomputers in 



Taxi, local businessmen getting their feet 
wet in computerized Accounts Receivable 
and general ledger bookkeeping, middle- 
aged parents trying to become computer 
literate before their children, and students 
from the Junior and High Schools doing 
their computer programming class home- 
work. 

Marion Boben's machine has been 
swallowing change at a respectable rate 
since last December. Use has fallen off 
slightly during the summer, but she's sure 
the soothing silence of the library will 
once again be broken by the clink of drop- 
ping quarters come fall. 

Straightforward Installation 

The Model I installation in theTredyffrin 
Public Library is straightforward. A 
TRS-80 is connected to a power-interrupt 
device controlled by a timer. Drop 50 cents 
into the slot and the '80 comes alive— for 
15 minutes. Three minutes before shut- 
down the user is warned that a crash is im- 
minent. At that point more money can be 
deposited or operations terminated. The 
microcomputer has not been specially 
modified: it has no kid-proof keyboard or 
protective enclosure. The only precaution 
taken is bomb-proofing the coin box. 

The one-armed '80 is the brainchild of a 
Philadelphia firm called Compuvend, Inc. 
Compuvend, a division of Computer Sys- 
tems, Inc., has placed the coin-operated 
micro in the Tredyffrin Library strictly on a 
trial basis. Compuvend's president, Will 
Zimmerman, is encouraged by the results. 



"Zimmerman told 80 Microcomputing 

his new company has been besieged 

by requests for information since 

the AP article about the 

mercenary microcomputer appeared. 



public access settings yet and even fewer 
for rent. In Strafford, however, if you've 
got the money, the Tredyffrin Public Li- 
brary has the microcomputer: four bits for 
15 minuses or $2 an hour. 

Who is using the rent-a-brain? Marion 
Boben says it's hard to categorize the 
users. There are 15-year olds who plunk 
down 50 cents for 15 minutes of Space 



Zimmerman told 80 Microcomputing his 
new company has been besieged by re- 
quests for information since the AP article 
about the mercenary microcomputer ap- 
peared. One group that has exhibited ex- 
ceptional interest is the electronic arcade 
game industry. 

Response has been so encouraging 
Zimmerman is planning to offer several 



versions of his coin unit. The Series 10 will 
accept only coins, the Series 20 will be a 
"dollar bill recognition unit" and, even- 
tually, a version that will accept credit 
cards will be marketed. 

Coin-Op Printer 

Zimmerman has other plans as well. He 
hopes to have a companion coin-operated 
printer available soon for those who need 
a printout and are willing to pay for it. In 
addition, he intends to make large data 
bases such as The Source available on an 
auto-dial, cost-per-minute basis from 
public access settings. 

In the meantime he is dickering with 
Tandy, Apple, Atari and other microcom- 
puter manufacturers for the right to sell 
their equipment on a non-exclusive dealer 
basis. Two of these deals have been se- 
cured already, but Zimmerman isn't will- 
ing to name them. 

Zimmerman supplies a variety of soft- 
ware with his system, selected to be of in- 
terest to homemakers, businessmen and 
students. The machine Marion Boben is 
using came with a 20-program library that 
included games, Basic language tutorial 
tapes, statistical analysis programs, 
home-budgeting routines, vocabulary drill 
programs and a payroll program. Users 
are free to purchase software from other 
sources if they desire or write their own. 

Though only one prototype is being 
field-tested by Compuvend at present, 
Will Zimmerman is confident that great 
potential exists in the public access 
market. He told 80 Microcomputing, "My 
gut feeling is that this (the rent-a-comput- 
er) market could be as lucrative as the 
photo copier market has proven to be in 
public settings." He also said that since 
libraries are in the information business 
and the microcomputer is the tool of the 
information age, its placement in libraries 
is inevitable. 

While the information age may have 
finally arrived at Marion Boben's library, 
its premier tool, the microcomputer, is be- 
ing used mostly for game playing and 
teaching computer programming. Marion 
Boben is not disheartened, though. In her 
opinion, public access computing may 
take the microcomputer out of the realm 
of mystery and place it in the hands of the 
masses, providing, of course, that they 
have the ability to pay.B 

by Chis Brown 
80 Microcomputing staff 
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DBS... 

true data base management 
for your TRS-80 ™ 

Your Model II is not a toy... and neither is MDBS. 
MDBS is the serious tool for applications development. 



Harvey M. Weiss, 

an independent 

software reviewer: 



ONLY MDBS has 
all these features! 



"MDBS is truly a data base management system. . ., not a file management system." 

"MDBS... offers the data manipulation, query, and report-writer capabilities of a DBMS 
found on much larger and more complex computer systems." 

"MDBS has come to the rescue with . . . products whose ability to reduce development time 
and implement processes not available elsewhere make them invaluable to integrators and 
developers of /uc-based systems. [With MDBS,]. . .program development and data base 
description is simple." 

For the complete Weiss review, see "Downscaling DBMS to the Microworld." Mini-Micro 
Systems, April, 1981, pp. 187-195. 

Flexible, powerful data structuring capabilities: network and hierarchical data structures, 
including direct many-to-many relationships (not available elsewhere). 

Genuine data base management capabilities: far surpasses file management in data 
independence, automatic maintenance of relationships, and control over data redundancy. 

English-like, nonprocedural query language interface: ad hoc queries result in theautomatic 
generation of desired reports, tables, files, and relations. 

Host language interfaces, including various BASICS, COBOLs, PASCALS, FORTRAN, PL/I, 
C, and several assemblers. 

Extensive built-in data access security (256 levels). 

Automatic transaction logging and data base recovery 

Dynamic data base restructuring. ..and many other advanced data base management 
features. 

Is MDBS right MDBS is written in Z-80 machine language and runs under TRSDOS or NEWDOS with TRS 

for your System? DISK BASIC; under CP/M® (and similar derivatives) with CBASIC2, PL/1, PASCAL Z, 

PASCAL M, PASCAL MT+. BDS C, CIS COBOL, and Microsoft COBOL, FORTRAN, or BASIC 

MDBS code size is only 18K to 20K bytes for Models I and II. 

MDBS is independent of the types and sizes of disk drives. Supports data base spread over as 
many as eight disk drives. 

T© learn more • For free literature about serious data base management on Models I and II, call, write, or TWX 
us. We'll include a pamphlet on features to consider when choosing a software tool for 
application system development. 

For a practical introduction to true data base management for small computers, please send 
$20 (Indiana residents, add 80C tax) for PRIMER/GUIDE booklets. 

' For a comprehensive DOCUMENTATION PACKAGE consisting of THE PRIMER plus user 
manuals covering the MDBS, QRS, RTL, and DRS, please forward $60 (+ $2.40 Ind. tax). 



■»■ 



Free pampnlet 



Setting standard* of excellence for data base 
software. . .worldwide. 



Micro 
lliitii Base 
Susf cms. inc. 

Box 248 

Lafayette, Indiana 47902 

31 7-448-1 61 6/TWX 810-342-1881 

Dealer/distributor/OEM inquiries invited. 




□ Please send me free literature on the MDBS. 

□ $20 (Ind. tax 80C) enclosed for MDBS PRIMER 
and GUIDE (total 97 pages). 

□ $60 (Ind. tax $2.40) enclosed for Complete 
MDBS DOCUMENTATION PACKAGE. 



Name 



(Please print) 



Title 



Company 
Address _ 



(State) 



(Z<-» 



City 

Phone : 

MAIL TO: Micro Data Base Systems, Inc. ^315 
Box 248-M 
Lafayette, IN 47902 



■See List of Advertisers on page 354 
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MICRO 80™ CASSETTES- 
100% ERROR-FREE 




LENGTH 

C-10.... 
C-20. . . . 



PACK PACK 

..69$ 59c 
..890 79c 



• Fully Guaranteed! 

• Premium 5-Screw Construction 

• Used By Software Firms Nationwide 

• Custom Cases, Add 19« Each 

• Shipping, Add $1.50 Per Pack 

COD HOT LINE 
1-<206)-675-6143 



MICRO-80™ INC. 

E 2665 NO. BUSBY ROAD 
OAK HARBOR. WA 98277 



m SICK X 

OF PROGRAMS THAT TREAT YOU LIKE 
AN IDIOT, WASTING TIME & MONEY?? 
RANDOM ACCESS PAYROLL VER. 1.1 

• No complicated initialization 

• EDIT & LIST 

• NO SPECIAL CHECKS 

• USES NEB 9020 checks 

• PAY any employee anytime 

• SALARIED or hourly 

• SPECIAL PAY- special hours 

• TWO SAVINGS— including RIA 

• CLASSED by occupation or dept 

• PAYSTUB shows Year to-Date 

• STATE — FICA-FED TAXES-SAVINGS 

SEND YOUR STATE TAX SCHEDULE- 
FREE— customized to your state tax 

Documentation $10.00 
Disk & Documentation $95.00 

RANDOM ACCESS DEPRECIATION 

• LISTS any one year's depreciation 

• OR complete list ot all properly 

• PRINTOUT shows— ID. Number — description — 

• Yr purchased — lite— method— 
1st yr additional depreciation — 

• Reg. deprec —deprec prior yrs —balance 

• SUMMARY-total value prop —additional 1st yr. 

• REGULAR deprec -deprec prior yrs 

• PERMANENT records lor your taxes 

Documentation $15.00 

Disk & Documentation $195.00 

MIN: 32K— 1 DISK — PRINTER/132 CPI 

TERMS: Personal checks require 3 weeks to clear 

USE-VISA— MASTER CHARGE-MONEY ORDERS 

TEL 7 PM-9:30 PM EASTERN-(617) 359-2364/6370 

SEND SASE tor additional information 

MEDFIELD " 421 
COMPUTER SOFTWARE 

39 GREEN ST., MEDFIELD. MA 02052 



College Board Database 
Available on CompuServe 



CompuServe now offers electronic 
help to college-bound microcom- 
puter users trying to find and qualify for 
admission to the right school. 

The databank, provided by the College 
Board, Princeton, NJ, contains informa- 
tion on choosing a school, finding finan- 
cial aid, preparing for the Scholastic Ap- 
titude Test and finding adult education. 

Prospective additions to the service in- 
clude excercises related to building deci- 
sion-making skills and a schedule of the 
activities associated with college selec- 
tion, application and admission. 

The College Board is an association of 
more than 2,500 secondary schools, col- 
leges and educational associations, 
which provides guidance and admissions 
information to college-bound students 
and adults nationwide and helps schools 
and colleges respond to the educational 



needs of students. 

$5 An Hour 

The College Board information will cost 
CompuServe subscribers $5 per hour of 
access time nights and weekends. Week- 
day business hour access is also avail- 
able. 

CompuServe, Columbus, OH, is a gen- 
eral database service offering the latest 
news from major newspapers and a na- 
tional wire service, financial information 
on stocks and commodities, home bank- 
ing, electronic mail and real-time commu- 
nications, computer games, family infor- 
mation and computer time-sharing for 
programming activities. 

Available by local phone call through 
the common-carrier packet networks and 
its own private network, CompuServe is a 
division of H&R Block.B 



Wall Street Week Transcipts 
On Line from Dow Jones News 



Transcripts of the popular half-hour 
financial news program Wall Street 
Week are now available electronically the 
Thursday after each show is aired from 
the Dow Jones News/Retrieval Service. 

The show, hosted by Louis Rukeyser, is 
seen by about 10 million people in 250 
markets in the United States, Canada, 
Guam and the Virgin Islands. 



Jones and the Maryland Center for Public 
Broadcasting. Access to the data bank 
will cost 50 cents per minute during busi- 
ness hours and 25 cents per minute nights 
and weekends. 

The Dow Jones News/Retrieval Service 
provides business and financial news in- 
formation on command through standard 
time-sharing terminals and personal com- 



"The electronic news service will make 

transcripts available significantly sooner 

than printed versions sent by mail. " 



The electronic news service will make 
transcripts available significantly sooner 
than printed versions sent by mail. Trans- 
cripts of the last four programs aired will 
be available in the databank. 

PBS Center Agrees 

The service is being made available 
through an agreement between Dow 



puters, including TRS-80s. The Wall Street 
Week data base is formatted to be com- 
patible with TRS-80S. 

Dow Jones is the publisher of The Wall 
Street Journal, Barron's, Book Digest 
magazines, the Dow Jones News Service 
wire? The Asian Wall Street Journal, and 
the 20 community newspapers of the 
Ottaway Newspapers, Inc. chain. ■ 
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More than Math- 
Computers Meet Curriculum 




they would have to queue up and would 
quickly lose interest," Weinberg said. 
Otherwise, "the students have been gung- 
ho on computers ever since they had 
anything available." 

One school source said students have 
been "breaking down the doors to get at 
the computers" ever since a May seminar 
on the new program ran for the staff. 

Weinberg said the old approach meant 
the computer course had to compete with 
foreign languages, art, history, and other 
elective courses for student registration. 
The new approach gives computer litera- 
cy the status of a basic requirement like 
English and math. 

Few Problems 

So far there have been few problems im- 
plementing the program. Staff involve- 
ment started in May when the computer 
department ran a four-day seminar on the 
TRS-80 for teachers and other education 



When the 4,000-strong student body 
returns to the Lyons Township, IL, 
High School this month, they will begin an 
experiment in computer literacy educa- 
tion that will involve every student from 
math whizzes to special education stu- 
dents and every class from physics to 
physical education. 

Over the summer, teachers and pro- 
grammers have been working together to 
implement a new school policy requiring 
10 percent of all class work to be done on 
computer. 

The Computer Department, meanwhile, 
has been installing 150 TRS-80 microcom- 
puters, most of them 16K Model III ma- 
chines. 

An integral Part 

The idea, according to Norman Wein- 
berg, the school's head of computer ser- 
vices, is to make the computer "an inte- 
gral part of much of the course work." 

"This is as it should be," Weinberg said, 
"because computers are an integral part 
of much of what's going on in the world to- 
day." 

The program is a major change of ap- 
proach for the school, which, until this 
year, offered only a few courses in com- 
puters to selected students as electives. 

"In the past, generally there would be 
too few machines available for the kids, 



professionals. Weinberg said about 250 of 
the 300-person staff attended on a volun- 
teer basis, and they were all enthusiastic 
at the end of the experience. Since then 
they have had no trouble with teacher ac- 
ceptance of microcomputer use. 

As the next step, teachers were asked 
to submit recommendations on how they 
could use the microcomputers with stu- 
dents. Ideas ranged from drilling students 
on spelling and punctuation in English to 
teaching basic guitar cord fingering in 
music. 

One of the more imaginative uses came 
from the Physical Education Department, 
which is going to use its computer time to 
have students derive personal exercise 
programs based on computer analysis of 
their scores on several physical fitness 
tests, including the President's Test on 
Physical Fitness. 

Continues to page 62 



Color Computer Gets 
Educational Software 



The TRS-80 Color Computer will be go- 
ing to school this fall with a new learn- 
ing program called the Talk/Tutor system. 

The system, developed by Dorsett Edu- 
cational Systems, Inc., Norman. OK, and 
licensed to Tandy/Radio Shack, Fort 
Worth, TX, presents numbers, upper and 
lowercase test, high-resolution graphics 
recorded by a special television camera 
and processor and high quality audio. 

Only a standard TRS-80 Color Comput- 
er and television set and a single-track 
audio cassette player are needed to re- 
trieve lessons prepared on this system. 
Students interact with lessons using the 
computer keyboard or optional joysticks. 

Exciting Program 

William T. Gattis, director of Radio 
Shack's Education Division, called it "One 
of the most exciting tutoring programs in 
a long time. We plan to offer a variety of in- 
structional programs for both the home 
and classroom that run on the new sys- 
tem." 



He said the first three of these will prob- 
ably be released during the third quarter 
of this year. 

Dorsett will supply the video camera 
control and image processing equipment 
to Radio Shack, which will use the equip- 
ment to develop teaching programs under 
the licensing agreement between the two 
firms. Dorsett will also supply Radio 
Shack with some finished tutorial pro- 
grams in reading, mathematics and other 
subjects. 

Radio Shack will not sell the video 
equipment, but Gattis said that equip- 
ment may be made available to education- 
al publishers under a sublicense agree- 
ment allowing them to develop and sell 
educational programs for the Radio 
Shack Color Computer. 

"We have a large-scale effort under way 
to develop instructional programs that 
support the use of our TRS-80 Model I and 
III computers in the classroom," Gattis 
said. "The Talk/Tutor system now extends 
this effort and this commitment to include 
our TRS-80 Color Computer."H 
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— Professional — 

-Real Estate Software 

. v , For" APPLE, TRS-80 & PET 

Properiy^Management System 

«. ,f; : . .'.,(32K. 1 Disk Systems) 



Features: -\ 

• TjunnMiiiorination 

• ..I'atfjfenl Reports 

T "*7t& Minthly Income 

• fjaitnes-— , 
/.Partial Payments 
. Relumed Check; 

Advance Payments 

• Prints Receipts 



5 Digit Expense Accounts 
8uildmg Expense Report 
Vendor Expense Report 
Income Tax Report 
All Reports Can Be Printed 
Complete Documentation 
Easy Data Entry S Edit 
Vacancy Report 



Price $275.00 
Real Estate Analysis Modules: 

(Cassette or Disk) 

1| Home Purchase Analysis 

? Tax Deterred Exchange 

3| Construction Cosl/Prolit 

t) Income Property Cashllow 
( . 51 APR Loan Analysis 

._. . 6| Property Sales Analysis 
r i •'•* ' '' Loan- AmortiWion 

$35 Per Module 



oftware 



Dept M 1116 F 8th St.. Manhattan Beach. CA 90266 



BLACKJACK PLAYERS 

A YEARS INCOME IN 4 MONTHS. 

Bo«ic Strategy Tutors, tor th« novica ( axparl allka. 
Um our Tutor* ( quickly l«am how to bacoma A WINNER. 
Earn $40 hour. laarn lha ta c m I t ot our iuec*M. Our Tutors 

will ••act-, you how to: 

•* HT YOUt MONEY ** 

*• PlAY EACH MANO •• 

" NOT OiT ■ARIED •• 

•* H A BUSINESS •* 

**** BEWARE *"• 

Our Tutors or* not gamai! I! Thay ore »eriou» tools lo 
make winners out ot you. The authors have spent 7 ymon 
playing 4 being winners Now so con you. with Ihe aid 
of our Tutors. Our Tutors are bated on the strategies 
developed by Lawrence Revere More advanced strategies 
are available call for info. Consultation is available 
for you by moil or phone From 12pm 12am M.S.T 

PKC. I contains 10 Basic Tutors for Atlantic City, or Nevada 
Rush $2S for 16K Mod I or Mod III cast 130 for 32K disk 
Please odd $2.00 for shipping. 

^205 
MICRO BIAJAK SYSTEMS INC. 
2800 NORTH ELLEN STREET 
FLAGSTAFF. ARIZONA 84001 
(602) 774-5723 or (602) 774-7S6I 



STEPWISE 

MULTIPLE LINEAR REGRESSION 

Fast Compiled Machine Language 
Comprehensive Data Base Manager 

* Transformations 

* Lags 

Designate Any Variable As Dependent 

At Run Time 
Descriptive Statistics 
Correlation Matrix 
ANOVA Table 

Partial Correlation Coefficients Each Step 
Future Releases Are Upward Compatible 
And Include: Factor Analysis, Time Series, 
Linear Programming 

For 2 Disk. 48K TRS-80®. With Line Printer 
Write For Information On Other System 

Configurations 
Price $139.00— Documentation Only $20.00 
Visa And Master Charge Accepted 



Barstrann Corporation - Dept. A 
P.O. Box 265 Mid City Station 
Dayton, Ohio 45402 



^201 



^100 



CqmpuCquer 

COVER YOUR INVESTMENT 




Over 200 covers, write for complete list. 



Sind cfisck Of monoy ordl' to 

"J- S> SO 'or p-7,,i»g« trx) rurX 
fSMft otlsrs include $4 00 po»i 
OEALERINQUIRESINVITEO 



CflflPuCtMft 



Math 

continued from page 61 

During the summer the teachers are 
working with professional programmers 
the school has hired to program these 
ideas. Weinberger said they hope to attain 
the goal of 10 percent of all class material 
on computer within another year. 

A Little Advice 

Weinberg said the TRS-80s are perma- 
nently installed in special classrooms. 
Each room is networked to the others us- 
ing two Tandy multiplexers connected to 
a 48K, twin-disk master machine (which 
the teacher can use to monitor and inter- 
act with student activity) and to a printer. 

There are four-and-a-half classrooms of 
16K machines and two-and-a-half of 48K 
twin-disk machines, intended for use in 
programming classes. Weinberg said they 
plan to teach Basic and may offer Cobol. 

TRS-80s were selected because they 
seemed to do the best job for their price. 
"Some people wanted fancier machines," 
Weinberg said, "but that would also mean 
fewer machines." 

He said he hopes other school systems 
watch the Lyons Township experience 
closely. 

"They should take our approach and try 
to design systems so they reach the max- 
imum number of students," he said. 

To counter teacher resistance or con- 
cern, he said, the best approach is to in- 
volve the teachers at the start. "We got 
250 of them to get their hands on the 
machines and scared away the boogey- 
men."B 



™TRS80 color 

From the January 1981 issue of the CSHA Computer 
Club newsletter. 

There was some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated that the software in the , 
ROM cartridges could not be copied. This 
month's 68 Micro Journal reported they had 
disassembled the programs on ROM by 
covering some of the connector pins with 
tape. They promise details next month. Never 
tell a hobbyist something can't be done! This 
magazine seems to be the only source so far 
of technical informations on the TRS-80 color 
computer" Devoted to SS-50 6800 and 
6809 machines up to now, 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues 



To get the MOST from your 6809 CPU - This is the 
BEST SOURCE! The ONLY Magazine for the 8809 
Computer Months Ahead of All Others' 



68 MICRO JOURNAL 

3018 Himlll Road 
HIISON TN 37343 

USA 

' Vr - SIC. 50 2 Y, $32 50 3 Yr $48 50 

Foragn Surface Add $12 Yr 10 USA Price 

Foreign Air Mail Add $35 Yr lo USA Price 

■Canada a Mexico Add $5 50 Yr lo USA Price 



^91 



l Maxell* or ODyggn ] 

p a 

L |^B^^^^^^ai^S^^n^3 M ^B raftSHf|^i!lT^B H 

T 6 SINGLE SIDE £ 

R DOUBLE DENSITY Bo, of 10 lo. $00 " 

5 8" DOUBLE SIDE R 

8 DOUBLE DENSITY Bo. of 10 tor J 70 A 

J 3 U MINI Bo. of 10fo, ISO L 

, DYSAN* DISKS 1 

B 5 V MINI Bo« of 5 tor 123 M 

M (Specify -8" Sort «H«wdS«ct«/5-SoH« tea S»wtort * 

! mm \ 

A COD. »1 OO Additional ■ 

L 238 EXCHANGE STREET M 

I CHICOPEE, MA. 01013 fc 

' 413-592-4761 C 

, ° 

I estabHthad 1900 ■ cloMd mondey. 1 
^-» ATARI EBBEESSfl Tl/99-4 BEEEEEB1 PET mJ 



<%M^^ IS You've Written a 
\\jr* Topnotch Program- 

We'd Like to Publish It! 
Programs needed for BUSINESS/ 
OFFICE Applications: 
WORD PROCESSING 
PAYROLL/TAX CALCULATION 
GENERAL LEDGER/ AR-AP 
ORDER ENTRY/INVENTORY 
Start collecting your royalty 
checks soon! Write for our free 
Programmer's Kit today. 
INSTANT SOFTWARE, INC. "2 
Submissions Dept. 
Peterborough, NH 03458 
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TECHNOLOGY ! 




Character Set 

- upper and lower 
case 

- 80 column plus 
double-wide print 



Paper 

- roll paper and 
single sheet 

- original plus 3 
copies 

- accepts up to 9V: 
wide paper 



Ribbon 

- long life cartridge 
ribbon $9.95 

- easy to change; no 
mess 



Transformer 

- heavy duty power 
transformer for 
longer life 




Printhead 

- 100 million 
characters $29 95 

- disposable 

- 7 wire bi-directional 
impact matrix 

Trimpot 

- for fine adjusting 
of vertical 
alignment 



Controller 

- state of the art 
single chip 8039 
microprocessor 



Price 

- high quality printer 
for $299. 



BYTEWRITER-1 




With a highly engineered circuit board and soft- 
ware program, backed by a rugged mechanism, 
the Bytewriter-1 makes no compromise with 
quality. 

Call us for more information today — and be 
sure to ask us about our 30-day money-back 
guarantee. 



Microtek, Inc. ^ 36 ° 
9514 Chesapeake Drive 
San Diego, CA 92123 
Tel. 714-278-0633 
Outside CaMf. call 
toll free: 800-854-1081 
TWX. 910-335-1269 




MICROTEK^ 



Don't Pay High Prices for 

Get top quality & fast service at the lowest prices, 



"carbonless" PAYROLL CHECK 
with PAY STATEMENT 



Product 9002 PAYROLL CHECKS are 

designed to be used with the RADIO 
SHACK' payroll program #26-1556. 
Size §WxT' (7V2"xr detached.) 
Check size IWxVh". Prices include 
printing your heading, bank name and 
number, and MICR encoding. Attractive 
green fine line design on white MICR 
Bond stock. Available in single (white) 
or duplicate (white, canary) continuous 
sets. 



QUANTITY 


SINGLE 
Product 
9002-1 


DUPLICATE 
Product 
•002-2 


6,000 
4,000 
2,000 
1,000 
500 
250 


$149.00 

110.00 

65.00 

43.50 

32.50 

- 27.50 


$299.00 

215.00 

124.00 

75.00 

48 95 

37.00 



Versatile, easy to use 
Special 9V2" check width 
allows for use on adjustable 
and fixed pin printers. 
Duplicate checks use "car- 
bonless" paper to produce 
clean copies automatically. 

Maintains good 
employee relations 

Pay Statement and Pay 
Check given to employee as 
convenient unit. Space to 
spell out exact earnings, 
standard and special 
deductions. 




"carbonless" 

ACCOUNTS PAYABLE CHECK 



Product 9023 ACCOUNTS PAYABLE 

('KECKS are designed to be used with 
RADIO SHACK* accounts payable pro- 
grams #26-4505 and #26-1554. Size 
9V2"x7" (7-V'x7" detached.) Check size 
7-V'x3V*". Prices include printing your 
heading, bank name and number and 
MICR encoding. Available in green fine 
line design on white MICR Bond stock. 
Available in single (white), or duplicate 
(white, canary) continuous sets. 





• H'j t 


DUPLICATE 


Product 775 


QUANTITY 


Product 


Product 


OU-O-VUE' 




9023-1 


•023-2 


cnv*l»p«t 


6,000 


$149.00 


$299.00 


$140.95 


4,000 


110.00 


215.00 


98 50 


2.000 


65.00 


124.00 


53.50 


1.000 


43.50 


75.00 


29.50 


500 


32.50 


48.95 


17.95 



Versatile, easy to use 

Special %W check width 
allows for use on adjustable 
and fixed pin printers. 
Duplicate checks use "car- 
bonless" paper to produce 
clean copies automatically. 



Eliminates 
Envelope Addressing 

Assures privacy, checks are 
designed for use in Product 
775 DU-O-VUE Envelope (3-%"x8-V) 
Made of opaque gray stock. 
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"carbonless" Multi-Use 
STATEMENT/INVOICE 



Product 9050 STATEMENT/INVOICE is 

designed for use with RADIO SHACK* 
accounts receivable program #26-4504 
Size 9'/2"x7" (8 1 /2"x7" detached.) Prices 
include printing your heading in black 
ink. Available in single (white) or 
triplicate (white, canary, pink) con- 
tinuous sets. 





s 


Triplicate 


Product 771 


QUANTITY 


Product 


Product 


ouo-vuc 




9050 : 


9050-3 


Envelopes 


6,000 


$152.00 


$348.00 


$120.75 


4.000 


108.00 


248.00 


84.50 


2,000 


62.50 


135.00 


44.50 


1,000 


43.50 


78.50 


24.75 


500 




49.95 


u ; . 



Versatile, easy to use 

Special &W width allows 
for use on adjustable and 
fixed pin printers. Use as a 
statement, invoice, credit 
memo, collection notice, 
etc. . . Triplicate sets have 
"carbonless" paper to pro- 
duce copies automatically. 

Saves Addressing Time 

Product 771 DU-O-VUE* 

Envelope (4V'x9"). Your 

printed statement 

heading shows through upper window. 

customer's name through lower. 




TRS-80 Computer Forms 

from NEBS... Your satisfaction guaranteed! 

"carbonless" STATEMENT 




Largo Size 

Provides up to 25 lines to record 

charges and credits. 

Easy-to-use 

Duplicate sets have "carbonless" 
paper to produce clean copies 
automatically. 



Saves Addressing Time 

Statement is designed for use in com- 
panion Product 772 DU-O-VUE* 
ENVELOPE (3V'x6V). 



Product 9062 STATEMENTS are 

designed to be used with RADIO 
SHACK* accounts receivable program 
#26-1555. Size 7"xSVt" (6"x8 1 /?" de- 
tached.) Prices include your firm name, 
address and phone at top left, plus firm 
name only in lower left. Printed in black 
ink. Available in single (white) or dupli- 
cate (white, canary) continuous sets. 





Single 


Duplicate 


Product 772 


QUANTITY 


Product 


Product 


DU-O-VUE* 




9062-1 


90*2-2 


Envelopes 


10,000 


$249.00 


$450.00 


$154.00 


6,000 


158.00 


279.00 


102.95 


4,000 


112.00 


195.00 


72.25 


2,000 


67.50 


110.00 


40.50 


1,000 


47.50 


67.00 


23.25 


500 


34.50 


43.95 


13.75 



Why order from NEBS? 



• NEBS is the nations largest direct 
mail supplier of standardized 
business forms to small businesses 

• NEBS has over 750,000 satisfied ac- 
tive customers in the U.S. and 
Canada. And, processes over 40,000 
orders every week. 

• NEBS has NO handling charges, NO 
extra charges for printing standard 
headings on imprinted products and 
NO extra charges for consecutive 
numbering on numbered products, in- 
cluding bank MICR consecutive 
numbering. 



• NEBS offers you top quality products 
at low prices with quantities as low 
as 500 forms — compare! 

• NEBS Unconditional Guarantee: 

"It for any reason you are not com- 
pletely satisfied with any product 
you purchase from us, your money 
will be promptly refunded, includ- 
ing any transportation charges you 
have paid. " 

• NEBS Fast Service — It is our policy 
to ship within 6 working days follow- 
ing our receipt of your order. Please 
allow time for normal delivery from 
NEBS to you. 




Fast service by mail or . . . 

PHONE TOLL FREE 

1 + 800-225-9550 

Mass. residents 1 + 800-922-8560 

8:30 a.m to 5:00 p.m. 

Eastern Time Monday Friday 



WE PAY SHIPPING CHARGES 

When you include full payment with your order 
Massachusetts customers add 5% sales tax, 
Missouri customers add 4.5% 

OPEN ACCOUNT- Net 7 days, shipping 
charges added to your invoice. 
No COD. orders, please. 



•TRS-80™ is a registered trademark ol Radio Shack, a division of TANDY Corporation 



Please ship the following compute 


r forms: 


QUANTITY 


PRODUCT NUMBER A DESCRIPTION 


PRICE 




















































IMPORTANT INFORMATION 


CONSECUTIVE NUMBERING 


When ordering checks, write 
"VOID" across sample check you 
are now using (be sure wording is 
up-to-date) and enclose. For new 
bank accounts secure a MICR en- 
coding form from your bank. 


IF NOT SPECIFIED NUMBERING 
WILL START AT No. 1001 

[_] No number 

D No. 1001 

n no. 



HEADING TO BE PRINTED ON PRODUCTS (please type or print Include zip code and 
phone number it you wish them printed) 



7*Y "....]•• 



I 



Phone 



BILL AND SHIP TO (II different trom above) 

Street 

City and State Zip Code 

Your Ime of business (to help us send the right samples in the future) 



Authorized Signature 



Area Code 



Phone 



Corner Hrms 



. KM 



78 Mollis Street. Groton. Mass. 01471 

CODE 14460 ism A.*..™*-.,' 

'•»"», New Enound Buunea* Service, mc 






60 MICROCOMPUTING 
ANNOUNCES... 



. . . and saves you hours of typing and aggravation. 

LOAD-80 is a monthly dump of the major program listings in 80 Microcomputing on cassette. 
Publisher Wayne Green tells you more. . . 



"Frankly, after hundreds of hours of 
frustration, I seldom even try to keyboard a 
published program. Even if the magazine 
manages to get the program typeset correctly 
(which seems rare), I inevitably screw it up 
when I keyboard it. Who needs the aggrava- 
tion? 

"This is why I've started a new series of 
cassettes called Load 80. Each cassette will 
have program dumps of the listings in an 
issue of 80 Microcomputing. These listings 
are direct from the authors and tested by the 
80 staff. All but the very short program 
listings will be on these Load 80 cassettes. 
Thus you will be able to save hours of input- 
ting programs and even more of debugging 
your keyboarding errors. 



■Though the authors of these programs 
will share the royalties from the sale of the 
cassettes, this will not preclude the better 
programs from being issued separately by In- 
stant Software (with royalties) with full 
documentation and associated hoopla. The 
documentation for the Load 80 programs 
w ill be entirely in 80 Microcomputing. 

"I originally was holding out for "Trash 
Dump" as a name for the cassettes, but cooler 
heads prevailed. If there turns out to be 
enough interest in Load 80, we'll set up a 
monthly subscription arrangement." 

Wayne Green, Publisher 



The Load-80 cassette is simply the program listings that appea' in the articles In SO Microcomputing it was created to save 
you the time involved in typing in the listings yourself Successful loading o' the programs depends on reading the documen 
tation in the articles If you have your current magazine at hand when you load the cassette, you should have no difficulty II 
you still have problems, please return the tape tor a replacement 



Send in the attached card and you will 
receive the cassette for the major pro- 
grams in this issue. If the card is gone, 
photocopy the coupon. 



I 

D Yes. . .send my LOAD 80 Cassette for only $9.95 

I □ Check Enclosed Bill my □ AE □ MC □ VISA 

NAME 



ADDRESS 
CITY 



STATE. 



ZIP 



CARD! 



EXPIRE DATE. 



.i no warranty ckprmcd i 
ihinf other than tave vo 



implirxJ thai thn ptogtam 
• pin* 



SIGNATURE. 



INTERBANK #_ 




Please oHow A-6 weeks for delivery 

BO Microcomputing Pine Street Peterborough NH 03458 

Attn Debra L Boudrleou 



319B8 
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Continued from page 7 

the stops to make my short visit one I'll 
never forget. I had an opportunity to talk 
with the Prime Minister of the country; I 
went to a party at which I met most of the 
active hams; was given a tour of the whole 
island; went on a wonderful scuba-diving 
excursion; and was shown the red carpet 
treatment all the way around. 

By the time you're reading this I'll have 
visited South Africa, Swaziland, Lesotho, 
Kenya and Tanzania on a short trip in Au- 
gust. I'll take some pictures and have a lot 
to tell you about computing in Africa. I'll 
be addressing the Microcomputer Exposi- 
tion in Johannesburg, as well as the local 
computer clubs, ham clubs, and Apple 
dealers. I understand there are already 
5,000 microcomputers there, and things 
are starting to move ahead rapidly. We've 
been distributing Instant Software in 
South Africa for two years now. 

This will be my first trip to South Africa, 
though I've been to East Africa (15 years 
ago on a hunting safari). My ham contacts 
have provided me with friends in all of 
these countries for some 40 years now, so 
I'm looking forward to meeting them per- 
sonally.B 

80 Microcomputing 

To the best of my knowledge, 80 can lay 
claim to being one of the all-time success- 
ful technical publications. Imagine the sit- 
uation: Here is the first magazine on a sin- 
gle manufacturer's product, that has no 



connections to the manufacturer and is 
not even distributed in the manufacturer's 
stores. Yet, its circulation is expected to 
pass 100,000 before the end of this year! 

It has few rivals among technical publi- 
cations, running over 300 pages per issue 
since early this year. In just the first six 
months of this year 80 published 207 fea- 
ture articles. To put that into perspective, 
compare that with second place Micro- 
computing with 140 articles and Byte with 
only 73. 

The main reason 80 has been such a 
success is you, the readers. You have 
been telling your friends about SO and buy- 
ing products advertised in the magazine 
at a rate no other magazine can even 
come close to. Many advertisers have 
bragged to me that they are getting five to 
ten times more sales from 80 than they are 
able to get from any other magazine. 
When I ask them for a letter to that effect 
they put me off, saying they don't want 80 
to fill up with ads and cut their sales. They 
feel that advertisers in what is primarily a 
monthly catalog just get lost, and they 
have the sales figures to prove it. 

Now I'm not putting Byte down. No, I'm 
proud of Byte. . .after all, it was my origi- 
nal idea and I spent six months of my life 
getting it started. For that matter, most of 
the crew of 73, my first magazine, worked 
hard on Byte to get it off the ground. I 
think we all take some pride in my ex-wife 
being able to sell it to McGraw Hill for a 
reputed $7 million. Talk about a coup! 

When you help 80 to grow with more 



EDUCATION %Q 

Continued from page 8 

involved in the action. The rectangular box 
may have more than one arrow leading to 
it but only one can lead from it. There is 
normally a box for each program state- 
ment but there are times when one box 
will be used for a series of statements. 

That's all there is to it— except for the 
arrows. They point from box to box, the 
same way the program moves from state- 
ment to statement. 

There is one situation which seems to 
cause a small problem. You will find 
For. . .Next loops handled in several dif- 
ferent ways. The approach I find the least 
confusing is shown in Fig. 2. This is an il- 
lustration of the statement: 

FORX = 1TO10:LPRINTX:NEXT 

As you can see, when the For. ..Next 
loop is charted this way it is actually hard 
to misunderstand! 



Rules 

Flow chart rules are simple. First use 
the right kind of box for each program 
statement. Second, join the boxes with ar- 
rows which point in the direction of pro- 
gram execution. Actually, it is even easier 
to read a flow chart than a program. Sim- 
ply go from box to box as the arrows point 
and answer the question at each diamond 
box. 

A flow chart can be made for an entire 
program or for a section of a program. It 
can put the design of a program into an 
understandable perspective. After you 
make a broad general outline of a new pro- 
gram, take the time to make a flow chart 
before you start writing; charting time can 
be saved many times over by eliminating a 
lot of debugging and rewriting later. 

Making a flow chart can also be ex- 
tremely helpful when you are working on a 
program someone else has written. After 
all, modifying is really rewriting, and it is 
just as important to understand that pro- 
gram as one of your own.B 



subscribers, you get more articles, more 
information and more programs. It 
doesn't hurt to make the extra effort and 
mark up the Reader Service card and send 
it in. Many advertisers put great store in 
these responses. They should, for these 
replies are responsible for about half the 
monthly sales the magazine develops. 

A recent poll of 80 readers showed a 
median age of 37 years, a median income 
of $32,000, and an average investment in 
computers which is difficult to believe. 
You, the readers of 80, claim you are 
spending about $61 million per month on 
your computer systems. Most of the pur- 
chasing in the higher dollar volumes is for 
business and educational systems, but 
you can bet that the purchasers are read- 
ing 80 ads, looking for the best bargains 
they can find. 

Kilobaud Microcomputing 

We also publish Kilobaud Microcom- 
puting, a magazine for the computer 
owner of any type. Like 80, Kilobaud is 
aimed at the average computer owner, not 
the computer scientist. TRS-80 coverage 
in Kilobaud is minimal, mostly leaning to 
articles which may be too technical for the 
average 80 reader. Kilobaud Microcom- 
puting is strong on Apple, Atari, OSI, and 
the other popular microcomputers. 

Kilobaud was started in 1977 and has 
about 100,000 circulation. The tremen- 
dous success of 80 has eclipsed Kilobaud 
to some extent. 

Why two computer magazines? The 
main advantage is directed at smaller 
firms in the field. By splitting our reader- 
ship into two groups, advertising is afford- 
able to even the smallest firms. I feel that 
this is important to the entrepreneurial 
spirit which makes our country strong. 
One large magazine would stop many 
small firms from advertising and we might 
lose out on another Apple. 

Thus, smaller advertisers can select a 
magazine which reaches their particular 
customers and larger ones can use both 
our magazines and reach everyone. This 
gives you the opportunity to find new and 
exciting gadgets and programs put out by 
small firms. 

Desktop Computing 

While this new magazine is being writ- 
ten and edited for the non-technical busi- 
nessman, I think you'll find the articles-to 
be of substantial value. The articles will be 
written from the viewpoint of the average 
computer user rather than the manufac- 
turer or hobbyist. We'll be covering the 
use Qf small computers in all sorts of busi- 
nesses, schools, and so on. 

If you are aware of any successful mi- 
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crocomputer (or desktop minicomputer) 
system, we're interested in getting an arti- 
cle on it. Readers will want to know what 
hardware was used and why, what soft- 
ware, how much trouble it was to get run- 
ning, how long before it was a part of the 
business operation, what problems were 
encountered and how they were resolved. 
One key point will be the benefits the sys- 
tem brought about, such as savings in per- 
sonnel, the ability to provide better service 
to customers, speeding up service, and so 
on. Readers will want to have some esti- 
mates of the bottom line— cost vs. sav- 
ings and improvements in the business. 

Be sure to write clearly and simply, leav- 
ing out all of the technical jargon. Even 
skip bits and bytes, if you can. I realize 
that dedicated computer people speak 
computerese without even realizing that 
they are doing this and are compulsive 
about it. We pay generously for articles as 
long as we don't have to edit out technical 
buzzwords and put in explanations of 
terms you just couldn't keep yourself from 
using. Double space your copy, upper and 
lowercase type, good photographs help, 
generous margins for editing, and send it 



in. Publish or perish. 

Desktop will be the first computer mag- 
azine you'll be able to show to your non- 
computer friends so they can see what all 
the excitement is about. They'll be able to 
read and understand this magazine, as it 
will be written without the computer jar- 
gon. I hope you'll interest them in sub- 
scribing. We're looking for a 100,000 circu- 
lation for this new magazine before the 
end of 1 982, but we can't do it without a lot 
of help from you. 



'7\ recent poll of 
80 readers showed 

... a median 
income of $32,000." 

Load-80 

A couple thousand readers a month are 
now sending for Load-80 cassettes, which 
contain the major programs in each issue 



of 80. These are still selling for $9.95, 
though I notice that one of the Apple mag- 
azines is selling a similar dump of their 
programs for double that with far fewer 
programs, too. Having done my share of 
keying in programs for magazines, I've 
been through the aggravation of trying to 
find my errors. This has often taken more 
time and sweat than the original keying. 
What a relief it is to put in the cassette, 
load the program into my TRS-80 and then 
save it on a disk for instant use when I 
want it. 

The Encyclopedia 

Beautiful set of books, these; I think 
you'll like them. With the success of 
Lpad-80 making the programs from each 
issue of this magazine available on cas- 
sette, similar plans are in the works for the 
Encyclopedia. There are a lot of first-rate 
programs in each volume, creating a need 
for an easy way to get the programs into 
your computer. Watch for an announce- 
ment. Of course, if your time is without 
value and your aggravation level extreme- 
ly low, perhaps you'll want to key in the 
programs. ■ 




Utilities and 

Software Speedups 

for the TRS-80 

Models I and III 



RPM measures the rotational speed and variation of your 
disk drives, and reveals a common cause of unexplained 
errors. Simple one-key operation, runs under any DOS, 
interchangeable between Models I and III. Shows current 
and average speeds, plus fluctuation history. Recovers 
from severe errors. Documentation explains how to adjust 
drives. Use RPM monthly for best results. 

32-48K Model I or III disk! $24.95 



XTEND4Q 

Converts 35-track diskettes to 40 tracks in 15 seconds. 
Requires your 40 track drive and DOS. 

32-48K Model I disk: $19.95 

13 V CD R A K 

Software Translator converts your keyboard to high speed 
DVORAK layout. Includes press-on labels. 

Typing Tutor hands-on program teaches you to touch-type 
in DVORAK. Requires translator (above). 



32-48K Model I or III disk: 



$19.95 each 




F" A. 



T.ER 



Monitors your BASIC programs while they run , then 
displays a simple change (usually one Ubb) that can reduce 
run-times by as much as 50%. No hardware changes, and 
handles programs that cannot be compiled! Complex 
programs benefit the most. See review in Personal 
Computing, May, 1981. 

1&-48K Model I or III, tape and disk: $29.95 



quick: compress 

Small (276 bytes), fast (processes 800 lines in under 3 
seconds) utility removes blanks and remarks from your 
BASIC programs. Produces smaller, faster programs, and 
doesn't alter the original logic. 

16-48K Model I or III, tape and disk: $19.95 



Specials: 

FASTER + QUICK Compress! $39.95 

DVORAK Translator + Typing Tutor: $34.95 

NEWSCRIPT + LABELS: $115.00 



Specify Model I or Model III when ordering. We accept checks, M/C, VISA, money orders, C.O.D. (add 
$2.00), and even cash. No Purchase Orders, please. Add b\ tax in Calif., and 10% shipping outside 
North America. Specials expire October 31, 1981. 

Box 839 / No. Hollywood Co. 91603 / (213) 764-3131 
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PRom 



(213) 764-3131 




DEMAND THE MOST 
FOR YOUR 
WORD PROCESSING 
DOLLAR? 

THEN MOVE UP 
TO PROSOFT'S 

NewScript . . . 



Easy-to-use Full Screen Editing 

Ty pea head — never loses keystrokes 

Headings, Page Numbering, Centering 

Form letters, Big Documents 

Global search and change 

Double- Width, Underlining 

Sub-scripts, Super-scripts 

Table oi Contents, Indexing 

Proportional font right- margin 

justification on 737, 739, LP. IV, D.W. II 

* All 12 MX-80 fonts + underlining 

* Italics on GRAFTRAX MX-80 
Supports Diablo, Microline, Anadex 
160 pages of excellent documentation 
includes "EZEDIT", "EZSCRIPT", self- 
study tutorial, and hundreds of examples 

* Runs under TRSDOS, NEWDOS, NEWDOS/80, 
LDOS, DOSPLUS. 

* Requires 48K TRS-80 with one disk drive. 
Specify: Model I or Model III. 

NewScript $ 99.95 

Mailing Labels Option $ 29.95 

Special: NewScript + Labels $1 15.00 



Order from your local dealer, or from: 



NOTE: 

Soma features work only if your 

printer has the mechanical 

capability. 



*-Sm Ust ol Ad¥irii$Ti on pigt 354 



>ept. C, Box 839 • No. Hollywood. CA 91603 

ORDERING INFORMATION: We accept checks, MasterCard, VISA, Money Orders, 
COD. (add $2.00) and even cash. Please, no Purchase Orders. Calif, residents add 6% 
tax, 10% outside North America. ! 
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50 ACCOUNTANT 



by Michael Tannenbaum C.P.A. 



"... simplicity of operation 

seems to have been the major 

objective of the Bookkeeper's designer. " 



One of the most unexpected events at 
Comdex 81— The National Spring 
Conference & Exposition for Independent 
Sales Organizations held in New York, 
June 23-25— was the discovery of a new 
accounting package. The Bookkeeper is 
available from Universal Software Studios 
Inc., 179 Smith St., Gallatin, TN 37(366. This 
system, written in Cobol for the Model II, 
offers an integrated accounts payable 
and receivable, payroll and general ledger. 

To the best of my knowledge this sys- 
tem has a unique file structure. Only one 
master file is maintained for all customer, 
employee and vendor names and address- 
es. This means growth in any application 
file will not cause the system to run out of 
space. This is an important advantage in a 
floppy-disk system. 

Even more interesting is the elimination 
of transfer entries between applications. 

Data is entered directly into accounts 
receivable and payable ledgers. At the 
same time, a simultaneous entry is 
created in the daily activity journal. This is 
the only journal contained in the system. 
Entries in the daily journal are automatic- 
ally balanced. When the daily journal is 
printed, a summary journal entry is 
automatically created and posted into the 
general ledger. In this manner, control is 
developed over daily activity and the sales 
and purchase journals are eliminated. 
Since the general ledger has been updat- 
ed it would be possible to generate an es- 
timated financial report. 

The need for a daily financial report is 
questionable; however, the ease of sum- 
marizing for reporting will certainly facili- 
tate preparation of regular monthly finan- 
cial reports. In fact, simplicity of opera- 
tion seems to have been the major objec- 
tive of the Bookkeeper's designer. All ac- 
counting applications are called from a 
single menu. As you might expect, this 
menu is quite cluttered. Despite this, it is 
easy to select the appropriate application 
program. 

Application programs are grouped into 
five areas: general ledger, payroll and spe- 
cial functions; and accounts payable and 
receivable. 

Under each of these areas, tasks are 
preceded by a code number. For the gen- 



eral ledger functions area, there are 10 
tasks numbered 1 -10. Under payroll, there 
are five numbered 20-24. Under accounts 
payable, there are three numbered 40-42. 
Accounts receivable has five and there 
are eight special functions. To extend the 
system into applications such as fore- 
casting, a provision is made to call a sub- 
menu. In all, 32 different functions can be 
called from the main menu. 

To familiarize potential customers with 
the use of the system, Universal Software 
offers a demonstration disk. Accompany- 
ing this disk is a well written 80-page man- 
ual which serves as an instruction guide 
to the system's features. Naturally, the 
demonstration disk does not contain all 
the programs required to maintain the ac- 
counting system. Missing, for example, is 
the end-of-the-month closing program. 

Universal Software has provided a com- 
plete roster of employees, chart of ac- 
counts, customer and vendor lists. With 
all data in place, it is quite easy to prepare 
an impressive list of reports, ledgers and 
sample checks. I gather from their materi- 
al that the demonstration disk may be 
used as a training aid by new customers. 
If so, it is most effective. It provides a com- 
plete introduction to the system and its 
unique features. 

Since much of the system activity will 
be devoted to file maintenance, the pro- 
grammers have attempted to make file up- 
dates, additions, and deletions as easy as 
possible. On entry into the file inquiry 
mode the message appears "File Number 
?" A file can be selected by keying in 
99999, accessing an alphabetic search 
routine. Typing in as many letters as you 
know will cause the program to search the 
file and stop at an account that has the 
letters selected. Since that account will 
be displayed in context, the missing ac- 
count number will be quickly located, if 
the desired account is not on the screen, 
you can backscroll or advance the dis- 
play. If the file is located or the search 
proves fruitless, the escape key provides 
an exit. 

If a new name and address account is 
required, keying in 99998 will call the new- 
account entry routine. The account num- 
ber will be automatically assigned. Once 



this has been completed, the computer 
will request you to designate how the file 
will be used. Keying in a response to that 
question displays the data entry format. 

Once a valid account number is en- 
tered, a sub-menu is displayed to call the 
application desired and the data entry or 
change the routine. Within an application 
the same format is used to enter data or 
inquire about data previously entered. If 
the inquiry mode is selected, it is neces- 
sary to step through each line on the 
screen before the next invoice is dis- 
played. . .a time consuming process. Af- 
ter the last item on file is displayed, the 
program automatically returns to the "File 
Number?" screen. 

After 37 pages of descriptions, explana- 
tions and sample exercises, most people 
will be glad to follow the author's advice 
to "take a break." 

Although there are many automatic fea- 
tures such as self-balancing payable and 
receivable entries (the offsetting journal 
entry to payables is automatically made 
when a purchase invoice is entered), the 
system never seems to run out of control. 
All entries and correcting entries are 
logged and appear in the daily journal. A 
printout of this journal serves as an audit 
trail to the original transaction. If any en- 
try is required to a sensitive area such as 
the payroll ledger or a general ledger ac- 
count adjustment, a user password is re- 
quired. If the resulting general ledger ad- 
justment throws the books out of balance, 
no financial reports can be printed until 
the imbalance is corrected. 

I noticed entries into the system do not 
generate any feedback control totals. 
Such totals will be required if a post-in- 
voicing entry to accounts receivable is 
made. Since I was working with an incom- 
plete demonstration disk, an invoicing 
module was not included. I would expect 
such an option to be obtained unless the 
invoice volume was quite small. 

The financial reports generated by the 
system include comparatives for the 
month and year to date. Although unex- 
plained by the demonstration manual, the 
chart' of accounts appears to have a 
"level" coding provision. If this provision 
is similar to other "level" coding methods 
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THE BOOKKEEPERS 



TO ORDER CALL (603)447-2745 



Pragmatic Programs for Small Business 
If we don't use them we don't sell them 



GENERAL LEDGER 

We call this program Intermediate Bookkeeper. It comes 
with a standard chart of accounts. Accounts can be 
changed or added up to a total of 110 accounts (including 
headers). This modification of accounts is done by the 
menu driven program - not by reprogramming. Posting is 
done from your checkbook and your sales summary. You 
post account number, check number, description (only if 
you want it), and the amount. Proof of balance is obtained 
by running an adding machine tape of checks and posting 
the total as a negative amount to the Cash in Bank account. 
The program will tell you whether you are in balance and 
if not how much your error is. A complete listing of all 
items posted to any account is available on call. At least 
4400 entries can be posted and retained for any year. 
Reports print in an 80 column format on a printer and are 
standard Statement of Condition, Profit and Loss, and Gen- 
eral Ledger Detail. Year to date totals, Period to date totals 
and percentages are given. 

One of the principals in this company uses the system 
in an accounting business. Several clerks have used the 
system. This yeare clerk was 14 and averaged 200 entries 
per hour. 

This is the type of program you have been looking for - 
one that is simple - one that is quick - one that saves you 
time instead of wasting it. 



ACCOUNTS RECEIVABLE 

Ann Rose, Our Accounts Receivable Clerk is not for every- 
body. This Accounts Receivable program does not gener- 
ate invoices, rather it is used to produce work lists and 
bills, and when applicable to post automatic charges and 
service charges. 

Our accountant uses this to prepare his own billing, 
however, the best use of this program would be a com- 
pany that normally bills most of it's customers on a flat 
rate monthly basis such as a small garbage company or 
a small leasing company. Each control is set up on a pair 
of diskettes and can handle 328 accounts. A disk record 
is maintained of the last 18 transactions per customer. 
Each customer is assigned an account number by the 
machine when first entered. Customer lists can be listed 
in alphabetical order or in order of account number. 
Bills are printed on plain white tractor feed paper (not pre- 
printed) and take 55 seconds per bill to print (average). 
Accounts with a zero balance do not print. Accounts can 
be deleted when no longer needed. Sorts are done quickly 
except when initially entering a name into the system. 
We feel that a little time taken at the beginning is well 
worth the speed thereafter. Posting is rapid but one has 
the chance to correct errors. At the end of each posting 
session a journal entry is prepared for posting to the gen- 
eral ledger. Each posting stores date, invoice number, type 
of transaction, and amount on diskette. 



Price 



$109.95 



Price 



$150.00 



Both programs require a Radio Shack TRS-80 
Model I or III w/48K, 2 Disk Drives, and at least 

an 80 column printer 
MONEY BACK IF NOT SATISFIED 



ORDER FROM 



Sturdivant and Dunn, Inc. ^ 
73 Washington St., Box 277 
Conway, N.H. 03818 



Phone(603)447-2745 

TRS-80 is a trademark of TANDY CORPORATION 



*- Sn List ot Advertisers on page 354 
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5# ACCOUNTANT 



I have seen, it should be possible to group 
the accounts when printing the financial 
statements. Another possible use for this 
feature might be creating departments. If 
these presentation methods are required, 
the vendor should be contacted for clarifi- 
cation. 

In addition to the financial statements, 
the system contains a budgeting module. 
This module permits entry of a budget for 
each account on a month-by-month basis. 
A comparative budget report can be 
printed to compare the actual results with 
the plan. 

Within the limitations of the demonstra- 
tion disk, I liked the system. It is easy to 
use and appears complete. At $2,495 it is 
not cheap but for a floppy disk Model II 
system, it is certainly worth looking at if 
an integrated system is desired. Unfortu- 
nately, it is not suitable for a public ac- 
counting practice. The reports generated 
do not meet the standards of reporting re- 
quired and the system still does not retain 
detail beyond the current month. How- 
ever, for a small business, the system 
might be ideal. 

Tandy General Ledger Package 

The professional accountant may have 
an opportunity to use the new three-disk 
Radio Shack general ledger package. Al- 
though I received it too late to review for 
this month's column, a quick look through 
the system manual indicated this system 
could prepare a number of reports includ- 
ing: balance sheets, profit and loss state- 
ments, statement of changes in financial 
position, analysis of changes in working 
capital, cash flow statement, and state- 
ment of retained earnings. 

Next month's column will be devoted to 
an evaluation of the Radio Shack system. 

Cornucopia Software 

Another late arrival, but usable immedi- 
ately, was an updated version of the 
Cornucopia Software Editor for the Model 
II. The original version reviewed last 
month did not integrate into Model II 
Scripsit. The new version does... and 
what a pleasure. 

To use the new version, all that is re- 
quired is to place the cursor over the docu- 
ment to be proofed and press M. The Mi- 
croproof program takes over. Your docu- 
ment is r^ad into memory and compared 
against the 50,000-word dictionary. At the 
conclusion of the comparison, a list of 
potential problems is presented on the 
CRT. After pressing Enter, each word in 
question is displayed and the user can: 

• Add the word to the dictionary; 

• Bypass the correction procedure; 



• Correct the error; and 

• Display the word in context when the 
correction procedure is in progress. 

Once the selection process is com- 
pleted, Microproof adds the new words to 
the dictionary and automatically corrects 
the misspellings. This is accomplished on 
the screen. Page by page, Microproof 
reads in the document and highlights the 
word being corrected. If the display-in- 
context option had been selected, a 
prompt "replace with" is displayed in the 
highlighted area and the program pauses. 
After the document is completely correct- 
ed, the Scripsit menu reappears. 



"With the software 

available for the 

micro, powerful 

packages for 

manipulating data 

can be obtained 

cheaply. " 



This editor is a valuable addition to 
Scripsit and easy to use. During the 
limited time I have used the new Micro- 
proof, I have found only two limitations. 
The file to be edited must be on the same 
disk the Microproof program is located 
and the repagination utility must be run 
before editing if double spacing is used. 
Apparently the entire file must be in a con- 
sistent format for the editor to function. 
For those interested in this system, con- 
tact Cornucopia Software, P.O. Box 5028, 
Walnut Creek, CA 94953. An integrated 
version is also available for Model I and 111 
users. 

Mainframe Connections 

All the new software packages— ac- 
counting and non-accounting — have 
made the Model II a valuable stand-alone 
computer. However, it has not linked with 
the IBM mainframe. In the July issue of 80 
Microcomputing, Ed Juge of Tandy an- 
nounced the availability of three software 
packages that are of interest. These 
packages— Reformatter Cat. #26-4714, 
3270 Emulator Cat. #26-4715, and 3780 
Emulator Cat. #26-4716— deserve more 



than a casual mention at the end of Ed's 
column. Properly employed they will pro- 
vide the Model II with the ability to in- 
tegrate into a large mainframe system. 

Consider the potential for a firm. With 
the software available for the micro, 
powerful packages for manipulating data 
can be obtained cheaply. If the data can 
be obtained from the firm's data base 
easily, the problems of entering data for 
applications such as tax planning and 
projections can be significantly reduced. 
Since these applications are usually in- 
teractive, "what if" projections must be 
done on line. Large numbers of on line 
users could degrade response time affec- 
ting other applications. The ability of the 
micro to "off load" the planners from the 
main frame could significantly improve 
the data processing system for all users. 

This is called "distributed data process- 
ing" and it is at the core of the new com- 
munications networks announced by 
most major computer vendors. It is sur- 
prising Tandy has not chose to advertise 
its potential in this area. With the enor- 
mous amount of software available for the 
TRS-80 under both TRSDOS and CPM and 
national service availability, the Model II 
is a logical choice for use in any distribut- 
ed processing network. 

Mass Software 

In my July column, I suggested a new 
user should stick with software packages 
that have wide distribution. This advice 
may be difficult to follow with mass distri- 
bution software packages such as Radio 
Shack products. These products are all 
wide distribution products by the nature 
of Tandy's distribution system. Although 
this does not automatically mean they are 
"bug free," it does mean any major bug 
will be found and corrected immediately. 
You can imagine the irritation level in Fort 
Worth when hundreds of dissatisfied 
users are calling in with program prob- 
lems. 

Mass distribution of software has 
created a unique situation. Until this oc- 
curred, a software package that had over 
500 users was considered a mass distribu- 
tion product. The system "debug cycle" 
was measured in years and user groups 
were developed to make suggestions for 
product improvement. Now a system's life 
cycle has been radically altered. With 
1,000 systems distributed for the same 
computer, the "debug cycle" has been 
reduced to a few months. However, we 
still need business users groups to provide 
suggestions to the vendor. If there is any 
interest in forming such a group, please 
contact me c/o Oppenheim Appel Dixon & 
Co., One New York Plaza, NY 10004. ■ 
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Now NRI takes you inside the 

new TRS-80 Model III microcomputer 

to train you at home as the 

new breed of computer specialist! 



NRI teams up with Radio Shack 

advanced technology to teach 

you how to use, program and 

service state-of-the-art 

microcomputers . . . 
It's no longer enough to be just a 
programmer or a technician. With mi- 
crocomputers moving into the fabric of 
our lives (over 250,000 of the TRS-80™ 
alone have been sold), interdiscipli- 
nary skills are demanded. And N Rl can 
prepare you with the first course of its I 
kind, covering the complete world of 
the microcomputer. 

Learn At Home 
in Your Spare Time 

With NRI training, the programmer 
gains practical knowledge of hardware, 
enabling him to design simpler, more effec- 
tive programs. And, with advanced pro- 
gramming skills, the technician can test 
and debug systems quickly and easily. 

Only NRI gives you both kinds of 
training with the convenience of home 



Training includes new TRS-80 Model III micro- 
computer, 6-function LCD Heck man multimeter. 
and the MU Discover)' Lab with hundreds of tests 
and experiments. 

(TlCvUO is a trademark of the Kadio Shack division of Tandy Corp ) 





study. No classroom pressures, no night 
school, no gasoline wasted. You learn at 
your convenience, at your own pace. Yet 
you're always backed by the NRI staff and 
your instructor, answering questions, giving 
you guidance, and available for special help 
if you need it. 

You Get Your Own Computer 
to Learn On and Keep 

NRI training is hands-on training, 
with practical experiments and demonstra- 
tions as the very foundation of your knowl- 
edge. You don't just program your computer, 
you go inside it... watch how circuits in- 
teract . . . interface with other systems . . . 
gain a real insight into 
its nature. 

You also work 
with an advanced liquid 
crystal display hand- 
held multimeter and 
the NRI Discovery Lab, 
performing over 60 
separate experiments. 
You learn troubleshoot- 
ing procedures and gain 
greater understanding of 
the information. Both 
microcomputer and 
equipment come as part 
of your training for you 
to use and keep. 



Send for Free Catalog. . . 
No Salesman will Call 

Get all the details on this exciting 
course in NRI's free, 100-page catalog. It 
shows all equipment, lesson outlines, and 
facts on other electronics courses such as 
Complete Communications with CB, 
TV/Audio and Video, Digital Electronics, 
and more. Send today, no salesman will ever 
bother you. Keep up with the latest technol- 
ogy as you leam on the latest model of the 
world's most popular computer. If coupon 
has been used, write to NRI Schools, 3939 
Wisconsin Ave, Washington, DC. 20016. 



NRI Schools 

McGraw-Hill Continuing 

Education Center 
3939 Wisconsin Avenue 
Washington, DC 20016 







NO SALESMAN WILL CALL. 

Please check for one free catalog only. 

□ Computer Electronics including 
Microcomputers 

D Color TV, Audio, and Video System 
Servicing 

□ Electronics Design Technology 

□ Digital Electronics 
D Communications Electronics • FCC 

Lcenses • Mobile CB • Aircraft • Marine 




□ Basic Electronics 

D Small Engine Servicing 

□ Appliance Servicing 

□ Automotive Servicing 

□ Auto Air Conditioning 

D Air Conditioning, Heating. 

Refnaeration, & Solar TecnnoloR 
O Building Construction 



(Please Prim) 



« 



* City. State/Zip 

1 Accredited by the .Accrediting Commission of the National Home Studs Council 
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News From 

KITCHEN TAB1E SOFTWARE. INC. 



by David Busch 




Early in 1981, one of the top program- 
mers at Kitchen Table Software Corp., 
a fictitious supplier of innovative pro- 
gramming for the TRS-80, put the finishing 
touches on a brand new disk operating 
system, DROSSDOS 8E, originally intend- 
ed as a replacement for DROSSDOS 1.1, 
reviewed in 80 Microcomputing several 
months ago. Unfortunately, the new DOS 
was compatible with no known computer 
system. A few ill-conceived but insur- 
mountable bugs in the DOS made it im- 
possible to run on the Z-80 micropro- 
cessor. The machine code used instruc- 
tions that did not exist in the Z-80 chip. 

Rather than scrap the estimated 47 
person-years invested in developing this 
DOS, Kitchen Table immediately dis- 
patched a staffer to Sri Lanka, long known 
as an oriental hotbed of solid-state high 
technology. There, arrangements were 
made for the development of an entirely 
new computer system, based on a new 
chip, the Z-79A, which was designed to in- 
clude the new instruction set. 

I'm happy to report that the innovative 
firm has undergone a name change to 
Kitchen Table, Inc., and has broadened its 
scope to include hardware marketing. 
Sometime this year, KTI will be importing 
the new micro, dubbed the TLS-8E by the 
manufacturer. The computer is of special 
interest to 80 Microcomputing readers, 
because it is 100 percent downward com- 
patible with the TRS-80 Model I or Model 
III. 



The Unbiased Report 

Because of my glowing reports on their 
earlier efforts, Kitchen Table asked me to 
prepare an equally unbiased report on the 
TLS-8E. I accepted a sample of the new 
micro (on loan only, we reviewers have 
scruples, too), and promised to give the 
machine a thorough workout sometime 
before the loan expires in 1991. 

Less than three days later, the TLS-8E 
arrived. It took only five minutes to un- 
tangle the unit from the wadded paper 
packing (this later turned out to be the 
documentation), and to set up the 
machine. The TLS-8E consists of five ma- 
jor components: a keyboard/CPU, CRT 
unit, expansion interface, tape drive, and 
a long spool of ribbon cable. Odds and 
ends included with the kit were some 
loose PC card connectors, solder, a 
soldering iron, and a stack of 8-track 
tapes. Following the instructions, I set the 
CRT on top of the expansion box, and 
quickly snapped the edge card connec- 
tors onto appropriate lengths of ribbon 
cable. These were then plugged into 
likely-looking orifices on the keyboard, ex- 
pansion interface, CRT and tape drive. I 
powered the contraption up, and, lo, the 
CRT sprang to life with the message 
"Memoly Size?" 

The keyboard is simplicity itself. To 
keep costs down, KTI elected to go with a 
non-standard keyboard. Instead of the 
familiar QWERTYUIOP array, the keyboard 
is laid out in a 16-key matrix, four keys on a 
side. Each of the 12 keys in the top three 
rows may be pressed in four directions,— 
forward, back, left and right. This config- 
uration yields a possible 48 characters to 
be entered using only 12 keys. The bottom 
four keys are SHF (shift), CTL (control), 
ESC (escape) and TBA (to be announced). 
When one of these keys is depressed 
along with one of the upper 12, the result 
is uppercase control characters and the 
Chinese alphabet. My source at KTI says 
the TBA key will be used to produce a 
selection of Japanese, Greek, Russian 
and popular Walt Disney characters. The 
company is still working on the character- 
generator ROM, which is said to weigh 
over five pounds. 



Character arrangement on the keys fol- 
lows a logical alphabetic order. KTI re- 
ports that the TLS-8E will not be sold to 
touch typists under any circumstances. 

I broke the seal on my unit to look at the 
interior. The breadboard inside was im- 
pressively arrayed with transistors, capa- 
citors, a few ICs and other complicated- 
looking gadgetry. A KTI spokesperson ex- 
plained that the TLS-8E makes extensive 
use of hard-wiring in place of the less ex- 
pensive (cheaper) printed circuitry. In a 
similar vein, more than a dozen ICs have 
been replaced by the equivalent transis- 
tors and other solid-state components, to- 
talling in the thousands. Those integrated 
circuits that were used, such as the Z-79A 
microprocessor, have been solidly sol- 
dered onto their connecting wires to keep 
the computer working reliably, even 
through the estimated 1200 degree tem- 
peratures that develop inside the key- 
board when the computer is left on for 
more than 30 minutes. Stainless steel was 
used for the keyboard case so the entire 
unit can function as a heat sink. 

On to the CRT: It is not necessary to 
connect the CPU to the monitor. Instead, 
an unshielded RF modulator built into the 
computer automatically transmits direct- 
ly to the CRT and any other television re- 
ceiver within 100 yards. The monitor sup- 
plied with the TLS-8E was a generous 
19-inch unit, which had Des Plaines Holi- 
day Inn engraved on its top. Resolution of 
the image compared favorably to that of 
the TRS-80, which was unfortunate. We 
had hoped for better. However, I wel- 
comed the addition of a Horizontal Hold 
button to my CRT controls. 

The TLS-8E monitor provides the popu- 
lar green screen favored by many com- 
puterists. However, and I believe this is 
unique to the industry, this unit allows the 
user to adjust the tint of green to suit per- 
sonal preference. I added a touch of ma- 
genta to warm the image a bit. 

Though I have learned that KTI plans to 
allow purchasers to start with a basic 
TLS-8E, and upgrade their systems a com- 
ponent at a time, the expansion interface 
is practically a necessity, even for first- 
time purchasers. First, without the expan- 
sion box, the CRT wobbles uncontrollably, 
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for it is supplied with only three feet on the 
bottom. Second, and perhaps more impor- 
tant, all of memory is contained within the 
expansion interface. Both the ROM and 
RAM chips reside permanently in the op- 
tional interface. This possibly explains 
why the basic TLS-8E (keyboard, CRT and 
tape drive) is priced at $99, while the ex- 
pansion interface carries a $599 price tag. 
The good news is that the interface is 
fully supplied with a 16K ROM, 54K of 
RAM (yes, the Z-79A can address 70 thou- 
sand memory locations), a disk controller, 
RS-232 board, and other goodies. These 
can be put into service by the user with 
minimal wiring and soldering. 

The Tape Drive 

Special mention has to be made of the 
tape drive supplied with the TLS-8E. KTI 
has chosen to eschew the popular Kansas 
City and less popular Radio Shack stan- 
dards for its own unique cassette I/O sys- 
tem. I don't understand the electronics, 
but I do appreciate the hardware: The TLS- 
8E makes effective use of an ordinary 
eight-track tape recorder. This innovative 
tack makes several new features possi- 
ble. Now one can record eight different 
programs on the same length of tape. By 
setting the recorder in monaural mode, 
and switching among the tracks and 
channels, users can store more than 250 
megabytes of program material on one 
80-minute eight-track tape! 

Alternatively, programs can be stored 
on four tracks, and the other four used for 
recording stereo music. The TLS-8E tape 
drive is the only microcomputer tape I/O 
device of which I'm aware that is supplied 
with interchangeable face plates to fit 
both GM X-body cars and most Toyota 
dashboards. The biggest drawback is that 
the tape cannot be rewound. Once a pro- 
gram has been CSAVED, or CLOADed, the 
user must fast-forward through the entire 
tape to get back to the same point. 

This brings us to one peripheral that KTI 
did not send me to test— disk drives. I 
thought that odd, because it was the off- 
shoot of DOS, DROSSDOS 8E, that 
spurred the creation of the computer in 
the first place. However, I have inspected 
the Kitchen Table literature carefully, and 
was able to glean a few details about the 
disk drives. I filled in the gaps with a long 
telephone conversation with KTI techni- 
cal personnel. 

The company's product development 
people combined features from many dif- 
ferent drives in designing the KT1 100. The 
units are single-sided, 35-track, 40 ms 
track-to-track drives fully rated for single- 
or half-density operation. A rheostat that 
emerges from the top of the case allows 



the user to alter the speed of the drives 
plus or minus ten percent. 

Design of the drives is unusual to say 
the least. Great emphasis has been 
placed on simplifying those components 
prone to breakdown, to provide greater 
reliability. For example, the write-protect 
tab sensor and door-open sensor have 
been eliminated entirely. As a matter of 
fact, the KTI 100 has no door at all. The 
user simply slips in a disk and enters the 
desired command at the keyboard. The 
drive cone clamps the disk when the 
motor starts, although it is sometimes 
necessary to jiggle the disk a bit to ensure 
proper centering and mounting. There is 
no LED on the front of the unit to indicate 
that the drive is operating. KTI spokes- 
people point out that the noise generated 
by the motor is sufficient indication. The 
stepper arm makes a grinding sound as it 
moves across the disk surface, so it is fair- 
ly easy to tell which drive is actually being 
accessed. 



"The TLS-8E 

makes effective use 

of an ordinary 

eight-track 
tape recorder. " 



The KTI drives are supplied with lami- 
nated fiberboard cases. The units are 
compact because no power supplies are 
incorporated in the drives themselves. KTI 
deemed the 1250-watt supply built into the 
TLS-8E keyboard sufficient for all periph- 
erals. Though the voltage supplied ( + 5 v. 
and - 5 v.) to the drives can vary as much 
as 37 percent, the rheostats on top of the 
drives can compensates for fluctuations as 
needed. KTI also provides circuit dia- 
grams for a simple rewiring, allowing the 
user to dim the room lights when the disk 
drives are not in use. 

DROSSDOS 8E is the standard operat- 
ing system supplied free with the disk 
drives. Mandatory Zaps are available for 
only $4.95 per month. 

What about the compatibility with the 
TRS-80? Kitchen Table insists that their 
new computers should be 100 percent in- 
terchangeable with Tandy's micro for 
nearly any application. The key is the 
Z-79A processor. The Z-80's instruction 
set is a subset of the Z-79A's, which 



means that all machine language pro- 
grams are directly transferrable. The 
Z-79A does have more than 1 14 additional 
instructions, such as SHOVE, DROP, 
FLIP, FORGET, and CREATE, which 
should be invaluable to creative program- 
mers who don't mind limiting their market 
to the 1000 TLS-8E owners whom KTI 
estimates will blanket the nation by 
mid-1985. 

TheTLS-8E's Level XXII Basic, and Disk 
Basic supplied with DROSSDOS 8E, are 
similarly compatible with the Radio Shack 
equivalents for the Model II and Model III. 
KTI says that POKEs can be written into 
TLS-8E programs, and transferred directly 
to Radio Shack Model I and Model III com- 
puters. The company does caution that 
the result might not necessarily be the 
same, however. 

For example, POKE 15360,65 in the 
TRS-80 will cause an uppercase A to be 
produced on the CRT screen. This same 
command in Level XXII instructs the com- 
puter to zero 4K bytes of memory, begin- 
ning at the starting address of the pro- 
gram. This could conceivably cause prob- 
lems to the unsuspecting programmer. 
KTI is planning to provide a Superduper- 
map listing that will cross-reference the 
TLS-8E ROM with Tandy's. 

Some Level II features have multiple ap- 
plications in Level XXII. DIM may be used 
to dimension an array. Without an argu- 
ment, DIM will lower the brightness level 
of the CRT by 50 percent. CLS will clear 
the screen if used at the beginning of a 
subroutine. Otherwise, it causes the com- 
puter to Cancel Last String. 

There are too many enhancements to 
Level II in the KTI TLS-8E to discuss here. 
For a computer that is not officially on the 
market yet, and which may never be im- 
ported after this review is published, the 
TLS-8E has generated a great deal of in- 
terest. Keep reading 80 Microcomputing 
for further developments from Kitchen 
Table, Inc.B 
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THE EXCLUSIVE ORACLE 



by Dennis Kitsz 



Ql have an alternate suggestion for Mr. John W. 
■ Schrage of Chester, NJ, concerning his problems with 
the real-time clock and LNW board (Exclusive ORacle, May 
1981). Perhaps he has not seen the note at the bottom of page 
5 of the LNW users manual: 

""If Floppy section Is not installed, 
connect U23 pin 9 to ground. Note: U14 
(FD1771B) must not be installed." 

Also advise him to check for etch shorts. Mine had one 
under an IC socket! Every time I tried to load a tape from cas- 
sette, the UART would also become enabled, dumping all 
sorts of garbage onto the data line. 

Ron Kiyomura 
Huntington Beach, California 

A. It seems many of us never saw LNW's footnote on en- 
abling the clock. Thanks to Ron and other readers who called 
my attention to it. That small print can save Mr. Schrage the 
$24.95 cost of the floppy disk controller. 



Q. I tried your "unlocking Reset" note (80 Applications, 
September, 1980), but it had no effect on the need for Break 
with Reset, and continues to show the memory size ques- 
tion when pressed. I am enclosing a sketch of my interpreta- 
tion of your instructions. I have tried all arrangements of the 
10,000 ohm resistor, but nothing worked except that by keep- 
ing the switch closed I still had my original system intact. Did 
I goof somewhere? 

Dan Fielder 
Atlanta, Georgia 



A. My instructions might have been clearer, as you and sev- 
eral other readers pointed out. The trace cut you need to make 
is found between Z32 pin 4 (Z39 on newer interfaces), a type 
74LS155 circuit, and Z23 pins 1 and 15 (Z50 and Z51 on newer 
interfaces). Your sketch shows you have cut the trace next to 
pin 4, which is not correct. 

A schematic of the trace cut is shown in Fig. 1. 
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Fig. 1 



Also, the Reset modification can be made to work for users 
of the LNW expansion board. The LNW design incorporates 
termination resistors clamping the data lines low (220 ohms 
to ground, 470 ohms to + 5 volts). Even when the disk control- 
ler response is supposed to be in the invisible "tri-state" 
mode-your CPU should see all ones on the data bus (decimal 
255)-the LNW resistors force it to see zeroes instead. I have 
contacted LNW about this, but they feel the problem is in- 
significant. 

If you are using the LNW board and wish to unlock Reset, 
you must replace the termination resistors with other values. 
Replace the 220-ohm resistors with 680-ohm resistors, and 
leave the 470-ohm resistors as they are. The lines will still be 
immune to noise (the reason for the resistors in the first 
place), and Reset works once again. This will also prevent 
some unusual memory phantoming (the appearance of high 
memory where there actually is none) on LNW systems with 
only 16K expansion memory. 



Q. I have problems with speeding up my TRS-80. The mod 
works fine in the high-speed mode as long as the program 
doesn't use any memory from the expansion interface. I pur- 
chased a 300 nanosecond memory from Godbout Electronics; 
my expansion interface was manufactured in January, 1980, 
and it does not have the buffered cable. I can't understand 
what is causing this problem. 

Harry Vent in 
Wilmington, Delaware 



A. Speeding up the TRS-80 itself is not a hard task, but get- 
ting an entire system to work at high speed can be a problem. 
First, let me refer you to a note that supplements the original 
high-speed modification published in February, 1980, since 
changes are required for the newer expansion interfaces-see 
80 Applications, "High Speed Update", May, 1981, page 54. 
This change speeds the memory selection in the expansion 
box, which Radio Shack set to a fixed rate. 

A second change is made in the keyboard unit itself, and 
has been published in various forms in user group newslet- 
ters. This second change is necessary in situations where any 
part of the memory-select circuitry is marginal, and will im- 
prove reliability anyway. The simplest version: Locate Z69 in 
the keyboard unit, and find pin 5. You will see that a circuit 
trace goes off to the left, around, and back underneath Z69. It 
leads to pin 12. Cut that trace. Now attach a small jumper wire 
between pin 12 and pin 10. Assuming you have made both the 
changes to the expansion box and to the keyboard unit, your 
high-speed modification should work correctly. 

By the way, if you have a great deal of patience and good 
eyes, you can install a super speed-up kit available from Arch- 
bold Electronics in Rancho Cordova, California.' For about 
$45, you can double the speed of your machine. This board is 
also "intelligent", monitoring the activity of the computer so 
it automatically slows down during disk access. Tripling the 
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Now for theTRS-80 Models I & 




• Double Sided & Double Density Support 

• Hard Drive Support UpTo 10MEGS As ASingle Drive 

• Inter mix 5", 8" and Hard Drive Up To 8 Total Drives 

• A 250 Page Manual 

• Complete Technical Information 

• A TOLL-FREE 800 Number for Customer Service 

• A Full Time Staff to Handle Customer Service 

• A Bulletin Board on MicroNet 



• An LDOS NEWSLETTER 

• A Liberal Update Policy 

• An ENHANCED BASIC 

• A Complete Job Control Language 

• Device Independent 

• Media Compatible Model I to Model III 

• A One Year Warranty 



* SPECIFIC HARDWARE IS REQUIRED TO UTILIZE THESE FEATURES. 



The Ultimate In Operating Systems Model I & 



Only $ 



149 oo 



For Further Information Contact The Distributor Or Dealer Nearest You: 



DEALERS 



Foreign 

Cesco Electronics Ltd. 

Montreal, Canada 

Calisto Computers Ltd. 

Birmingham, England 
Molimerx Ltd. 
Sussex, England 
Graphie 

Montreuil, France 
Domestic 
Hobby World 
Northridge, CA 
Byte Shop of San Diego 
San Diego, CA 
Howard Industries 
Anaheim, CA 

Patio Computer Sales 

North Hollywood, CA 

J l> R Inventory 

Santa Ynez, CA 

Jim's Computer Service 

Laguna Nigel, CA 

Micro Computer Tech, Inc. 

Santa Ana, CA 

Berkeley Microcomputers 

Berkeley, CA 

Dimensional Software 

San Diego, CA 

Byte Shop of Placentia 

Placentia, CA 

Computerland of 1000 Oaks 

Thousand Oaks, CA 

(West) 
L0B0 DRIVES INT'L 

354 S. Fairview Ave. 

Goleta, CA 93117 

(805) 683-1576 



Computer Forum 

Santa Fe Springs, CA 
Teem Quest 
Palm Desert, CA 

H.W. Computers 

Redondo Beach, CA 

Lobo Drives Int'i 

Goleta, CA 

The Program Store 

Washington, DC 

Computer Junction 

Ft. Lauderdale, FL 

Adventure International 

Longwood, FL 

Personal Computing Center 

Margate, FL 

H.I.S. Computermation 

Melbourne, FL 

Thompson Sporting Goods 

Rexburg, ID 

Idaho Micro Computer 

Buhl. ID 

Information Concepts 

Richton Park, IL 

Advanced Operating Systems 

Michigan City, IN 

Radio Shack Computer Ctr. 

Louisville, KY 

The Computer Shoppe 

Metairie, LA 

Small Business Systems Group 

Westford, MA 

(Central) 
GALACTIC SOFTWARE LTD. 

11520 N. Port Washington Rd. 

Mequon, Wl 53092 

(414) 241-8030 



Computer Center 

Garden City, Ml 

The Alternate Source 

Lansing, Ml 

Computerland of Kentwood 

Kentwood, Ml 

The 8 Bill Corner 

Muskegan, Ml 

Soft Sector Marketing, Inc. 

Garden City, Ml 

Tri County Electronics 

Fenton, Ml 

Comp-U-Trs Software 
St. Louis, MO 
Forum-80 Headquarters 

Kansas City, MO 

The Software Shop 

Belton, MO 

J & J Electric/Radio Shack 

Hackettstown, NJ 

The Computer Forum 

Redbank, NJ 

M-T Electronics 

Sparta. NJ 

Computer Madness 

Englishtown, NJ 

Autel Electronics 

Albuquerque, NM 
Data Base, Inc. 
Albuquerque, NM 
Hurley Electronics 
Las Vegas, NV 

(The Common Market) 
MOLIMERX LTD. 

1 Buckhurst Rd., Bexhill 
Sussex, England 
(0424)-220391 



A World of Computers 
Port Chester, NY 
Programs Unlimited 
Jerico, NY 
B. I. Enterprises 
Centereach, NY 

Computerland of Nassau 

Carle Place, NY 

Computerland of White Plains 

White Plains. NY 

Computronics 

Spring Valley, NY 

Crowleys Radio Shack 

Whitehouse Station, NY 

John D. Owens Associates, Inc. 

Staten Island, NY 

Computerland of New York City 

New York. NY 

Digibyte Computers Center 

New York, NY 

Future Visions Computer Store 

Melville, NY 

Micro Mini Computer World Inc. 

Columbus, OH 

The Computer Store 

Tulsa, OK 

Vern Street Products 

Sapula, OK 

V.R. Data 

Folcroft, PA 

Microtronix Inc. 

Philadelphia, PA 

(East) 
MISOSYS 

5904 Edgehill Dr. 

Alexandria, VA 22303 

(703) 960-2298 



Stevens Electronics/ 

Radio Shack 

Phoenixville, PA 

Erie Computer 

Erie, PA 

Quality Software Distributors 

Da I lax, TX 

Computers To Go 

Austin, TX 
Aerocomp 
Dallas. TX 
Custom Computer Center 

Houston, TX 

AT-80 

Dallas, TX 
Misosys 
Alexandria, VA 
80-US Journal 
Tacoma. WA 
Petted Micro Systems 
Milwaukee, Wl 
Galactic Software Ltd. 
Mequon. Wl 



DEALER INQUIRES WELCOME 
LDOS is a product of LSI Inc. 
TRS-80 a trademark of 
Tandy Corp. 



A 



OGICAL 
SYSTEMS 
INC. *i 



^See List of Advertisers on page 354 
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speed of the computer is also possible with this board, by re- 
placing the Z-80 microprocessor with a hotter Z-80B, and ad- 
ding a $20 delay line also sold by Archbold. 

Q. I bought an Expansion Interface on a trip to the United 
States two years ago. It is an old version with a black box 
cable, but no DIN plug connector. I have installed memory 
chips from Jade and Godbout. However, with the E/l switched 
on, I only get 15572 and not the full 48K in response to the 
Print MEM command. 

The Jade literature states: "You should be aware that there 
are some versions of Level II that do not give an indication of 
memory in the E/l. If you ask your machine to print the mem- 
ory size and it gives you a number like 15572, this does not 
necessarily mean that the memory in the E/l is bad— simply 
that the software does not recognize its existence on a Print 
MEM command. Try reading and writing to the higher 
memory..." 

I am able to write to and read from memory. However, when 
I try to set the memory size above the 16K limit, the computer 
hangs up, and when I use a memory test program on the upper 
memory it says that it is practically all defective. Is there 
damage to my system? Does my AC current of 50 Hz create 
timing problems? 

Ken Lennan 
Brussels, Belgium 



A. First of all, the Jade literature is straight out of science 
fiction fantasy. All the Level II memory tests are the 
same— i.e., each potential memory location is read in order by 
the CPU. The complement of the value which has been read 
from memory is written back into the memory location under 
test. The new value is then read back. If the new value does 
not match the value written, the software assumes it has 
reached the end of usable memory. 

Apparently this test is failing at the beginning of Expansion 
Interface memory. In my answer to Mr. Ventin (above), I mem- 
tion the change necessary to the keyboard unit to produce 
faster memory access. This is doubly important with the buff- 
ered cable, which delays access about 20 nanoseconds 
longer. It's unlikely there is damage to the buffered cable, 
since other problems would show up. The 50 Hz power is ir- 
relevant, except that your external power supplies will run 
warmer (don't enclose them in the slots provided in the expan- 
sion box!). 

You should be sure to install the "twisted pair" modifica- 
tion—known by various names including the DIN cable and 
the XRX-I mod— because the buffered cable alone actually 
made things worse on some computers. These cables are still 
available at no charge from Radio Shack (or Tandy stores in 
Belgium) by special order. If you cannot obtain one, you can 
make your own using a six-pin DIN plug/jack pair. 

In either case, Radio Shack provides no instructions for its 
installation, so here they are: 

The twisted pair mod consists of three sets of wires 
(red-black, white-black, and green-black). Each pair of wires 
is twisted together in what is called "transmission line" con- 
figuration, which helps shield external noise from these sen- 
sitive select circuits. The female end of the cable connects to 
the keyboard unit, the male end to the expansion interface 

• Open the keyboard unit and locate Z72. Identify pins 3 5 
8 and 9. Turn the board over; you will be attaching the cable to 
the bottom. 

» Trim the bare ends of the female cable so that only 1/16 



inch (1.5 mm) of tinned wire remains exposed. 

• On the bottom of Z72, solder the red wire to pin 5 (Row 
Address Strobe, or RAS), solder the white wire to pin 9 (Col- 
umn Address Strobe, or CAS), and solder the green wire to pin 
3 (Memory Select Multiplexer, or MUX). 

• Solder each of the black wires to the three available 
points leading from Z72, pin 8 (Ground). 

• Find pins 1,3, and 16 on the edge-card connector. These 
are the connectors normally used for RAS, CAS, and MUX. 
Cut all three foil traces leading from the edge connector. They 
will no longer be used, and are cut to lower induced noise. 

• Route the cable out the back of the computer.and re- 
place the cover. 

• Now open the Expansion Interface and locate Z18 pins 1 
and 8, Z22 pins 12 and 8, and Z24 pins 2, 4 and 7. 

• Again trim the bare ends of the DIN cable (the male end 
this time) to 1/16 inch (1.5 mm) of exposed wire. 

• Solder the red wire to Z22 pin 12, and its black partner to 
pin 8. Solder the white wire to Z18 pin 1 and its black partner to 
pin 8. Solder the green wire to Z24 pin 2 or 4 (they are connect- 
ed by a circuit trace), and its black partner to pin 7. 

• Now locate pins 1, 3 and 16 on the Expansion Interface 
edge card connector. The pin numbers are silkscreened on 
the circuit board, and are not a mirror image of those on the 
keyboard unit. Cut these traces at the edge connector. 

• Route the cable out the front edge of the case, and close 
the unit. The modification is complete, and, together with the 
keyboard unit modification to Z69 explained in the letter 
above, should have your TRS-80 system running crash-free. 



Q. I have a TRS-80 Model I Level II 48K cassette and Stringy- 
Floppy system, and a brand new Epson MX-80. I am using 
Scripsit. While it works well by itself, I cannot use any of the 
special modes available with the MX-80. It is of course possi- 
ble to have the printer primed for a special type of printing be- 
fore Scripsit is loaded, but then one is locked into that particu- 
lar mode. Can you help? 

Ranes C. Chakrovorty 
Salem, Virginia 



A. I can't help, but Jerry Goodwin can. Jerry has developed 
a few programs to patch Scripsit. The first program is called 
SCRIPTR, which modifies Scripsit to enable use of MX-80 con- 
trol codes, as well as: entry and reentry of DOS; program- 
mable display; printing of graphics; insertion during printout; 
complete printing control; a macro facility; and other 
features. SCRIPTR can be obtained from Jerry directly, and 
will be available from Instant Software for $40 within a month 
after you read this. 

In response to my request for you and other readers who 
only need the MX-80 control-code feature (for the moment), 
Jerry has also prepared another program called SCRIPT80 to 
do just that. Send Jerry $7 (or a disk and $5) and he'll forward it 
to you: 1746 N.W. 55th Ave. #204, Lauderhill, Florida 333I3. 

Finally, Jerry has offered to provide a customized patching 
program for SCRIPTR to allow its use with just about any 
printer on the market. Once you've received a copy of SCRIP- 
TR from Instant Software, send Jerry the complete specifica- 
tions for your printer, together with $25, and he'll return you a 
patch program and a 25-page book of documentation within 
six weeks. 

How's that for service, Ranes? 
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Updates 

Reader Lenny Greenberg asked in May's column about in- 
terfacing 128 devices to the TRS-80, and my response includ- 
ed the line "So here's part of a circuit you might use:" Unfortu- 
nately, the schematic diagram was left out. So, Lenny, here is 
part of a circuit you might use (see Fig. 2). 

In the same issue, a gremlin crept into my explanation to 
Dave Hildebrandt of the TRS-80 scrolling routine. The routine 
works like this: 



LD 


HL.3C40H 




LD 


HL.3C40H 




LD 


DE.3C00H 


(not 3C41H) 


LL> 


BC.3BFG 


(not 37FH) LDIR 



The original explanation would have had a screen full of iden- 
tical characters! Thanks to Dennis Thurlow for pointing out 
the error. 

Brian Donlon has written with a method of providing de- 
bounce to EDTASM. Here it is: 

"The keyboard driver for EDTASM begins at 445FH. I re- 
placed the routine here with the routine I found in KBFIX start- 
ing at 7FDAH through 7FFF. There was only one jump that 
had to be changed. After loading this routine over the one in 
EDTASM, I changed the instructions now residing at 4402H 
from F2 E2 7F to F2 F7 43. 

"The code including the above instruction changes is 
shown in Fig. 3." 

"You can zero 4415H to 445FH. There is enough room here, 



3> 



L 



D FLIP-FLOP 



Fig. 2 



starting at 43EFH, to use KBEEPFIX (80 Applications, 
February, 1980) and you won't have to change any instruc- 
tions. Just use the routine starting at 7F98H through 
7FFFH."B 



Address your questions about the TRS-80 to Dennis Kitsz, 
Roxbury, Vermont 05669. 



43E0 
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43F0 
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40 


01 


01 


38 
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00 


0A 


5F 


AE 


73 


A3 


20 


08 


14 


2C 


4400 


CB 


01 


F2 


F7 


43 


C9 


5F 


C5 


01 


DC 


05 


CD 


60 


00 


C1 


0A 


4410 


A3 


C8 


C3 


FB 


03 






Fig. 3 



















THIS IS DIGITALKER 
OUT 127,0 




This is all it takes to say this or 143 other expressions with MICRO- 
MOUTH*. Absolutely no software drivers or subroutines to load. 
MICROMOUTH*, the latest Circuit Cellar project can be used as an 
emergency annunciator, as an aid for the handicapped, for process 
control and automatic monitoring, and to add new dimensions to 
computer games. 

Sample phrases that can be programmed are: 

"THE TIME IS 4 HOURS 23 MINUTES . . .(BEEP)" 

"NUMBER 4 IS 3.47 VOLTS" 

"THE SPEED IS 100 METERS A SECOND . . SLOW DOWN" 

Thousands of expressions can be added by changing the ROM chips. 

MICROMOUTH* is plug compatible with APPLE II and TRS-80* com- 
puters. Directions are included for S100, H8 and parallel 

port Operation . *DIGITALKER is a trademark ol National Semiconductor Corp 
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***** 



.* 



Complete Kit (Model I) 1 1 50.00 
Assembled and tested: 

Apple II $1 50.00 

TRS-80 Model I w/power supply, case, 

cable $175.00 

TRS-80 Model III $200.00' 

•MICROMOUTH is a trademark ol Micromint Inc 

The MicroMint Inc. ^3io 
917 Midway 
Woodmere, NY 11598 
Dealer inquiries 
invited. 



To order call: 

1-800645-3479 
lnN.Y.516-374-6793 
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THE ASSEMBLY LINE 



by William Barden, Jr. 



"Ada. . . was thoroughly 
disgusted with the support software 
and reputedly attempted upgrades. 



Programmers have always been inter- 
ested in how other people's software 
worked. Ada, the world's first program- 
mer, was thoroughly disgusted with the 
support software on Babbage's Analytical 
Engine and reputedly attempted up- 
grades. 

Given the commented source code for a 
particular Assembly program, it is some- 
times virtually impossible to figure out 
what is going on. Without comments, the 
problem is quite a bit more difficult. With- 
out source code, the problem is an order 
of magnitude more difficult. 

Is it possible to disassemble machine 



code and to find out how a program 
works? It certainly is. In this month's col- 
umn, we'll discuss some of the tricks of 
the disassembler trade, in a special report 
entitled "The Disassembly Line". 

Why Disassembly? 

Disassembling can be an educational 
experience. You can see how Microsoft 
implements their code, and get a first- 
hand report of the programming expertise 
at Radio Shack. 

Secondly, disassembly may be neces- 
sary to correct bugs in the program. There 
are some assemblers that will not assem- 



MEMORY LOCATION OF INSTRUCTION MACHINE CODE 

5522 CDB954 

5525 ED5B537C 

5529 DD4E00 

552C C9 

552D ED5B537C 

5531 21627F 

5534 B7 

5535 ED52 
5537 2005 
5539 DD4E00 
553C 37 
553D C9 
553E CD0D55 
5541 DD7E00 

5544 91 

5545 67 

5546 CDD953 

5549 7C 
554A 91 
554B 380C 
554D 3A647C 

5550 91 

5551 2600 

5553 69 

5554 19 

5555 EB 

5556 0E00 

5558 C9 

5559 6C 
555A 2600 
555C DD7E00 
555F 95 

5560 4F 

5561 19 

5562 EB 

5563 C9 

5564 AF 



DISASSEMBLER OUTPUT 



CALL 

LD 

LD 

RET 

LD 

LD 

OR 

SBC 

JR 

LD 

SCF 

RET 

CALL 

LD 

SUB 

LD 

CALL 

LD 

SUB 

JR 

LD 

SUB 

LD 

LD 

ADD 

EX 

LD 

RET 

LD 

LD 

LD 

SUB 

LD 

ADD 

EX 

RET 

XOR 



54B9 

DE. (7C53) 

Ci < IX+00) 

DE. (7C53) 

HL.7F62 

A 

HL.DE 

NZ.553E 

C, (IX+00) 



550D 

A» ( IX+00) 

C 

HiA 

53D9 

A,H 

C 

C5559 

A. (7C64) 

C 

H,00 

L,C 

HL,DE 

DE,HL 

C, 00 

L,H 

H.00 

Af (IX+00) 

L 

C,A 

HL,DE 

DE,HL 



Fig. 1. Typical Disassembly 



ble LD A, (IX-3) properly; there are some 
operating systems that blow up on full 
diskettes; there are some Assembly mail- 
list programs that will not handle address- 
es in the 92692 Zip code. 

Thirdly, creeping elegance rears its 
beautiful head. Why not improve pro- 
grams? Why not add underlining, escape 
sequences, and proportional spacing in 
Scripsit? I am firmly convinced that soft- 
ware for the Radio Shack computers has 
become better because of the pressure of 
improved versions; without them, we'd 
still be at TRSDOS Version 1.0. The overall 
result is better Radio Shack software and 
a more competitive product. 

First, Load the Disassembler 

A disassembler is the inverse of an as- 
sembler. It takes machine code in memory 
and converts it into the equivalent Assem- 
bly program mnemonics. Take a look at 
Fig. 1 . This is a portion of a disassembly of 
Scripsit. Because of copyright laws, the 
comments from the disassembly have 
been left out. 

You can see that there are no symbolic 
labels as there are in a typical Assembly 
program listing. All jumps are to absolute 
addresses. Also, it may be possible for the 
disassembler to get lost when it encoun- 
ters data, buffer or unused areas. 

Fortunately, the disassembler will al- 
most always get back into sync, although 
it is statistically possible for it to never 
recover from the point at which it first en- 
counters garbage. 

Some disassemblers output the disas- 
sembly listing to disk as a file. The file can 
then be edited and reassembled. Some 
disassemblers even provide labels in the 
disassembly. 

One of the first disassemblers was 
Small Systems Software's RSM-1 pack- 
age. Apparat followed with their DISAS- 
SEM. Two other excellent disassemblers 
are the Misosys DSMBLR, which provides 
labels, Equates, and Origins and outputs 
to cassette or disk files, and The Alternate 
Source's Tasmon, which provides sym- 
bols and disk files. (The Tasmon package 
is a powerful monitor, one of the best I've 
seen.) All disassemblers provide output to 
the system printer. 
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THE TRS-80* DATA COMMUNICATIONS SYSTEM FOR THE EIGHTIES 



• Direct connects to your 
home telephone jack 

• Installs in a minute 

• Program swapping mode 
plus terminal mode 

• All software included 




\ 



A&L 









No RS232C interface is 

required 

Lowest price ever 



The MODEM-80 and your TRS-80 Model I Level 2 
disk or tape system make the perfect combination 
to maximize your data communications capabili- 
ties. 

This direct connect, auto dialing/answering 
modem will transmit programs and data between 
MODEM-80 equipped TRS-80 systems. In addition, it 
will transform your computer into a full-function in- 
telligent terminal. And, no RS-232C interface is re- 
quired, so tape-based systems do not need an ex- 
pansion interface. The result is the lowest priced 
data communications system of its type available 
anywhere. 

Program-swapping with your friends is a snap 
with the MODEM-80. Both machine-language and 
BASIC programs can be easily exchanged over the 
telephone line. And, accessing your favorite com- 
puter club bulletin board or any other Bell 103-type 
compatible time-sharing facility is no problem 
either. 

The TRS-80 to TRS-80 software, included with the 
MODEM-80, extends your system's BASIC language 
with 8 new communications-related functions. 
These can be easily incorporated into your own 
BASIC programs allowing, for example, "computer 
vs. computer" competitions. BASIC programs are 
also provided which support disk, tape and memory 
transfer of programs and data, including automatic 
line error detection and re-transmission. This ap- 
proach combines function with flexibility, reliability 
and ease-of-use. 



When operating in the intelligent terminal mode, 
you have over 35 functions from which to choose. 
These include 8 user-definable function keys, baud 
rate selection from 25 to 300, forward and backward 
buffer scrolling, parity control, full and half-duplex 
operation, disk and tape file load and save, auto- 
matic dialing, parallel printer support. . .the list 
goes on and on. 

You can install a MODEM-80 on your system in 
one minute. The ribbon connector plugs into the 
back of your keyboard or expansion interface. 
Power is provided by your computer's power module 
so no additional 110 V outlets are needed. An exten- 
sion cable with standard miniature phone plugs is 
included for direct connection to the telephone line 
and there is even a spare jack to plug in a phone, if 
desired. Since the TRS-80 bus is extended through 
the MODEM-80, you can leave the unit permanently 
connected and still plug in other devices as you ex- 
pand your system. 

The MODEM-80 complete with all software and User 
Guides is only U.S. $219.00** plus U.S. $5.00 for 
shipping, handling and insurance. We accept 
money orders, VISA and MasterCard. The 
MODEM-80 hardware has a 90 day manufacturer's 
warranty. . 

INTRODUCING TOMORROW'S 
PRODUCTS-TODAY! 

"Subject to Canadian rale 
of exchange at time of purchase 



master charge 



-Sao List of Advertisers on page 354 



TO ORDER CALL 416-923-7961 ANYTIME 

AND ASK FOR ICROM'S ORDER DESK 
®~\^ OR WRITE 

ICROM ENTERPRISES LTD. ^40 

1240 BAY ST.— SUITE 505 
TORONTO, CANADA M5R 2A7 
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THE ASSEMBLY LINE 



5200 


START 


5202 


TITLE MSG 


F7F7 


VERSION MSG. INSERT MSG 


5C69 


SMALL MSG AREA 


69C3 


LARGE MSG AREA + TABLES 


6FB9 


SMALL MSG AREA 


7452 


TWOMSGS 


77BF 


TABLES + LARGE MSG AREA 


7AA4 


END 


Fig. 2. Rough Map of Scripsit 



Next, Get a Listing 

The next step in disassembly is to get a 
disassembly listing. You may have to do 
some fancy relocation footwork here, de- 
pending upon the disassembler. Some 
Disassemblers provide a disassembly 
fiom a disk file, making it unnecessary to 
relocate the program to be disassembled. 
Tasmon relocates itself, a neat trick for a 
monitor program. 

The starting address of the file to be 
disassembled may be obtained automati- 
cally by NEWDOS" LMOFFSET or other 
utility programs. At the worst, you can 
find the area loaded by clearing memory, 
loading the file by a DOS Load or Basic 
System command, and scanning memory 
to see which areas have been loaded. 

Once the file has been loaded, disas- 
semble it from beginning to end. If the pro- 
gram is any size at all, you'll wind up with 
a number of pages with approximately 50 
instructions per page or 50 instructions 
per 100 bytes of program. 

For illustrative purposes, we'll be work- 



. 



6F3D 

6F3E 

6F3F 

6F40 

6F41 

6F42 

6F45 

6F48 

6F4B 

6F4D 

6F4F 

6F50 

6F54 

&F57 

6F5A 

6F5D 

6F5E 

6F61 

6F64 

6F66 

6F69 

6F6C 

6F6F 

6F71 

6F75 



BA 

C0 

7D 

BB 

C9 

21F26F 

CDC86B 

CDF86B 

FE01 

28F3 

F5 

FD3611FF 

21DD6F 

CDC86B 

CDD652 

Fl 

32317C 

FD3502 

280B 

CD0460 

3A3E7C 

CDE852 

18F0 

FD3&1100 

C9 



ing with a disassembly of Disk Scripsit, a 
moderately hard program to disassemble. 

Finding the Messages 

Set the listing aside for a while. Like the 
Shadow, it has the power to cloud men's 
minds at this point. We're going to chop it 
down to size by the next step. 

Use your monitor, dump program or De- 
bug to print out the ASCII equivalent of 
the memory area you just disassembled. 
Here again, you may not be able to do this 
easily. At the worst, write a short Basic 
program that uses PEEKs, or simply scan 
the area visually by disk Debug. 

You must now correlate the ASCII with 
the disassembly listing. The Scripsit pro- 
gram we're using as an example uses 
many messages; other programs may not 
have more than few. Write the message 
opposite the starting point on the disas- 
sembly listing. In the case of Scripsit, this 
will probably take several hours. 

What you now have is a disassembled 
listing with all messages denoted. In addi- 
tion to messages, you may also have ta- 
bles of ASCII values, which probably ap- 
pear to be senseless. A rough map of 
Scripsit at this point is shown in Fig. 2. 
The first byte of every message in Scripsit, 
by the way, is the length, in bytes, of the 
message following. At this point the 
10,400 bytes of Scripsit have been re- 
duced to about 9,100 undefined bytes — 
not bad for a start. The step-by-step pro- 
cess now turns into an art, not a science. 
We'll offer some hints at how to continue, 
in a rough priority that has worked for 




REPEAT HOW MANY TIMES' MESSAGE 



CALLS TO MESSAGE OUT- 



ENTER REPEAT COMMAND' MESSAGE 



CALL 

POP 

LD 

DEC 

JR 

CALL 

LD 

CALL 

JR 

LD 

RET 



52D6 

AF 

(7C31)iA 

(IY+02) 

Z.6F71 

6004 

A» (7C3E) 

52E8 

6F61 

(IY+1D.00 



Fig. 3. Finding Message Out Calls 



us— modify it as required for your own 
uses. 

Look for the Message Out Routine 

Having the message locations, we can 
now look for the message-out subroutine. 
With such a large number of messages, 
we should find many references to such a 
routine. Sure enough, there are many Call 
6BC8s. each one preceded by an LD HL, 
XXXX instruction, where "XXXX" is the lo- 
cation of the message. 

Mark each call (two dozen or so) with 
the message to be output, as shown in 
Fig. 3. Since Scripsit messages are often 
associated with the function to be per- 
formed, you're essentially mapping the 
areas of the program by function, as 
shown in the figure. The Control R com- 
mand, or Repeat, in Scripsit displays "Re- 
peat How Many Times", waits for an input 
of the repeat count, and then displays 
"Enter Repeat Command". We can see 
from the figure that this is the sequence at 
location 6F42H. We can strongly suspect, 
therefore, that this is the portion of the 
program associated with the Repeat com- 
mand. 

Decoding the Tables 

Scripsit uses many special Break se- 
quences, where a Break key press is fol- 
lowed by the message "Special Com- 
mand?". An input of a one-character com- 
mand is then done— R for Replace, T for 
Tab, ? for system query, and so forth. 
Scanning our ASCII dump (or using Debug 
in the ASCII mode) we see a likely looking 
string at location 6AE4H— WPI7TSLFRD- 
HSCVE. Each character corresponds to 
one Break special command. This is more 
than coincidence. What else can we de- 
duce from the table? 

With a table of this type, it's a good bet 
that there is a corresponding jump table 
of addresses somewhere else in memory. 
The index to the command character is 
used to access the jump address. Sure 
enough, the 14 addresses following the 
string at 6AE4H all look like valid address- 
es in the Scripsit program area, when 
transposed in Z-80 least-significant, most- 
significant fashion. There's a good possi- 
bility that there's a one-for-one relation- 
ship between the two tables. 



15 References to these Locations 

F 6F76 AF XOR A 

F 6F77 CD7CGF CALL 6F7CH 
6F7A 1812 JR 6F8EH 

5 657C 07 RLCA 

5 References to this Location 

Fig. 4. DISASSEM Reference Notation 
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The Newest NEWDOS/80 Version 2.0 
For Model I And Model III 

THE HOTTEST DISK OPERATING SYSTEM FOR THE 
TRS-80® COMPUTER IS NOW READY FOR THE MODEL 
III AND VERSION 2.0 IS READY FOR THE MODEL I. 
MANY ENHANCEMENTS AND ADDED FEATURES 
SUCH AS NEWCOMMANDS MAKE YOUR COMPUTER 
MORE POWERFUL! $-| 49 QO 



• DOUBLE DENSITY ON MODEL I 

Use of the LNW DOUBLER or the PERCOM 
DOUBLER to expand storage 80% under 
NEWDOS/80 Version 2.0, mixing single 
and double density specifications without 
any patches. 

• SINGLE DENSITY ON MODEL III 

Will allow the MODEL III to read disks from 
MODEL I and to write disks the MODEL I 
can read, making it easy to move programs 
between the two machines. 

• EXPANDED DIRECTORIES 

Directories can be expanded three times 
the normal number of available entries, 
even on DOS disks. This is extremely useful 
when using double density. 

• DYNAMICALLY MERGE IN BASIC 

To allow sections of BASIC programs to be 
deleted and replaced with lines from a disk 
file during program execution. Also allows 
merging of non-ASC II format files. 

• SELECTIVE VARIABLE CLEARING 

Allows the programmer to keep some vari- 
ables and release the space used by the 
rest; also, specific variables may be erased 
releasing the space they use. 

(CALL OR WRITE FOR MORE INFORMATION ON OUR 
COMPLETE LINE OF PRODUCTS AND HARDWARE 
REPAIR SERVICES FOR YOUR TRS-80 COMPUTER) 



Apparotlnc. 

4401 South Tamarac Parkway 
Denver, Colorado 80237 



(303) 741-1778 

"On-going Support for Microcomputers" 

TRS 80 is a registered trademark of Tandy Corporation 



• PAGE SCROLLING IN BASIC 

Scrolling has been modified to allow the 
user to display programs page by page, in 
addition to the regular line scrolling. • ■ ■ 

• REPEAT FUNCTIONS 

Keys in MODEL I repeat when held down, 
Entering "R" as a DOS command causes 
the previous DOS command to be repeated. 

• ROUTING FOR DEVICE HANDLING 

To send input and output from one device 
(display, printer, keyboard, etc.) to others or 
to a routine in main memory. 

• DISASSEMBLER OUTPUT TO DISK 

The Disassembler will now write a source 
code filetodisk, which the editor assembler 
can read and edit. 

• CHAINING ENHANCEMENTS 

Features to allow chain files to be written 
from SCRIPSIT; also, chaining may be 
switched on and off without changing 
chain file positioning, and may be executed 
via CMD "xxx" and DOS-CALL 

• SUPERZAP 

has the ability to scan diskettes or disk files 
to find the occurences of specific values. 
Also will generate disk file passwords and 
hashcode. 

• FAST SORT ROUTINE 

basic function CMD "O" provides direct 
or indirect in-memory sort of multiple 
arrays. 

• MERGING OF NON-ASCII BASIC 
PROGRAMS 

• BASIC SINGLE STEPPING 



s See Uat of Advertisers on page 354 
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**SPECIAL**SPECIAL** 

TRS-60 ADD ON DRIVES 

IMMEDIATE DELIVERY 



SINGLE SIDED $225.00 
DOQBLE SIDED $345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOUBLE SIDED $485.00 

INCLUDES: 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD's 



I 



^246 



2 INTERFACE, INC 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



THE ASSEMBLY LINE 



DISK-80 

EXPANSION INTERFACE 

FOR THE 

TRS-80 MODEL I 




• Disk controller (4 drives) 

• Hardware data separator 

• Buffered TRS-bus connector 

• Realtime clock 

• Printer port (optional) 
ASSEMBLED & TESTED 

with 16K RAM $329.95 

Centronics Printer 

Port add $ 50.00 

with 32K RAM add $ 50.00 

DISK-80 pc board. $ 48.00 

Printer/Power Supply 

pc board $ 16.00 

Complete Kit with 16K 

RAM and Printer Port $275.00 

The DISK-80 EXPANSION INTERFACE is Radio 
Shack hardware and soltware compatible and carries 
a 90 day warrantee including parts and labor. 
Includes user's manual and power supplv 

Call 1-800-645-3479, in N.Y. 1-516-374-6793 

or write: The MicroMint Inc. 
917 Midway 
Woodmere, NY 11598 
Dealer 
inquiries 
invited. 




Mgny large programs with dozens of 
functions will make considerable use of 
tables. Look for them to provide clues to 
the location of program functions. 

To get ahead of ourselves, it turns out 
that the addresses in the second table 
represent the commands in reverse order. 
The sequence, in the jump table at 6AF3H 
is for E, V, C, H, etc. (We discovered this 
after decoding the scan-and-branch rou- 
tine at location 58F0H.) 

We can now search for tables using a 
similar format. A table at 6AD1H of 
WLMCNI is followed by six addresses, 
and these are obviously two tables of the 
same structure. Knowledge of Scripsit 
provides the clue. These tables are associ- 
ated with the responses to Break ? com- 
mands, such as Report Length, Memory, 
etc. 

A third table, at 77BFH, holds the string 
RTBJCVWLPFH, followed by 11 address- 
es. After some thought, we conclude that 
this is associated with format line pro- 
cessing ->RM = X TM = X, etc. 

Having the addresses for each of the 



5200 
5300 
5400 
5500 
5600 
5700 
5800 
5900 



Title, Initialization 
Get Character 
Small Subroutines 



Messages 
Block Mode 
Scan Table SR 



5A00 


Unknown 


5B00 




5C00 


Messages 


5D00 


Disk I/O Subroutines 


5E00 




5F00 


Printer 


6000 


Read Keyboard 


6100 




6200 


Unknown 


6300 


Cassette Subroutines 


6400 




6500 


Hyphenation 


6600 


Special Processing, UART 


6700 


Special Processing 


6900 


? Processing 


6A00 


Message Area 


6B00 


Messages, Tables 


6C00 


ASCII/Binary, Other Subroutines 


6D00 


Deletion, Window 


6E00 




6F00 


Special, Repeat 


7000 


Messages 


7100 


Unknown 


7200 




7300 




7400 


Messages 


7500 


Format Line Processing 


7600 




7700 




7800 


Messages 


7900 




7A00 


Unknown 


7AA4 


End 


Fig. 5. Rough Scripsit Structure 



branch points, we can now label each sec- 
tion of code with the function involved, 
further mapping the disassembly func- 
tionally. 

Separate into Subroutines 

We're now past the easy part. From 
here on in, it's a question of seeing what 
the code does. At this point we can look 
for obvious subroutines and functional 
blocks. We already have a good idea 
where many of the large functional blocks 
are from the jump table addresses. How- 
ever, there are probably a myriad of small- 
er subroutines that are below the func- 
tional blocks in structure. 

The Apparat DISASSEM provides some 
useful hints to the location of subrou- 
tines. A reference table at the end of the 
disassembly lists all references to values 
of zero through FFFFH. References to ad- 
dresses within the disassembled area 
may define subroutines, especially if 
there is more than one reference to the ad- 
dress. The number of references to each 
location is also displayed to the left of the 
location value on the disassembler listing, 
as shown in Fig. 4. 

Code looks like a subroutine when a Re- 
turn terminates the code segment, espe- 
cially if registers are POPped from the 
stack directly before the Return. One can 
work backwards from the end of the sub- 
routine to find the subroutine entry 
point(s), possibly indicated by a number of 
PUSHes to save registers. 

Another method of finding subroutines 
is to scan the reference table or memory 
(using Debug or another monitor) for ad- 
dresses associated with specific func- 
tions. This is the disk version of Scripsit, 
and we know that somewhere within the 
code are calls to the TRSDOS I/O subrou- 
tines. These are fairly easy to find at loca- 
tion 5E13H on, where there are consecu- 
tive Calls to INIT, Close, Open, Read and 
Write. The Disk I/O calls are described in 
the Radio Shack TRSDOS manual; almost 
all programs using disk will use the TRS- 
DOS Disk I/O routines to avoid a non- 
standard disk I/O structure. 

Other obvious addresses to look for in 
Model I code are 37E8H (printer), 3801 H 
(keyboard row 0), 3C00H (start of video 
memory), 0EXH (serial port) and 0FFH 
(cassette). 

Defining the Structure 

At this point the structure of the pro- 
gram (or lack of it) has been fairly well de- 
fined. Don't expect the structure to follow 
a beginning, middle, and end format, or 
even an upper, middle, and lower level 
structure. In this case, Scripsit isn't bad, 
but even here calls to the line printer are 
sprinkled over 10K, instead of being in one 
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C Al /T / on Software and Hardware for 

3/Wfc/ TRS-80 



SOFTWARE 

NEWDOS/80 version 2.0(specify Model I or III) $149.00 

Flextext I $29.95 

Utilize the additional features of the 737/739 under 

Model I or III Scripsit 18 

Flextext II $29.95 

Utilize the additional features of the NEC spinwriter 

under Model II Scripsit® 

Flextext 80 (available soon) 

Utilize the additional features of the MX-80 

under Model I or III Scripsit 8 

Chextext $79.95 

Spelling checker for Model I and III word processing 
Microclinic $24.95 

The ultimate in memory and disk diagnostics 
Meal Master $24.95 

Meal planning and grocery shopping aid 
Sprint 80 $14.95 

Creates your own custom serial printer driver 
Professional Football Predictor $29.95 

Let your TRS-80 pick the winners 
Bionic Basic $74.95 

Expand your Model I disk basic features 
Interactive Business System $500.00 

An inventory control system for manufacturing 
Micro Accounting System $489.00 

The finest general business package we've seen 

HELP/CMD $14.95 

Adds "HELP" feature to NEWDOS/80 version 1.0 



MISCELLANEOUS 

Apparat's Data Separator $29.95 

1 6K TRS 80 or APPLE memory kits $1 9.95 

9 1 /2" x 1 1" blank white.tractorfeed paper.full box $24.95 
9V2" x 1 1" blank white.tractorfeed paper.half box $14.95 
14 1 /2" x 1 1" green bar.tractorfeed paper.full box $34.95 
3V2" x 1 5/1 6" 'tractor feed mailing labels $1 9.95 

Model II add on drives (call for prices) 

Model II business software (call for prices) 

SERVICE CENTER SPECIAL 

Disk drive tune-up $29.95 

Complete-cleaning, alignment, and speed adjustment. 
With any tune-up you may purchase your choice 
1 box Verbatim diskettes $19.95 
BASF head cleaner $9.95 




APPARAT'S PROM BLASTER 

An eprom programmer for all 25 X X and 27 X X chips TRS-SO® 
MOD I & III or APPLE $149.00 

Bus Extender with power source, enclosure and 
5 card slots $149.95 

Mini version with 2 card slots and no enclosure $69.95 



Apparat, Inc. 



NEW LOWER PRICES ON 
TANDON DISK DRIVES 

Complete with power supply, chassis & configured 
for TRS-80® Model I or III 

• Single sided 40 track $295.00 

• Dual 40 or Single 80 track $425.00 

• Dual sided 80 track $515.00 

• Special -2 Dual sided 80's $999.00 



Model I DOS and drive 
package add $54.00 
Includes above drives and 
NEWDOS/80 version 1.0-the 
established DOS. 



MODEL III SUPER SYSTEM 

Approximately 2.1 megabates of disk storage using 2 dual 
headed 40 track drives internally and 2 dual headed 80 track 
drives externally. 

with NEWDOS/80 version 2.0 
same as above with only 2 single 
sided 40 track drives(no DOS) 

NOTE: These Model III computers contain Apparat installed 
disk drives and memory. They are warranted by Apparat, Inc. 
for 90 days. 

Attention Dealers: Call or write for information on our new 
dealer discount package. 




$3299.00 
$1 895.00 



PRINTERS 

Call for our incredibly low prices on printers. 
All printers come with free cable. We carry: 
ANADEX CENTRONICS NEC 
EPSON OKIDATA DAISY WHEEL 





CABLES 






Printer cables 






$29.95 


(specify printer and TRS-80 


Model) 




Disk Drive Cables 








2 Drive 






$29.95 


3 Drive 






$34.95 


4 Drive 






$39.95 


Extender Cable 






$12.95 


Special Cables 




(call fo 


r prices) 



More Savings 



MODEL I DOUBLE DENSITY PACKAGE 

Converts a standard TRS-80 Model I to Double Density. 
LN Doubler-NEWDOS/80 V.2.0 & box of 10 Verbatim Diskettes 
$330.00 value for only $269.00 • LN Doubler alone $149.00 

DISKETTES 

Double density-soft sectored-replacement guaranteed-Hard 

Hole protected. (5V«" only) 
Verbatim Datalife 5V4" 40 track 
Apparat's No Name 5V«" 40 track 
Verbatim Datalife 8" Model II 

FLIP SORT SPECIAL 

The ultimate file box filled with 
50 diskettes 5'/." 
Flip sort alone 



$24.95 
$21.95 
$39.95 



$1 19.95 
$29.95 



MSSM 



E3 



On-going Support for Microcomputers" 



4401 S Tamarac Pkwy. • Denver. CO 80237 . (303) 741-1778 • (800) 525-7674 

Scripsit & TRS 80 are a registered trademark of Tandy Corporation 
Freight FOB Denver call for shipping charges Foreign Orders shipped Air Freight 



- S»e List of AdvarHstin on psge 354 
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KEEPIT 3.0 

Kiilmiii'- Level 11 11a «i<- 
\* riMfn liv Denni> Balhorv kilhz 

KEEPIT performs these function*.: 

• Single-step a Basic program 

• Ke>-et Memory Sze from Basic 

• Save a running program with variables 

• Save machine code or a memory block 

• Restore an accidentally deleted program 

• Observe & change memorv locations 

KEEPIT also features: 

Ke\ board denounce, audible beep, and auto- 
repeal' KEEPI1 3.0 i- written in mac bine 

language and resides in less than 1 ,(MX) bytes of 
high memory. KDTASM source code is supplied 
so the user can relocate Khhl'IT to anv conven- 
ient location. 

How IO order KEEPIT: 

Level II users will wonder how they ever 
H>ed without it! KEEPIT 3.0 is extremely 
vaJuahle as a time and frustration saver! To 
receive your copy, send your name, address 
and just gy.^.j to: 



l# 



1806 Ada Street 

Lansing, Ml 18910 

Ph. SI 7/465-0344 

or 187-3358 



' isa & Vaster Charge add I'", . 

CO. I), add SI. 50. 

Add 7S* for First Class Dekven 

ill orders shipped uilhin 2-1 houi 




TOTAL 

DISKETTE 

BACKUP 




DO NOT TAKE UNNECESSARY RISKS 
WITH YOUR SOFTWARE. 

If your diskette software library is not com- 
pletely backed up, mail the order below im- 
mediately! Or, if you are wasting diskettes by 
making backup copies of all your diskettes 
your problem is solved' Using DUMPLOAD' 
thfl total contents of your diskettes can be 
safely dumped to tape. The hi speed tape op- 
tion allows six 35 or 40 track diskettes to fit 
on one C60 casette. This machine language 
utility will pay for itself the first time one of 
your valuable programs will not load. 

• TRS80 Model 1 16K - 48K 

• TRSDOS or NEWDOS80 Compatible 

• May be used to back-up TRSDOS VTOS 
4.0, NEWDOS. MICRODOS. or data 
disks. (Single Density) 

• Tape verification routine included. 

• Single drive owners are no longer required 
to keep switching diskettes to create a 
backup. 

• Backup without having to remember 
Master passwords 



YES! RUSH ME MY COPY OF DUMPLOAD 
IMMEDIATELY 



-- S15.950N MY CAREFULLY PACKED 
TRSDOS OR NEWDOS80 

DISKETTE E NCLOSED (priority service) 

— $16.95 on Casette - -$19.95 on Diskette 

N.imi' 

Address. ^^^ 

Cl,v State 

Zip: 



MAIL TO: 

B?QQu L c E Zl 1 9r°rJ /,PUTER SERVICES ^496 
8188 HEATHER DRIVE 

Nf-WBURGH. INDIANA 47630 



THE ASSEMBLY UNE 



functional module. The rough structure of 
Scripsit from the above tricks is shown in 
Fig. 5. 

The structure of a program is depen- 
dent upon the standards of the program- 
ming department and/or the standards of 
the individual programmer. If these are 
lax, so will be the structure. There is at 
least one company that generates many 
different versions of software for different 
systems by a meta cut-and-paste tech- 
nique that produces software and must be 
a horror to maintain. (But then again, this 
company only generates the initial ver- 
sion, and doesn't worry about mainten- 
ance.) 

Making a Working Storage Table 

The next step is to start a list of vari- 
ables. You could probably find the star- 
ting point of the program and follow it 
from beginning to end, recording vari- 
ables as you went along, but this is the 
hard way to go. Instead, start a list of 
memory locations roughly arranged in nu- 
merical order and jot down new ones as 
you encounter them. Scripsit appears to 
make many references to locations be- 
yond the end of the program (beyond the 
disassembled area). We could reasonably 
assume that these are locations that hold 
variables— Scripsit's working storage. 

Looking at the disk I/O calls in the 
5E13H area, for example, we find that they 
are called from the code immediately prior 
to the calls, from location 5D23H on. DE 
holds the DCB address for disk I/O, and 
it's obvious that the DCB is located at 
locations 7CB1H. That location is marked 
Disk DCB on our variable list. A further 
nugget is gleaned by noting that an ad- 
dress of 7CD1 H is used on the INIT call at 
5DAFH. This must therefore be the disk 
buffer of 256 bytes. This makes sense, as 



the DCB is 32 bytes long in Model I TRS- 
DOS. The 7CD1 H is marked Disk Buffer on 
our variable list. 

Variables or constants may sometimes 
be found within the program area, as is 
the case of the code at 6C81 H. We found 
that this code was a binary to ASCII sub- 
routine from its association with the ?M 
processing, which prints the amount of 
memory used. One technique of binary to 
ASCII conversion uses a power-of-10 ta- 
ble, and this is found at location 6CCAH 
with values of 2710H, 03E8H, 0064H, 
0O0AH, and 0001 H. 

Another good clue to the location of 
variables is the initialization code. Just 
about every program will "initialize the 
world" on startup. Scripsit is no excep- 
tion, and the code at 5247H initializes 
working storage variables in the 7CXXH 
area, in addition to some within the pro- 
gram itself. 

Add to the variable list as you continue 
to figure out the code. 

An interesting side note about disas- 
sembling Color Computer programs— in 
the Color Computer, the video display 
memory can be set to a 512-byte page any- 
where in memory. It is possible to execute 
a program and watch a graphic display of 
variables changing, in color! This is truly 
state-of-the-art disassembly and debug- 
ging. 

Looking for Special Characters 

Another method of identifying pro- 
cessing within a program is to look for 
unique characters. As an example, look at 
Fig. 6. The 8FH character is used as the 
cursor character in Scripsit, and it's not 
hard to find references to it at 52A7H, 
52D7H and 7A2DH, each of them associ- 
ated with a load of the character into 



52A1 0E3C 
52A3 FD7135 
52A6 FD36078F 
52AA FD360805 
52AE 218B6F 



LD 
LD 
LD 
LD 
LD 



52D3 E5 


PUSH 


52D6 FD36078F 


LD 


52DA CDCC5F 


CALL 


52DD F5 


PUSH 


7A28 56 


LD 


7A29 21ED5C 


LD 


7A2C FD36078F 


LD 


7A30 C9 


RET 


Fig. 6. Looking For Spec 



C.3C 

< IY+35) . C 

(IY+07)i8F 

(IY+08),05 

HL*6FBB 



HL 

( IY+07) ,8F 

5FCC 

AF 



Di (HL) 

HL.5CED 

( IY+07) ,8F 
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(IY + 07H). 

Beyond Disassembly 

You are now into the third level of disas- 
sembly. This is the analysis that is the 
most tedious. Each code segment must 
be scanned and commented. Check off 
each code segment you are sure of and 
put a question mark by others. A typical 
commented disassembly is shown in Fig. 
7, which represents the ASCII to binary 
subroutine in Scripsit. 

Of course, there is no reason to decode 
segments in which you have no interest. In 
my particular case, I was interested in 
adding a proportional spacing capability 
to Scripsit by processing the output from 
the P,I,S command (print invisible lines to 
serial device). I disassembled Scripsit and 
looked for all references to the line printer 
address of 37E8H and to the serial port ad- 
dress of OEXH. The additional work on 
Scripsit stemmed from a desire to up- 
grade Scripsit. 

Along with the analysis of each instruc- 
tion, you may want to run the program you 
have disassembled with Debug. With the 
disassembly, it becomes fairly easy to 
breakpoint the program at proper places. 



Single-stepping may also be used if you 
are confused about program flow. 

The ultimate in disassembly is editing 
and reassembling the source file derived 
from the disassembly and analysis. If 
you've reached this point, you now have a 
fully annotated source listing instead of 
the machine code you started with. 

How long does a complete disassembly 
take? That depends upon the proficiency 
of the programmer and the complexity of 
the program to be analyzed. Assuming 
that he has good tools to work with, such 
as a disassembler with a reference table, 
a good Debug package, and moderately 
hard code, it may take hundreds of hours 
for a program the size of Scripsit. But then 
again, we're talking about a complete dis- 
assembly with comments for every in- 
struction. To disassemble a program to 
add minor patches may only involve a doz- 
en hours or so and be more than worth it 
to add desired capabilities. 

Please feel free to write to me about dis- 
assembly methods or advice on disas- 
sembly tools. I can't, however, send you 
annotated disassemblies of any copy- 
righted software. Good luck in disassem- 
bly.B 



6CAC C5 


PUSH 


BC 




6C4D D5 


PUSH 


DE ASCII DECIMAL TO BINARY 




6CAE EB 


EX 


DEiHL 




6C4F 210000 


LD 


HL»0000 SAVE REGS ENTRY: HL- 


STRING 


6C52 08 


EX 


AFjAF' PNTRTODE EXIT:HL = 


VALUE 


6C53 1A 


LD 




CLEAR RESULT 




A» (DE)* 


6C54 13 


INC 


DE 


SWAP?? 




6C55 FE9B 


CP 


9B 


BUMP POINTER 




6C57 2825 


JR 


Z,6C7E 


TEST FOR? 




6C59 FE21 


CP 


21 


RTN IF FOUND 




6C5B 3821 


JR 


C6C7E 


TEST FOR SPACE OR LESS 




6C5D CDFF53 


CALL 


53FF 


GO IF YES 




6C60 28 1C 


JR 


Zi6C7E 


TEST FOR LINE, PARA, PG, TERM 




6C62 FE2E 


CP 


2E 


GO IF FND 




6C64 2BED 


JR 


Z*6C53 


TEST FOR PERIOD 




6C66 FE2C 


CP 


2C 


GO IF FND 




6C68 2006 


JR 


NZ,6C70 


TEST FOR COMMA 




6C6A 08 


EX 


AF.AF' 


GO IF DIGIT 




bC6B 3011 


JR 


NCi6C7E 






6C6D 08 


EX 


AF>AF' 






6C6E 18E3 


JR 










GO FOR NEXT 


6C70 29 


ADD 


HL.HL , 


i N*2 




6C71 44 


LD 


B.H 


SAVE N*2 




6C72 4D 


LD 


C.L 


N*4 




6C73 29 


ADD 


HL.HL 


N*8 




6C74 29 


ADD 


HL.HL 


N*10 




6C75 09 


ADD 


HL.BC 


CONVERT ASCII TO BINARY 




6C76 D630 


SUB 


30 


NOW IN C 




6C78 4F 


LD 


C. A 


NOW IN BC 




6C79 0600 


LD 


B.00 


MERGE 




6C7B 09 


ADD 


HL.BC 


LOOP FOR NEXT 




6C7C 18D5 


JR 




RESTORE REGS 








6C7E Dl 


POP 






6C7F CI 


POP 


BC 




6C80 C9 


RET 








Fig. 7. 


Hand-Commented Disassembly 





New 
Products 

For the TRS-80* 

MODELS l&l 



Digital I/O Pert 

♦ teaching newsletter 

Control the outside world from Basic 
or machine language. 8 TTL outputs. 
6 inputs, assembled and tested PC 
Board to simplify construction Helpful 
newsletter teaches beginners interface 
techniques All necessary hardware, 
custom front panel, and reference 
manual included (order connector 
below) $47.00 newsletter $2.50 




T T Y- interface 

_— -~-*rf) ,ow cost printout 

^i A ™ _ Convert any ASCII or Baudot teletype 
a ^jl to a TRS-80 printer; no expansion 
Cjs ' interface needed $62.00; optional iDop 

^~ supply $30.00; write for more info. 



Radioteleiype 




wireless 'computer link: 

The lowest cost way to get into the 
world of "RTTY'. Shortwave listeners 
can now use their TRS-80 to monitor 
foreign and domestic news services. 
Amateur radio operators cafc also 
transmit to their RTTY friends Simple 
to install hardware, easy to use soft- 
ware (with many features not found on 
most teletype systems) . . $95.00; for 
detailed information request our flyer. 



LIGHT* PEN 

with sophisticated software 

Add excitement to your software, 
LTPEN-80 adds five new functions to 
Basic; in an instant, pick any (X.Y) 
point or character position on the 
screen simply by pointing the pen!, 
enhance games simplify user entry 
$27.00; (all software included). 




Phone -MODEM 

RS-232 not needed! !! t 

The low cost alternative to, buying 
an expensive RS-232 interface ana 
modem The PHone mODEM emulates 
these functions in software, greatly 
reducing the amount of hardware 
needed The PHODEM connects di- 
rectly to your phone line and can even 
dial directly from the TRS-80 key- 
board Get in touch with the informa- 
tion services at a price anyone can 




the 

CUSTOM 

TRS-80? 

. a gold mine of information on TRS-80 interfacing, 
especially helpful to APIO-80 users, innovative new 
mass storage systems, and many other projects to 
expanaMh^usesoWou^TRS^OaUowcost^MjOO 



J3 



CONNECTORS 

MODELI(40ptn) ft MODEL 3 (SO pin) 

. . allows the user to connect to the expansion 
port of the TRS-80, included is an information sheet 
describing the signals available on the buss and 
how to use them; also a special section revealing 
the secrets necessary to use the M odel 3 buss 
(order 1 c onnector for each APIO-80 ^■■■^B 
— ^^Byou purchase) specify model 1 or 3; $7.50 



PostagepaTdwTthinUSA^^^oreign orders remit 
U.S. funds plus extra postage For instant informa- 
tion on our products call our recording phone 
line (or write) for our new flyer. 



5[nil3X 



O for more info, call © 

717/733-4769 
electronic innovations 

Box 1034 LANCASTER PA 17EO* 
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Special Grand Opening values on complete TRS-80™ 
Model III systems and disk drives, now through Sept. 15, 1981! 



A.M. Electronics, Inc. has created the most powerful and 
reliable TRS-80'" hardware and software systems available to 
get your system up and running. Take advantage of special 
Grand Opening values like these: 

New TRS-80 Model III now with disk drives 

Model III with dual 80-track disk drives— 704K of reliable disk 
storage on only two drives. System features two double-density 
80-track drives, 48K RAM, A.M. Electronics controller board 
Complete, ready-to-run! $2,295 

Model III with dual 40-track double-density disk drives, 48K 
RAM and A.M. Electronics controller board. Complete readv- 
to-run! $1,895 y 

DOS-PLUS operating system for TRS-80 Model III. $69.95 

New! MAKE 80® now available for Model III 

Converts Model I single-density 40-track or Model III double- 
density 40-track standard diskettes into Model III double- 
density 80-track-readable diskettes. $29.95 



New Teac disk drives, complete with power supply, 
case and one-year warranty 

Teac 40-track disk drive. $265 
Teac 80-track disk drive with 1 0ms access time. $375 
Teac 50F dual-headed 80-track disk drive with 1 0ms access 
time. $499 

Disk drive cases & power supplies 

5 1 /?-inch single drive unit with case and power supply. $85 
5'/2-inch dual drive unit with case and power supply. $120 
8-inch single drive unit with case and power supply. $150 

More Grand Opening Specials! 

1 6K 200 nanosecond RAM memory chip. $2.00 each 
Disk drive extender cable. $8.95 each 

Free Disk Drive Guide 

Get your concise and fact-filled guide from A.M. Electronics, 
written in engaging Question /Answer style. Call or write us to 
order your Guide today! ^452 
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Also, we specialize in complete, powerful software 
packages for business. Put your TRS-80™ to work for you! 



Dealer/Service Center 
Record Package 

This package, built in several modular 
packages, can be used separately, or in 
combination as a complete system. The 
modular units are self-contained. When 
combined, they will make the most 
complete and comprehensive service 
center bookkeeping/record-keeping 
package on the market. 

A complete history of customer repair 
files is maintained on-line. Customer files 
can be accessed by account number or 
customer name. The information file 
includes customer name, address and 
telephone number, make of unit, service 
dates, name of servicing technician, 
services performed, and total billed. This 
information can be called to the screen 
or printer as a total list, or by the last 
service date. 

The customer records module can 
post to accounts receivable module, 
payroll module and our Inventory Control 
System. 

A Model I computer, with four 80-track 
drives, or a Model III computer, with two 
80-track drives will hold approximately 
1 ,800 customers and records. By adding 
additional drives to the Model III, more 
than twice this amount of information 
can be maintained. By switching 
diskettes in drives, the capacity is 
unlimited. 

Versions of Dealer Service Center 
Record Package are available for Auto 
Dealers, Mechanics, TV Repair Centers, 
Electronic Technicians and Appliance 
Repair Centers. $199.95 

Order Entry (With 
Invoicing & Inventory) 

Orders are composed of name and 
address information (with optional 
company name), method of shipment, 
method of payment, items on order, 
quantities, prices, description, and stock 
number. The system also prints invoices. 

At point of shipment, inventory is 
automatically updated and dollar sales 
recorded. Shipping charges are logged 
and shipping date recorded. All entries 
may be edited and partial shipping is 
permitted. The inventory module allows 
checking and updating stock, inventory 



See your nearest 
A.M. Electronics, Inc. dealer 

Here is a partial listing of authorized A M. 
Electronics. Inc dealers: 



ARIZONA 

Simutek Computer Products 

PO Box 13687 

Tucson. Arizona 85710 

Microcomputers, Inc. 

1322 E Fairmont 

Phoenix Arizona 85018 

CALIFORNIA 

RAC Products 

3200 Knightswood Way 
San Jose California 95148 

CONNECTICUT 

Mountain View Software 

Miryb'OOK Road 
Danbury Connecticut 06810 
Computer Services ot Danbury 

14 Summit Street 
Danbury Connecticut 06810 



DIST. OF COLUMBIA 

Program Store 

4200 Wisconsin Ave N W 
Washington DC 20016 

FLORIDA 

Computer Worlds 

2232 East Bay Drive 

Clearwater Florida 33516 

Adventure International 

507 East Street 

Longwood. Florida 32750 

All Systems Go 

105 West Plant Street 
Winter Garden Florida 32787 

ILLINOIS 

3H Computer 

1950 Belter Road 

Aurora Illinois 60504 

AAA Chicago Computer Center 

120 Chestnut Lane 

Wheeling Illinois 60090 

Midwest Computer Peripherals 

1467 S Michigan Ave 

Chicago Illinois 60605 

MASSACHUSETTS 

Small Business Systems Group 

6 Carlisle Road 
Westlord. Mass 01886 

Omnitek Systems 

1899 Mam Street 

Tewksbury. Mass 01876 

Computer Plus 

245A Great Road 

Littleton Mass 01460 



Remarkable Software 

1508A Defense 

Muskegon. Michigan 49441 

James Butler 

438 East Lake Street 

Petoskey. Michigan 49770 

Eight Bit Corner 

722 Evanston Avenue 
Muskegon Michigan 49442 

Soft Sector Marketing. Inc. 

6250 Middlebelt Road 

Garden City Michigan 48135 

Matrix Software 

31 5 Marion Avenue 
Big Rapids. Michigan 49307 

Breeze Computing 

POBox 1013 
Berkley Michigan 48072 

NEW HAMPSHIRE 

Hardside 

6 South Street 

Milford New Hampshire 03055 

NEW JERSEY 

Floppy Disk Services 

40 Misty Morn Lane North 
Trenton New Jersey 08638 

NEW MEXICO 

Rocky Mountain Engineering 

4749 Southern. S E 

Albuquerque New Mexico 87t0£ 

NEW YORK 

John D. Owens Associates. Inc. 

12 Schubert Street 
Staten Island New York 10305 

B.T Enterprises 

171 Hawkins 
Centereach New York 11720 

NORTH CAROLINA 

Alpha Technology 
1201 Wicker Drive 

Raleigh North Carolina 27604 



MICHIGAN 

Adapts — 

600 28th Street 
nd Rapids. Michigan 49509 



OHIO 

Electronics Unlimited 

8?4 East 14th Street 
Ashtabula Ohio 44004 

OREGON 

1300 Centre Electronics 

1300 6th Street 
Umatilla Oregon 97882 

PENNSYLVANIA 

Stevens Radio Shack 

562 Nutt Road 
Phoenixville Pennsylvania 19460 

TEXAS 

Quality Software 

1 1500 Stemmons Expressway 

Dallas Texas 75229 



reports, sales reports, shipping charges, 
etc. 

Order Entry is a complete order entry 
system, designed for almost any retail 
and/or wholesale business. Its capacity 
is upward-expandable from a dual 40- 
track Model I system: 1 ,750 inventory 
items, 385 orders per diskette. $199.95 



Inventory Control System 

This system gives the user complete 
access to and control over an unlimited 
number of inventory items. (Note: It has 
been found that systems containing 
more than 1 3,000 items are difficult to 
handle, from a maintenance time 
standpoint. Operations, such as Bl6ck 
File reoganization can take more than 3 
hours.) 

As presently configured, a Model I 
computer with one 40-track drive will 
hold 1 ,925 items, or for a four-drive 
system a total of 6,625 items. Four 80- 
track drives will hold in excess of 1 3,000 
items. A Model III computer, with two 40- 
track drives, will hold about 1 3,000 parts. 
If required, A.M. Electronics can modify 
both the program and hardware 
configuration to allow on-line storage of 
an unlimited number of items. As the file 
becomes larger, maintenance 
operations take longer. Average search 
time is six seconds, with 1 2 seconds the 
longest time. 

Upon program initialization, the user 
specifies the item number and 
description digit length. This allows for 
item numbers up to 23 alpha-numeric 
characters. (As item number digits 
increase, digits for description usage are 
decreased.) 

The program is completely menu- 
driven. Items can be added, edited or 
deleted from the file. Items can be 
placed on order, received to stock, or 
sold from inventory Complete printout 
capabilities are available through the 
printout menu. 

Item information includes: item 
number, description, supplier, re-order 
point, cost, wholesale and retail selling 
price, quantity, on-order, and total sold. 
The re-order point is calculated by the 
program, based on number of items sold 
over a period of time. The time period is 
established at program initialization. 
$199.95 

Get a sample 

software printout — Free! 

Call or write us to get sample program 
printouts for these programs, or if you 
need more information. We'll be happy to 
send it to you. 



power oeftrnO M^^LAtH 

A.M. ELECTRONICS, INC, 



Ann Arbor: 3366 Washtenaw Ave., Ann Arbor, Ml 481 04 (31 3) 973-231 2 Store Hours: Monday-Friday 1 0-6 Sat. 1 0-5 

Grand Opening of our Radio Shack Authorized Dealership at: 1 1 1 Norlh Grand, Box 1 071 , Fowlerville, Ml 48836 (51 7) 223-7281 

Attention Dealers, OEM's & Distributors: Call us for details on our attractive pricing 



"TRS-80 is a trademark ot Tandy Corp 



Prices subiect to change without notice 



sSee List ol Advertisers on page 354 
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NEW PRODUCTS 



Edited by Janet Fiderio 



50 Programs for 
The Pocket Computer 

50 Programs in Basic for Home, School 
and Office, is a collection of new software 
especially written for the TRS-80 Pocket 
Computer. 

The booklet features such Basic pro- 
grams as: Pocket Datebook, Profit Com- 
puter, Metric Converter and Deposit 
Doubler. Each will run without modifica- 
tion on the Sharp PC-1211 pocket com- 
puter and with only minor modifications 
on any Basic microcomputer. 

The publication, priced at $9.95, is 
available from ARCsoft Publishers, P.O. 
Box 132EM Woodsboro, MD 21798. 

Reader Service *- 325 

Dairy Herd Management 

Dairy Herd Computer Services has 
released a Dairy Herd Management pro- 
gram available for the TRS-80 Model II, 
64K with printer. 

With over twenty report categories for 
dairy herd management and statistics, 
this program records complete animal 
history, milk production, and medical 
history. 

The program costs $699. A compatible 
calf program costs $179. For more infor- 
mation contact Dairy Herd Computer Ser- 
vices, 870 Mesa Drive, Arroyo Grande, CA 
93420. 

Reader Service ^ 181 



Mobile 
Entertainment Robot 



The DC-2 is a mobile entertainment 
robot. It features complete mobility, mod- 
el airplane-type radio controls, Sony color 
tv set/monitor, Audiovox components, 
and a turning head controlled remotely in- 
side a protective dome. 

If you wish more information on this 
mechanical man contact The Android 
Amusement Corporation, 2650 Myrtle 
Ave., B-7, Dootson Industrial Park, Monro- 
via, CA 91016. 

Reader Service^ 180 



Software 
Development Station 

A new series of microprocessor devel- 
opment systems enables the Model I or 
Model III with at least 32K of RAM to serve 
as a software development station for a 
variety of single-chip processors. 

Each system is a unified editor/assem- 
bler and shares a common operational 
structure with uniform procedures for pro- 
gram entry, modification, assembly, and 
source file handling. 

Each system is available for $75 on 
TRS-80 cassette (500), or the Model III 
disk. For additional information contact: 
Allen Ashley, 395 Sierra Madre Villa, 
Pasadena, CA 91 107. 

Reader Service ^ 345 

On Genealogical Topics 

Genealogical Computing is a bi-month- 
ly newsletter by the people who created 
the "Family Historians" bulletin board. 




It includes a directory of genealogy-ori- 
ented programs, information on comput- 
erizing family research records, program 
reviews and articles on genealogical top- 
ics. 

Edited by Paul and Saralou Andereck, it 
is available for $2 an issue, or $12 for six 
issues from Data Transfer Assoc, 5102 
Pommeroy Dr., Fairfax, VA 22032. 

Reader Service *- 177 

Medical Software 

A new software package is available 
that permits complete patient and office 
record maintenance for medical offices 
on the Model I and Model III equipped with 
a printer and disk drives. 

The Medical Office System Software 
can store up to 3960 patient accounts on 
the Model I, or up to 4200 accounts using 
the Model III. 

The package is priced at $299 from Tan- 
dy/Radio Shack, 1800 One Tandy Center, 
Fort Worth, TX 76102. 

Reader Service ^ 334 

New Model III System 

Level IV products announces the 
TRS-80 Model III computer with four MPI 
model B-92 double head, double side, 
80-track, 5 1/4-inch disk drives. The system 
sees them as eight separate 80-track 
drives. 

Level IV has used the Radio Shack disk 
controller board, thereby maintaining full 
serviceability and compatibility with other 
standard software. 

Prices begin at $1,859 from Level IV 
Products Inc., 32461 Schoolcraft Rd., 
Livonia, Ml 48150. 

Reader Service ^174 

It Takes a Thief! 



DC-2 Robot 



It Takes a Thief is an adventure game in 
which you teach your computer how to be 
a thief. 

The object of the game is to steal as 
many items of value as you can and get 
away. 
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A tape version for the 16K Level II and 
the 32K disk system are provided on op- 
posite sides of a cassette, for $10 from 
RanDob Computer Paraphernalia, P.O. 
Box 1662, Boca Raton, FL 33432. 

Reader Service • 329 

A Magazine on Cassette 

Chromasette Magazine is a monthly 
magazine for the TRS-80 Extended Basic 
Color Computer. It is "printed" on a 
cassette tape. 

The cassette contains six to eight pro- 
grams that directly load and run on the 
Color Computer. Included each month are 
games, tutorials, utilities, and practical 
programs. 

The cost is $45 for a one year subscrip- 
tion (12 issues) or $25 for a half year. For 
more information contact: Chromasette 
Magazine, P.O. Box 1087, Santa Barbara, 
C A 93102. 

Reader Service *> 339 

Table Top Robotics 

MiniMover 5 is a table-top robot arm 
that can be run with a Level II TRS-80. Con- 
trolled by stepping motors, the arm is a 
five-jointed unit with a parallel linkage 
gripper and 17.5 inch reach. 

Possible applications for the MiniMover 
range from computer games, computer- 
ized construction and computer assembly 
to computer art. 

The Arm unit is priced at $1,695. For 
more information contact Microbot, 1259 
El Camino Real, Suite 200, Menlo Park, CA 
94025. 

Reader Service *•* 169 







PMC-81 



Robotics Reference 
And Applications Manual 

The MiniMover 5 Robotics Reference 
and Applications Manual is available for 
$16.95. 

The manual goes beyond the operation 
of the company's light-weight arm and cov- 
ers other robotic units available on the 
market. It is written for those interested in 
learning manipulator operation; subjects 
include mechanicals, electronic/com- 
puter interfaces, software and mathemat- 
ics. 

For more information contact Microbot, 
1259 El Camino Real, Suite 200, Menlo 
Park, CA 94025. 

Reader Service ^170 



The PMC-81 




Mini Mover 5 and Reference Manual 



Personal Micro Computers has added 
the PMC-81 to its TRS-80 Model I work- 
alike product line. 

This micro has 16K of memory, 14K of 
ROM. utilizes a Z-80 chip and provides a 
keyboard, cassette interface and video 
monitor interface. The PMC-81 uses the 
EXP-100 Expander to add interfaces for 
minifloppy disks, printer. RS-232C and 
S-100 bus. 

It retails for $740 or $939 with , the 
VDM-81 green monitor screen from Per 
sonal Micro Computers, Inc., 475 Ellis St. 
Mountain View, CA 94043. 

Reader Service ^ 331 

On Musical Applications 

The next time you want to compose 
music and experiment with a variety of 
sounds, read Musical Applications of Mi- 
croprocessors, by Hal Chamberlain. 

The author explores digital micropro- 
cessors, sound, music synthesis and ap- 
plications for the more powerful 16-bit 
micros. 

The book is available for $24.95 from 
the Hayden Book Company, Inc., 50 Essex 
St., Rochelle Park, NJ 07662. 

Reader Service k- 328 

Bookkeeping Products 

Bookkeeper II, a new group of book- 
keeping products for CP/M-based and 
Model II systems, is written in Microsoft 
Basic. 
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NEW PRODUCTS 






The software includes general ledger, 
accounts receivable and payable, fixed 
asset, payrci! capabilities and more. It is 
also useful for maintenance of tax tables, 
W-2 forms, quarterly tax reports, and 
more. , 

Bookkeeper II is available at $600 per 
module or $1,500 for the complete pack- 
age. Contact Data Train, Inc., 840 NW 6th 
St., Suite #3, Grants Pass, OR 97526, for 
more information. 

Reader Service s 327 



MTI Offers 

Dual Disk System 

Microcomputer Technology, Inc., is 
now marketing an upgraded Model III sys- 
tem. 

MTI expanded the memory of the basic 
16K Model III to 48K bytes and added the 
MTI double density, dual disk drive sys- 
tem. The system is fully compatible with 
the Radio Shack DOS and peripherals. 

This product sells for $1,998 from Micro- 
computer Technology, Inc., 3304 W. Mac- 
Arthur Blvd., Santa Ana, CA 92704. 

Reader Service ^-175 



Compact Joystick Control 

A joystick-controlled pair of 100K Ohm 
linear-taper pententiometers is now avail- 
able. 

This compact (1 7/16-inch square) joy- 
stick control is intended for a variety of ap- 
plications, from radio controlled model 
cars to video games. 

It is available for $4.95 from Radio 



2nd Edition 



TheBASIC 



Handbook 



Encyclopedia of the 
BASIC Computer Language 



by 
David A Lien 



The Basic Handbook 




Etch— Sketch 
With the TRS-80 



Joy Stick Control 

Shack stores. For more information, con- 
tact Tandy/Radio Shack, 1800 One Tandy 
Center, Fort Worth, TX 76102. 
Reader Service ^ 161 



Mailing List Program 

Demi-Mail is a TRS-80 Model I and III 
compatible mailing list program. It has 
three to five-line address formats, 26 
record types in a single file, five and nine- 
digit ZIP codes, five print and display op- 
tions, individual and global delete func- 
tions, user defined dates for each file and 
variable-size compressed data fields, to 
provide disk efficiency. 

It can also merge name and address in- 
formation with word processing files for 
list processing. 

It is available for $24.95 from Demi- 
Software, 6 Lee Road, Medfield, MA 
02052. 

Reader Service ^ 165 



New Basic Handbook 

The Basic Handbook (second edition): 
An Encyclopedia of the Basic Computer 
Language, by David Lien has just been re- 
leased by CompuSoft Publishing. 

More than a revision, the handbook has 
been reorganized and researched result- 
ing in a definitive compendium of almost 
500 Basic words. 

The Handbook is available for $19.95 
from CompuSoft Publishing, 1050-E 
Pioneer Way, El Cajon, CA 92020. 

Reader Service s 171 



Etch allows you to create pictures with 
graphic dots on your video screen. 

The4K Level II version will save pictures 
on tape and the 16K disk version saves 
pictures on disks which can then be List- 
ed by TRSDOS. Both versions are provid- 
ed on one cassette. 

Etch is priced at $9 from RanDob Com- 
puter Paraphernalia, P.O. Box 1662, Boca 
Raton, FL 

Reader Service ^ 160 



The Memory Box 
Adds Memory 

The Memory Box is a memory expan- 
sion unit that provides 1024 bytes of RAM 
in an unassigned area of memory (3000- 
33FF hex) and can be plugged directly into 
the CPU or expansion interface. 

Two utility programs written to reside in 
the Memory Box are included in the pack- 
age, for $64.95 from Displayed Video, 7538 
Jackson Road, AnnHarbor, Ml 48103. 

Reader Service s 335 



Bowl with the TRS-80 



Tenpins is a machine code bowling 
game for one to four players. This graphic 
game has realistic action and sounds, and 
beginner and advanced levels. Scoring, 
pin setting and ball return are all automat- 
ic. 

It is available for the Model I or III on 
cassette for $14.95, or on disk for the 
Model I for $20.95. Inquiries should be 
directed to Acorn Software Products, 634 
North Carolina Ave., S.E., Washington, 
D.C. 20003. 

Reader Service ^ 347 
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NEW PRODUCTS 




Disk Cleaner 



Cleaning Kits for 
Disk Drive Heads 



Radio Shack is offering disk drive head 
cleaning kits which permit the cleaning 
and maintenance of the read/write heads 
of Model I, II, and III disk drives. 

Two kits are available, one for 5 1/4-inch 
disk drives, and one for 8-inch disk drives. 

The price is $29.95 from Tandy/Radio 
Shack, 1800 One Tandy Center, Fort 
Worth, TX 76102. 

Reader Service ^ 173 



User's Idea Book 



The Microcomputer User's Idea Book is 
a catalog dedicated to meeting the entire 
supply, accessory, and cable needs of 
micro users. 

The 32-page publication is broken into 
separate sections by major microcom- 
puter companies. In addition, extensive 




cross-referencing shows compatibility 
within systems. 

A free one-year subscription can be ob- 
tained by writing: Inmac, Department 12, 
2466 Augustine Drive, Santa Clara, CA 
95051. 

Reader Service ^ 179 



Graphics 

From the Line Printer VII 

The Line Printer VII offers quality im- 
pact printing and dot addressable high- 
density graphics for $399. 

The printer also features: either 80 or 40 
upper and lowercase 5 x 7 dot matrix char- 
acters per eight-inch line at 30 characters 
per second; adjustable width and plain 
paper printing; self re-inking ribbon; and 
switch-selectable standard interface op- 
tions. 

For more information contact Tan- 
dy/Radio Shack, 1800 One Tandy Center, 
Fort Worth, TX 76102. 

Reader Service s 168 



Color-Coded 

Files with Compu-Key 

Wenner Business Systems has in- 
troduced a filing system that businesses 
can use with desk-top computers or word 
processors. 

Compu-Key is a computer-generated 
color-coded filing system which enables 
you to set up files alphabetically, numeri- 
cally, by date, territory, and more. The 
computer codes these sections with col- 
ored blocks, while keeping track of purge 
dates or other data for future recall or 
management reports. 

A box containing 1,000 labels is priced 
at $56.50. For more information, contact 
Wenner Business Systems, P.O. Box 831, 
State St., Los Altos, CA 94002. 

Reader Service s 330. 



Litigation 
Support Software 



The new Litigation Support software 
package from Radio Shack is of direct in- 
terest to law firms, legal offices and attor- 
neys. 

The package assists the attorney in im- 
plementing a flexible storage and retrieval 
filing system. Litigation Support creates a 
client file and a forms file, both of which 
provide complete report generation. 




Line Printer VII 

This software requires a 64K Model II 
computer and a 15-inch wide tractor-feed 
line printer. It is available for $299. For 
more information contact Tandy/Radio 
Shack, 1800 One Tandy Center, Fort 
Worth, TX 76102. 

Reader Service s 336 



Micromouth 
Says 143 Things 

Micromouth is a TRS-80 compatible lim- 
ited-vocabulary voice synthesizer which 
uses the new Digi-Talker DT1050 chip set 
from National Semiconductor to store a 
vocabulary of 143 expressions. 

Micromouth plugs into the keyboard, 
screen printer port or expansion interface 
and programs directly in Basic. 

It comes with case, power supply and 
interconnecting cable in kit form for $150, 
assembled for $175 from Micromint, 917 
Midway, Woodmere, NY 11598. 

Reader Service ^ 176 



Light Pen for 
Models I and 



A self-contained light pen which plugs 
directly into the Model I and III has been 




Light Pen 
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utility 

FORCE 



THE VIDEO MANAGER tU%J FIRST IN A SERIES 

Our Video Manager will enhance your computer's per- 
formance with these features: vertical printing on 
screen; forms design direct from screen to printer; send 
entire screen or any part to your printer; save screen to 
disk as a file and more. Written so you can utilize it from 
DOS or BASIC. Available on disk for: TRS-80,* Mod I TRS 
DOS 2.3, Mod II TRS DOS 1.2 & 2.0, CP/M 2.0 or later, 
soon available for Mod III. For your convenience with 
Visa or M/C phone in your order. Please add $2 for hand- 
ling and postage "-Tandy Corp 

SOFTWAREHOUSE INTERNATIONAL 

* 5070 N. Sixth St. Suite 103B 

P Fresno, CA 93710 (209) 221 7877 

TO RECEIVE A FREE CATALOG PLEASE .-13 




Dr. Jerome S. Otteryoung, renowned business educator, anc 
author of 5 business texts has written the following programs. 

1. PROFORM A CASH BUDGET 

PROGRAM 

Allows the user to project the cash-balances for up to twelve 
periods in the future. Amount of loan, if needed, is computed as 
well as computing funds available for short term investment. 
(Price $125) 

2. LEASE-PURCHASE PROGRAM 

Evaluates the lease vs. purchase decision incorporating all the 
latest tax laws including the investment tax credit and ac 
celerated depreciation. This program gives the user all the in- 
formation necessary to make this decision (Price $50) 

3. BUSINESS PROGRAM PACKAGE 

13 Business programs (e.g., capital budgeting, cash- 
management, ratio analysis, debt management) These pro- 
grams will be very useful to the business manager. (Price $200) 

4. PROCUREMENT PROGRAM 

Ascertains purchase amount when future price of commodity 
is varying. A must for all managers who have purchasing 
responsibilities. This program takes into consideration inven 
tory levels, inventory capacity, and financial carrying cost in 
determining the optimal amount of an item to purchase when 
future prices are varying (Price $iso) 

5. COLLEGE ENROLLMENT 
PROJECTION PROGRAM 

Forecasts the enrollment for colleges using several different 
statistical techniques. User can specify the number of periods 
for which a forecast is desired. (Price $lOO) 

Extensive Documentation With Each Program 

Write or call for a brochure which describes the product in 
greater detai 

• 87 

5200 Bnllany Drive. IH006 Si Peters burg. Florida 33715 
813 864 4347 ~ 



THE PROGRAMMER'S GUILD 
MEANS ADVENTURE! ! 



SPIDER MOUNTAIN 

SEARCH FOR GOLD AND GLORY IN THE TUNNELS 
OF SHELOB'S LAIR. 



TAPE $14.95 



DISK $19.95 



LOST DUTCHMAN'S GOLD 

YOU AND THE GHOST OF BACKPACK SAM AGAINST 
THE TREACHEROUS TERRAIN AND HOSTILE 
INDIANS OF THE SUPERSTITION MOUNTAINS. 



TAPE $14.95 



DISK $19.95 



LOST SHIP 

DISCOVER THE SECRET OF THE FLOATING PIRATE 
VESSEL IN THE MYSTERIOUS DEVIL'S TRIANGLE. 



TAPE $14.95 



DISK $19.95 



DEATH DREADNAUGHT 

CAN YOU ESCAPE THE CREATURE"S DEADLY 
PURSUIT AND MAKE IT TO THE SHUTTLE ALIVE? 
RATEDR DUE TO VIOLENT DESCRIPTIONS. 



TAPE $14.95 



DISK $19.95 



DRAGONQUEST 

RESCUE THE PRINCESS BEFORE SUNDOWN FROM 
SMAEGOR THE TERRIBLE. MACHINE CODE, KEY- 
BOARD MACRO. 



TAPE $15.95 



DISK $21.95 



THUNDER ROAD 

HILARIOUS TAKEOFF ON THE "DUKES OF HAZARD" 
CAN YOU GET YOUR MOONSHINE TO KNAWBONE 
BEFORE SHERIFF BUBBA SHUTS YOU DOWN? 



TAPE $14.95 



DISK $19.95 



DEADLY DUNGEON 

DISCOVER THE SECRET OF THE DEADLY DUNGEON 
AND EMERGE VICTORIOUS AND WEALTHY. 



TAPE $14.95 



DISK $19.95 



• * * NEW RELEASE • * * 
TEMPLE OF THE SUN 

EXPLORE AN ANCIENT AZTEC TEMPLE SEARCHING 
FOR THE SHAMAN'S SECRET. 



TAPE $19.95 



DISK $29.95 



COMPUTER MAIL ORDER IS HEREI 



Programmer's Guild 

P O Bo> 6b- Peterborough NH o MSB •603-924 606S Voice • 603-924-7920 Dald 



•^Sm List of Advrlistrs on ptga 354 
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NEW PRODUCTS 



announced by the 3G Company. 

The pen makes it possible to bypass the 
TRS-80's keyboard and interact directly 
with information displayed on the CRT 
screen. » 

A demonstration game cassette, sam- 
ple program and programming booklet are 
included with the pen. The package sells 
for $39.95 from the 3G Company Inc., Rte. 
3, Box 28A Gaston, OR 97119. 

Reader Service ^ 338 



Fast, Precise Splicing 

The Data Trak Splice Kit makes fast, 
precise splicing of two or more cartons of 
pin-feed forms possible. This kit is most 
useful where unattended printers are 
used on long runs. 

Data Trak is designed to handle 16 dif- 
ferent widths of pin-feed forms (from 4 
1/4-inch to 14 7/8-inch). The cost is $38.50 
from Devoke Data Products, 3780 Fabian 
Way, Palo Alto, CA 94303. 

Reader Service ^ 162 



An Offset 
Printing Estimator 



The Offset Printing Estimator is used in 
the design and final stages of cost esti- 
mating black and white offset printing. 

It is intended for use by business ex- 
ecutives, consultants, and advertising ex- 
ecutives in the planning stages of prepar- 
ing sales literature, bulletins, catalogs, 
and price lists. 

The Estimator runs on the Model I and 
the Model III, and is available for $500 
from Pasadena Technology Press, 3543 E. 
California Blvd., Pasadena, CA 91107. 

Reader Service ^ 178 



Operating 

System Modification 



Cordos is a modification for the Model 
II operating system that allows fully trans- 
parent use of rigid disk drives, such as the 
Corvus Winchester drive and the Cameo 
cartridge drive. 

Up to 98 volumes, or logical drives, may 
be used. Cordos has facilities for pass- 
word protection for the full drive, as well 
as a volume-level password protection. 

The price is $300 for an eight-inch flop- 
py disk from American Business Comput- 
ers, 118 South Mill St., Pryor, OK 74361. 

Reader Service *• 340 
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Data Trak Splice Kit 



Gold Edge-Connectors 
For the Mod I 

The Gold Plug '80 Kit is a micron over 
nickle edge-card plug that is soldered di- 
rectly to the existing edge card plug on the 
Model I CPU and Expansion Interface. 

The kit eliminates problems that occur 
due to oxidation of the tin and lead sur- 
face of the Model I expansion ports. 

Gold Plug '80 kits are available for key- 
board/CPU to expansion interface for 
$18.95, or expansion interface to disk, 
printer, screen printer, or RS-232 ports for 
$9.95 from E.A.P. Co., P.O. Box 14, Keller, 
TX 76248. 

Reader Service *- 166 



Cassettes Formulated 
By Agfa-Gevaert 



Displayed Video is now marketing cer- 
tified data cartridges made of top grade 
tape formulated by Agfa-Gevaert of Ger- 
many. 

These microcomputer cassette tapes 
are certified to be 100 percent error free 
and carry an unconditional money-back 
guarantee. 

The price for the C-10 length 12-pack is 
68 cents each, and for the 24-pack, 58 
cents each. The C-20 12-pack sells for 88 
cents each, 78 cents each for the 24-pack. 
For more information contact Displayed 
Video, 7538 Jackson Road, Ann Arbor, Ml 
48103,313-426-5086. 

Reader Service ^ 344 



Color Computer Programs 

Two new editing programs for the Color 
Computer are written in M6809 machine 
code, available on compatible TRS-80C 
machine code cassette tape. 

The Text Editor features screen editing 
commands to allow insertion, deletion, 
changing or adding to text lines. 

The second program is a co-resident 
editor/assembler that allows the user to 
create, edit, and assemble machine code 
programs. 

Their prices: the Text Editor, $19.95; the 
co-resident Editor/Assembler, $39.95. 
Both programs as a package cost $49.95 
from Cer-Comp, 5566 Ricochet Ave., Las 
Vegas, NV89110. 

Reader Service ^ 333 



Sketch Complex Graphics 

Graphic Writing Machine enables users 
to easily sketch complex graphics dis- 
plays using simple keyboard commands. 

The program features two internal 
memories which provide temporary stor- 
age for the screen contents. The sketch 
can be saved to tape or disk. GWM will 
also generate Basic statements so that 
the image may be included in a Basic pro- 
gram. 

Versions are available for 16K and up, 
Model I or III, on tape or disk, from Micro 
Pro Systems, Rte. 2 Box 533, Cummings, 
GA 30130, 404-887-6814. 

Reader Service ^ 164 
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ATARI 400 " 
COMPUTER 
TO BE AWARDED 
TO ESCAPEE! 



.*».": ••■ 



Asylum is the most sophisticated, sinister, challenging 3-D 
graphics adventure ever written! You are placed in an asylum 
for DEATHMAZE survivors. Your only goal: ESCAPE! 

Asylum has over 1 200 locations! Hallways recede into the 
screen, as though you are actually there! Doors open and 
close! Beds, desks, and even guards and other inmates are 
drawn on the screen! And graphics are generated instan- 
taneously! Simply press an arrow key to move or turn, and 
you are moved. Absolutely no waiting! 

English language commands may be issued at any time from 
a vocabulary of almost 300 words. Commands may include 

complete statements. "Get ei>erything on the desk 

except the matches" is perfectly legal! 

Will anyone escape? Who knows? Intelligence, 
cunning and patience will be necessary. Send us 
your correct solution, postmarked no later than 
November 15th. On November 30th we will draw 
from the entrants for an ATARI 400 1 6K color computer! 

NO HINTS WILL BE GIVEN OVER THE PHONE! 

ASYLUM J6K cassette $ 14.95 

ASYLUM 32K disk $ 19.95 

ASYLUM Hint Sheet $ 1.00 

TRS-80 Level II, 
Model I and Model III only 

Med Systems Software 

P.O. Box 2674-A *m 
piapel Hill, NC 27514 
(919)933-1990 




Features of Qwerty 3. 



Automatically prints in proportional print, with a suitable 
format Transitions between the three print styles are easy, 
including all expanded print modes. 

Qwerty 3.0 adds -> new symbols, including upper and 
lower case Greek letters, mathematical symbols such as 
integrals and summations, arrows, brackets, and probability 
symbols. 

Any character can be used as a subscript or superscript 
even simultaneously Carats, bars, and tildes can be placed 
over any character, with precise position control 

». Underlining, with or without underlining of spaces 
including long ratios and mathematical expressions. 

*. Footnotes can be placed on any page so that they remain 
on the desired page, even if text is inserted later. 

6. Table commands enable positioning of the print head 
anywhere on a line Invaluable in printing neat mathematical 
layouts, tables, columnar material, etc.. in proportional print. 

Pretty commands allow printing of repetitions of a 
chosen character When combined with Table, decorative 
borders can be produced with ease. 

8. FolioformatpnxJucesoutputinrwoorthreccolumnspcr 
page, in either proportional or 16.7 cpi mode. Ideal for 
newsletters. 

9. Supplies a third output mode, in which only Scrip, it 
commands are obeyed. Allows printing of special Qwerty 
commands for future reference. 

10. Page End indicates where pages will end, and the pact 
number, without printing the text. One can prepare an 
almost error-free document without ever using paper 

Correction of Scripdfs errors and inconveniences, exten- 
sive documentation, and much more! 



Do you own a Centronics 737? 739? Uneprinter IV? 
Tired of the limitations of SCRIPSIT? Qwerty 3.0 will let 
you accomplish word-processing feats you never dreamed 
possible. Like Greek letters. Simultaneous subscripts and 
superscripts. Even footnotes and two or three column 
folio formats. See the list of features in the box. No other 
piece of software of this type can match Qwerty 3.0 We 
know, because we bought the others, and were dis- 
appointed. 

Qwerty 3";0 is more than "fully tested." It has seen 
thousands of hours of use in a university environment A 
masters thesis and a statistical doctoral dissertation were 
produced and accepted right off a Centronics 737 using 
this package. 

Qwerty 3.0 is the finest SCRIPSIT addition available for 
the Centronics 737, 739, and Lineprinter IV. You must 
own one of these printers, a copy of SCRIPSIT, and a disk 
drive to use it. It is the best. Period. WE GUARANTEE 
YOU WILL AGREE! If for some reason, you find that this 
program doesn't meet your needs, return the entire 
package within 1 4 days for a prompt and cheerful refund. 
For cautious buyers, we offer the manual (about 50 
pages ) for $ 1 0.00. When you decide to buy Qwerty 3 
we will credit the full manual price. 

Qwerty 3.0 Disk, Manual, Reference 

Card, and Printer Table Rule $49.95 

Qwerty 3.0 M anual A lone $ 10.00 



Med Systems 

(919)933-1990 
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More from 



Med Systems 

To Order Call (919) 933-1990 




Microworld 

by Arti Haroutunian 



Microworld is an adventure like no other. 
You are transformed into an elect roid, and 
must travel through the circuits of your 
TRS-80! You will be required to solve 
many incredible problems, and in the 
process, you will gain a knowledge of how 
a TRS-80 operates. 

Microworld is one of the most advanced 
pieces of machine language programming 
Med Systems has published. A special 
encoding scheme has allowed a 2 1 K adven- 
ture to fit in 16K. Microworld is verbose. 
Messages are frequent and fact -filled. 

Microworld is an excellent educational 
simulation. It is supplied with a 1 2 page 
booklet containing a glossary and expla- 
nations of the electronics inside the TRS-80. 

Microworld is immense! It is twice as large 
as most adventures, and at least twice as 
challenging! 

Tape $19.95 Disk $24.95 



Educational Software 

The Playful Professor 

A mathematics tutoring program that 
combines graphic step-by-step tutorials 
with an interesting graphics game. Tutors 
all operations, with integers or fractions. 
One or two players, three difficulty levels. 

The Human Adventure 

A biological adventure in the human 
body. The player travels through the car- 
diovascular system, learning locations and 
functions of bodily organs while pursuing 
cancer cells. Grades 4 and up. 

Money Master 

A graphics game which sharpens skills 
in counting money and making change. 
The correct amount, in a reasonable 
number of coins, buys objects and pays 
tolls. Some reading required. 

Educational Software 

Tapes $14.95 ea. Disks $19.95 ea. 

Educational Package Disk 

All three Med Systems educational 

programs on one disk $34.95 



Med Systems 

P.O. Box 2674-A 
Chapel Hill, N.C. 27514 
(919)933-1990 




Deathmaze 

5000 
Labyrinth 



Deathmaze 5000 and Labyrinth are 3-D 
adventures from the authors who pro- 
duced Asylum. One and two word com- 
mands are combined with incredible 3-D 
graphics to provide adventures beyond 
anything you've ever seen. 

The goal in Deathmaze is simple. Escape 
from the most maniacal, devilish, dangerous 
building ever constructed. Alive. 

And Labyrinth? Kill the minotaur. However, 
you must find weapons, treasures, and 
knowlege to do so. There's even a graphic 
vending machine! 

The question isn't "Will I survive?". The 
question is "Will I be satisfied with non- 
graphics adventures again?". 

Tapes $14.95 ea. Disks $19.95 ea. 



'M 



GRBASIC 

by Simon Smith 



GRABASIC extends Level II or DISK 
BASIC to include an easy to use graphics 
command set. A single BASIC command 
allows the user to draw a line between any 
two pixels on the screen in hundredths of 
a second! Coordinates can be chained to 
allow complex figures to be drawn by a 
single BASIC program line in less than a 
second! 

GRBASIC allows the definition of shapes. 
Once defined, a shape can be rotated, 
scaled up or down in size, drawn anywhere 
on the screen in less than a second, and 
can even be drawn totally or partially ' off' 
the screen in extended space! And all with 
short, simple BASIC commands! Even mul- 
tiple shapes are no problem! 

A new program, GRBASIC FUNCTION 
PLOTTER, allows the plotting of almost 
any function, including polar coordinate 
based figures, parametic equations, and 
almost any wave form. Features include 
function definition and automatic screen 
scaling, and printing capacity on Line 
Printer IV. REQUIRES GRBASIC! 

GRBASIC Tape $19.95 

GRBASIC NEWDOS Disk $24.95 

GRBASIC TRS-DOS Disk $24.95 

GRBASIC Function Plotter Tape $14.95 
GRBASIC Function Plotter Disk$19-95 




Knossos 

by Simon Smith 

"You have just been 
thrown into a dark, 
stinking pit . . ." 



You are isolated and alone in the maze at 
Knossos, Crete. Somewhere, a minotaur is 
tracking your scent. Can you find the only 
door without becoming a minotaur's meal? 

Knossos is a 3-D graphic simulation. Mazes 
are represented by a perspective view , as 
though you are actually there. These 
graphics are not the simple, square graphics 
you have seen before. An entirely new 
representation has been implemented 
giving a true cave-like quality. And like all 
Med Systems 3-D graphics, lightening fast 
screen generation is standard. 

Other features include chalk with which 
to mark the floor for reference points, 
randomly generated mazes, distance" 
counters for exit, and monster graphics. A 
typical game might last 15-20 minutes. 
This is the first truly 3-D arcade game ever 
offered. 



Tape $19.95 



Disk $24.95 



Satisfaction Guaranteed 

If for any reason you are not satisfied with 
our products, return your order within 14 
days for a prompt and cheerful refund. 

Ordering Information 

Orders are processed within five working 
day's. Orders are sent first class within the 
U.S., Canada, and U.S. territories. Overseas 
orders please include $3.00 for air post. 
Order using coupon below. Please specify 
tape or disk versions, and Model' I or 
Model III computer. 

Model I or Model III 

TRS80 Level II 16K 

unless 

otherwise noted 




Item (specify tape or disk) 



Price 



Shipping and Handling 



$1.00 



TOTAL 



Name 

Street. 

City. 



.State 



.Zip. 



Computer. 
TRSS0 Model I □ 
Mastercard Q 

MC or VISA* 

Expiration Date _ 



Model III D 
MSaD Check G 



^See List of Advertisers on pig* 354 
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It' s All Robotese to Me 



by Calvos Gisamte 




Stones about robots and mechanical persons are nearly lim- 
itless, which is great if you're being paid by the word How- 
ever, discretion — while not my middle name— is something I'm 
not ignoring nearly as much as I used to So I decided to give 
this article some direction. But. which way'' Suggested topics I 
mulled over and subsequently discarded (tentatively) are 1 

A Robot Glossary 

Acrobots. somersaulting mechanical bipeds which do that 
flying-trapeze bit as effortlessly as you or I might tumble into an 
open sewer. Also known as Robocrobats 

Automaton and Automaton, robotic states of conscious- 
ness and unconsciousness. Sometimes called Automatron and 
Automatroff. 

Automatonomat: coin-operated robot diner with terrible pies. 

Automatonous Rule preferred government of sentient 
microchips 

Bot. a robot hallucinogen, macrobotswana (capekis sativa) 
Users are called Bottops 

Bureaubots: officials of the sentient microchip government, 
prone to stamping UNUSUAL" on all documents. Bureaubots 
are managers of Roblivion (viz.). 

Crockbots: part of the French Maid Package; stew cooks all 
day in its belly while the Crockbot dusts the china and straight- 
ens beanbag chairs 

Crowbots: birdlike amusements for the garden; volume can 
be adjusted for all environments. 

French Maid Package: luxury robot kit from RUR Industries 
that cooks, cleans, curtseys, and speaks in a foreign language. 
See details under Crockbots. Radlobots. and Robotissene. 
Prurient models are available on special request (to adult over 
18 only). 

Frobots: hair stylist robots designed by RUR industries. 

Frogbots: mechanical amphibians, whose nightly serenade 
goes, "robbott. robbott 

Great Robot Mystery whatever happened to Erector Sets? 

Harmless Robots, mythical characters (the Robbits) In the 
Lord of the Springs. 



Herobots: general term for highly esteemed robot leaders, 
also, a kind of layered food inside a long, flour-based crust. 

Introbot: sentient microchip dating service, part of RUR In- 
dustries. 

Karel Capek: affectionately referred to as "Daddy' by all 
robots; head of RUR Industries 

Microbots general-purpose miniaturized robots for human 
edification; microbots can be used for keeping teem and 
tongues clean, scratching insect bites, cleaning fingernails 
automatically, etc. 

Nerobots activated during fires, these robots provide 
soothing, randomly generated violin music. 

Radiobots: not to be confused with radio-controlled robou, 
these are an option in the French Maid Package May not be 
used simultaneously with Stereobots (viz.) due to competitive 
programming that results in ear-splitting easy listening. 

Roblivion. storage area for damaged or discontinued robots, 
maintained by a corps of Bureaubots. 

Poboat passive relaxation vehicle designed to carry robots 
across the River STX to Roblivion. 

Robo-Coupe: a twentieth-century food processor wnich has 
nothing to do with this glossary. 

Robo Robozo financier of RUR Industries 

Robosco: chocolate topping for milktabs. 

Robotcrobat see Acrobots. 

Robotcrats. see Bureaubots. 

Roboticelii: famous robot artist who painted "Venus on the 
Half Chip.' 

Robotisserie. part of the French Maid Package from RUR In 
dustries; roasts chickenclones for the automatonomat. 

Robotdes: glass containers tor Robosco. Also, a femiclone 
nickname. 

RUR Industries: theological mainstay of robots, headed by 
Karel Capek. 
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PoughMlp (do'fl8) n. [Colloq] a highly inter- 
active' Easiness or home finance program, 
designed *o instantly analyze where the hell 
^that money went. 

&ffo. It's a business program Mi a home (Inane* program Doughflo Is |row no»d 
i»r ifeeth): an expenditure oriented data baa* management system " (Whew.) Bol 
jtfolaiUt's any louse. 
• (the heck does Ooughtlo do? Lola 

I "lstant analysis of business or home cash flow (f lo?) 
tabs'ot expenses with up to 26 uMt defined cattoor.es 



\ Becunty. deductions, etc 

ti' ,' 'V '^fleeJ-lof preparing income and state taxes. 
."'*, j>'»'alj*« n> searet. soft, and produce hard copy ol any number ot items and 
. £«^$'chack*. o«w any rang* ot date*, categories. a.-nounis vendors, or 

■" SOrnptrOdS. 

m business analyst! Virtually obsoletes a bookkeeper because your corn- 
trie work for yog. Use Doughllo to 

t— Tilly retrieve, op to 4 SO records at a time without pme consuming disk 

l«fie>»te detailed -apofts ot ail expenditures 

four* boss, wife (husband 1 ), or yourself that you know bow wisely 

»hly) money is being spent 

Imple to use (we tested 11 on simple people!), now Ihora is no excuse 
re *aow*vrtx»re the hell you lost all that money, whether It was last year or last 
rnohtjV. 0b si of all. maybe now you'll be ab4e to save some ol that dough lor the 
■•future* ROsjuirVs aSk and one or more disk drives Specify Model I or III At only 
$».« postpaid, j»4 a stMi sura to save you money' 

. *>*%■: 

-•; , - . 



P.O. BOX 597 F0RESTV1LLE, CA 95436 
24 hr. phone (707) 887 7237 P3 * caB 



PERFECT 

C&OAD 

EVERY -^4H-^- 

TIME"* I 

■.•*■ ■ k- 

ALIftfAfJETICS TRS-80 TAPE DIGITIZER 

♦V!e«»-» ,,„•» in m* sSjessajaal Octobw itao ^sasswlan; ttecMnc* n»p«n«» mmoit upon m 



, At last there I* a cure lor TRS-80 tape cloading blues. For over triree years. Alphenetics 
has been selling the 7P.S-00 Tapa Digitizer, a proven hardware solution lor your soltwara 
problems. No longer need you Juggle the recorders »olume control endlessly, trying lor 
a perWet doad ol a pre recorded program Just pop the lape Into Ihn cassette recorder, 



•' 
kCs lap* program tpaejeng 



virtually independent ol volume control 



KA^ copying tystfm and normal rapes wthoul using cumputat 
■eV a per.lKl digital copy or any i»r«. without using computer, 
(pvmg huoi, noiarf. and cures minor dropouts 

bfc'lf J**\ch allows manual control ol ( asselte recorder, mdependenl 
far control 

.it or 'entry enables setting prnpe' volume, doubles as 
■Hor ■'?<• 

I — no battaf|a)|M replace 
. rturcfy altracWvejifcetai case 
,._„■ comp'a'tjb'a wmi te.ei I A II, also LOW speed Mode : ill 

' " '"* 

cessetle lo the Alphaneiics Tape Digitizer and tsed your computer the enact 
"lorm the TSrMOgave your Upe. Get rid ot your lape buqs today - SM 95 
■elurn rvilhtn ft/days lor a lull refund' 




Stereobots: robot soundclones provided in contemporary 
housing; programmed with mood sensitivity, Stereobots are 
capable of responding musically to any mood. Stereobots must 
be disabled during therapy sessions. 

Thoreaubot, Henry David, famous author of "Walden Version 

3.2." 

Throwbots: personal frustration toy, similar to the pet rocks 
of the 1960's. 

Zerobots: perenially depressed robots; leased to humans 
who are in need of therapy. Zerobots are capable of countering 
any depressing human story with an even more depressing one. 

Zorrobot: swashbuckling star of holof ilms, known only to his 
confidants as Don Data. 

The Robot/Vegetable Connection 

Did certain gardens in Mexico cultivated by the Mayans real- 
ly influence the development of the Univac? 

What exactly is the effect of disk drives on hothouse 
radishes? 

Can organic humus turn the tide in computerized robot ten- 
nis? 

Is Wayne Green truly a prophet of cybernetic doom or merely 
a cog in a computerized cantalope wrestling scheme? 

Robot Jokes 

A robot goes into a bar and orders a martini. The bartender 
serves it and says, "There y'are; that'll be six bucks. Y'know, we 
don't get many automatons in here." The robot fishes some 
currency from his utility pouch and responds, "And at these 
prices, it's no wonder!" 

Robots Are Your Friends 

Actually, that's not necessarily so. Take aberrant behavior, 
for example. A human suffering from an attack of schizophrenia 
can compensate by snorting a couple of Sominex, taking a 
week off from gainful employ, or by a quick trip to Dr. Loon's 
black couch. But when a robot goes off on a mechanical snit, 
watch out! Those laser eyes aren't exactly twinkling when a 
titanium arc is extended to squash your shoulder socket as 
easily as it might hiccough! 

Other Possibilities 

Robot cosmetics; robot ballroom dancing; or robot music 
(editorially speaking, we already have some of that being 
ballyhooed over certain "progressive" airwaves). Alas, these 
topics are of but marginal interest. ■ 

In the interest ot those readers who are not marginal (and at 
the request ot the editors), the author ended his robotisizing 
here, saving the fully sentient world from yet another robot 
story. 
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*** SUPERMETER *•* 



DISKS 



DC 
MICROAMPERES 



Buy the very best diskettes. Percom ran. ~ 
tests during their research, and desile 
doubler and reached the conclusion thqt ' 
made the best 5 Vt inch double density 3 

Why buy a diskette that just barely parses; rtfte 
ANSI certification tests when yo_u cah buy.^h-B 
best diskette on the market at these (vMfppI 



Finally, a device to let you set correct volume levels for loading 
any tape. The biggest problem in loading tapes has been the 
volume control. Prerecorded tapes are produced at differing 
volume levels. You will now load any tape the FIRST time. 
SUPERMETER plugs in (no cutting or soldering) between your 
tape recorder and the computer, and lets you set the volume to 
the level that your computer wants. 



SUPERMETER 



$29.00 



These disks EXCEED all ANSI standards The.sfe 
are the newest, most improved disketttes (rom 
WABASH (including an extra smooth polished 
surface tor greater head life) Wabash Quality is 
UNSURPASSFD in the industry These diskette - ^ 
are so good they are guaranteed for 2 years Kto* 
«iny reason you are not happy with these 'super 
ior diskettes return them for a prompt refund 
(80 track diskette scan run in a 40 or ;jf> tnu k (1\ftt 
ilnv«" ) Price is per box of 10 disks 
Single density, one side $?5 95 

Two or more 24 95 

Double Density 80 track, one side . " 32 9a 

Two or more 31 W ', 

Double density 80 track, two sided 3S.9fT 

H Ini h I Irippi.", Double Density 39.00 



PERCOM S DOUBLER II 



it you haven't got a doubler for your Model I. order one now this is the 
greatest Ihmg to come along for the Model I. Since it actually reduces 
disk read/write errors, your system will run better with a PERCOM 
douoier And you will also save both time and money by having more 
programs per diskette 

PERCOM 'S DOUBLER II $150.00 



NEW MODEM GAMES 



Play Checkers. Chess, orOtheilo over , i wtthyourff lends' Each 

game features full graphics, soc 

send messages and sounds (to g< n) (%a-nf- 

are for two players, either one o r two computers. Complete 'ocumen 
tation. All three 



Tap* 814.95 



Disk 



li-.il 



Super Soft 

1691 Eason 

Pontiac, Michigan 48054 


Feel Free to Call to Request 

more information on any 

product 

(313)673-2224 

or 
(313)673-8700 

(Dealer Inquires Invited) 


Add $ 1.50 per order tcr Shipping 6 handling 

Phone Orders Wr.N.ome 
Please calf between I !MLT 

Same day Ship',; r,i! 

s m 



Robotics— 

The Microcomputing 

Connection 




by Chris Brown 

80 Microcomputing Technical Editor 

For most of us, the word "robot" conjures up the image of a 
cute wheeled being jabbering away in a flurry of synthesized 
speech, while rolling obediently along behind a handsome star- 
ship captain. Though the precocious activities of R2D2 and 
C3PO may have endeared them to the popcorn set, the stereo- 
type they represent is far from the reality of present-day ro- 
botics. Currently, the level of intelligence these fantasy 
figures exhibit can only be created in one way— by 
stuffing a human midget (preferably British) into a ro- 
bot suit. It is only after seeing an intelligent robot, its 
wheels spinning, jammed hopelessly into a corner or 
catapulting headlong down a flight of stairs, that one 
realizes that intelligence, as it applies to robots, is a rel- 
ative term. 

Implicit in any concept of robotics is the 
notion of performance. Except when em- 
ployed as a test bed for artificial intelligence 
research, robotics should have as its end 
goal the accomplishment of some useful 
activity. When a robot is combined with a 
microcomputer, a primitive synthesis of 
mind and body occurs that results in a ro- 
bot's ability to replicate simple human activities. In 
our industrial society, the ability to duplicate opera- 
tions ad nauseum is of great value. Thus, the employ- 
ment of robotics gains new and increased impor- 
tance in human terms. 

Though the field of robotics has a long history, 
it is only recently that the microcomputer has 
made inroads. And today's use of microcomput- 
ers only scratches the surface of the possible. 
As computing power and memory storage con- 
tinue to decrease in cost and increase in ca- 
pacity, their use in robotics will become wide- 
spread. 

Industrial Promotional and Educational 

Robots fall into three general categories 
based on their function; industrial, promo- 
tional and educational. Industrial robots 
are highly specialized devices, usually tak- 
ing the form of arms, that are capable of per- • 

Photo 1. Android Amusement's DC-2 show robot is advertised 
as a "crowd builder." It uses an on-board Atari 400 microcomputer to generate graphics and play games. 
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forming tasks akin to those of their human 
counterparts. They are used in applications 
like paint spraying, spot welding, picking 
and placing tasks. Operating under comput- 
er control, industrial robots can move accu- 
rately along six axes and, when combined 
with tv cameras, enjoy a primitive equivalent 
of vision. 

Promotional robots (or show robots as 
they are known in the trade) are the ma- 
chines we cautiously accept literature from 
at computer shows, see at the opening of 
shopping malls and watch with fascination 
on tv talk shows. (In the latter case, the 
robots have often displayed more intelli- 
gence than the host.) 

Show robots do not, as a rule, have the in- 
telligence of industrial or educational ro- 
bots. Often they are nothing more than 
large radio controlled models with micro- 
computers in their chests. They have had an 
impact on the robotics industry, however. 

Educational robots are used in class- 
rooms to illustrate basic mathematical or 
abstract geometric concepts. 

All three types of robots are on the verge 
of impressive advances because of the now 
popular microcomputer and the cheap com- 
puting power it represents. Cost reductions 
in both memory and microprocessing have 
made it possible for robot manufacturers to 
offer very reasonable prices for on-board in- 
telligence. 

In addition, the proliferation of micro- 
computers has stimulated new interest in 
the field of robotics as many users endeav- 
or to justify the existence of their machines. 
When a microcomputer, in union with a 
robot, can instruct a machine to water the 
lawn, mix a drink or oversee a manufactur- 
ing process, the microcomputer achieves 



Industrial Robots 



Industrial robotics, a common occur- 
rence in many countries, remains an un- 
usual application in the United States. 
U.S. labs are developing robots as com- 
plex and well-built as those in any country, 
but those machines so far have not 
wormed their way into the hearts of poten- 
tial owners. 

Jack Shimek of New Developments Co., 
Nashua, NH, is, therefore, a pioneer. He is 
attempting to sell New England factory 
owners on a simple industrial robot made 
by Applied Robotics Co. of nearby Hud- 
son, NH. 

The product he is selling has little in 
common with the popular idea of a robot 
which walks, may talk, and is self-con- 
trolled. The 95-pound Series 100 Industrial 
Robot is a simple machine by lab stan- 
dards. It has one arm with a choice of grip- 
pers. The arm has two vertical positions, a 
two-position horizontal stroke or in and 
out movement, and a four-step swing that 
can move up to 270 degrees. 

The machine is air powered, normally 
working under 60 pounds per square inch 
pressure. It cannot move and does not 
even include a built-in microprocessor 
controller. 

Although there is only one working 
model of the little air-powered machine in 
existence, Shimek is optimistic about its 
future. He sees its very simplicity as a big 
asset. 

"Everybody in manufacturing is getting 
into robots, but they are all afraid of put- 




ting a lot of money into a machine that will 
break down," Shimek said. 

Tough Environment 

The problem is that a manufacturing 
plant is an extremely rigorous environ- 
ment for a robot. In a lab an experimental 
machine can be delicate. It ?s essentially 
nothing more than a demonstration ma- 
chine. If it works at all and does what its 
designers want even for a short while they 
are happy. 

A manufacturer, however, wants de- 
pendability. He wants a robot that can 
load and unload a drill press 500,000 times 
a day, five days a week, 50 weeks a year 
with no trouble. A delicate machine, one 
which is difficult or expensive to repair, 
or which uses exotic, expensive and hard- 
to-get components, can spell trouble, 
Shimek argues. 

He points out that the Series 100 robot 
is built simply and ruggedly. It is air pow- 
ered from an external compressor which, 
among other things, means that if some- 
one or something gets in the arm's way, 
the machine will neither break the object 
nor do large amounts of damage to itself 
when its arm jams. 

It is built out of commonly available 
components, Shimek said. The only parts 
that are special are those like the frame 
and collars which are not likely to wear 
out. 

"All this is is a bunch of air cylinders put 
together in a usable configuration," he 
said. "It really demonstrates the point 
that the technology for a robot exists and 
has existed for some time." 

According to Shimek, the robot is ideal 
for loading and unloading machines and 
doing other operations which involve pick- 
ing up items one at a time from a set place 
and putting them down in another set 
place. If the expected item is not where it 
is supposed to be, however, the machine 
has no way of finding it. Its only sensor is 
a short-range affair that tells the machine 
whether it has something it its "hand." 

Shimek said the designer, Arthur 
Haines, purposely did not build a con- 
troller into the robot because customers 
would want to use the microprocessor 
they already own, in many cases. 

Shimek is using a 5-TI industrial con- 
troller from Texas Instruments to run his 
demonstration robot, and this machine 
can run several Series 100 robots at once. 
However, any industrial controller or com- 
puter, including a TRS-80, could be used 
to do the same job. 

Shimek said the potential market for in- 
dustrial robots in the U.S. is huge. "Many 
pfants are making high technology prod- 
ucts like computers using methods from 
the turn of the century."B 
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THELEAST 



YOU CM BUY. 



I'p (o 77 high-quality programs 
for TRS-80, only $10.95 



NewBasic— expands disk basic 
Now configure your Basic to do any or 
all of the following: 

• Convert decimal to hex, and vice versa, provide 
character representation for each, or the hex-dec 
number of any character • Blinking cursor 

• Repeat key* Audible key entry (each key makes 
a sound)* directory command from Basic • Disk 
load and disk run command file • Graphic 
functions, Including drawing blocks, lines, filling- 
in blocks • Lowercase driver • RS232 driver 
(LPRINT-LLIST) • Call function, hex-order 
number will execute subroutine • Spooler and 
despooler • Print toggle, LPRINTS your video 
display •Find (locate a Basic command or string) 
Modular Software Assoc; tape $19.95, disk $29.95 

Level II Tapes 

'Tiny' Pascal runs on any 16K Level II system, in- 
cludes the programming structuring capabilities 
of full Pascal, but not data structuring 

Able to compile Z-80 machine code, programs run 
about 5X faster than Level II Basic— graphics run 
ei "hi times faster! Requires use of T-Bug (or Tape 
7 , and ETASM 
Tape 3, People's Pascal $19.95 

Tape 1, 34 buis.. edu.. game progs. $10.95 
Tape 2, 77 programs from Osborne book Some 

Common Basic Programs $10.95 

Tape 5, 24 buis., edu., game progs $10.95 

T?pe 7, 31 buls., edu., game progs. $10.95 

Tape 8, 40, inc. 4X tape speedup $10.95 

Tape 9, 25 buis., edu., game progs. $10 95 

Tape 10, income tax, checkg act $10.95 

People's Taxman, fills-out all forms $39 95 

PASPATCH 

PasPatch, Tape 6P, makes Tandy tiny 
Pascal a powerful disk system! 

Modular Software Assoc. $19 95 

SuperPIMS— People's Database 

PIMS has been greatly speeded up and simplified, 
with machine-language sorts, key debounce, 
optional automatic lowercase (no keying, no 
hardware mod) on labels or reports Up to 20 
fields, limited by 240-character maximum per 
record Easy to revise, add records, split or 
merge files, sum or average any fields. 
Customized fortape, tape & disk, Zoom, TC8 Poor 
Man's Floppy, B17, Stringy Floppy— all on one 
tape! As mailing labels program, easily manages 
20,000 list. CIE does! Advanced labels module to 
come, $24.95, making system most powerful 
mailer available! $25.90 on disk 

program (CIE) $19.95 ($21.15 CA) 

book, details uses (CIE) $11195 ($12.67 CA) 

NtiW: Send for free monthly catalog 

10% DISCOUNT 
when ordering 3 items 
totaling $50 or more 

Add $1 shipping per order 

Games for color TRS-80 

Modular Software Assoc, tape contains: 

• PONG-80 • ENTRAP • DEMOLISH (like 
Breakout) • TRAFFIC (Grand Prix auto race) 

• BETA TREK space game • SHUTTLE (rocket 
ship game). $19 95 ($20 55 CA) 

Word Processing Newsletter 

Want to really USE your computer 9 Then word 
processing Is for you. Let your computer show you 
how much easier writing can be. 

Learn about the new 510 cps 'non-daisy' that at 
10X daisy speed gives correspondence quality, at 
less than twice the cost Too slow? The really fast 
guys are coming. How about 30 11x14 typeset- 
quality documents per minute 9 Maybe you could 
us* the same 'printer' as a copier 

How about an inexpensive ($169) magnetic card 
reader-writer that would let you input mail 
addresses, letter paragraphs, even small 
programs? 

Read about a] I this and more In Low Cost Word 

Processing, the only newsletter about word 

processing using you-' personal computer. Just 

$15. for 12 issues. .,, 

►"* ££ 

A|l orders charge card, check or mo. 

Calif, residents add 6 pet tax. Dealer inq. Invited 

Overseas, add $1.50 per tape postage 



COMPUTER INFORMATION EXCHANGE 
W Box 159 

San Luis Rey CA 92068 



11 After seeing an intelligent 

robot catapulting headlong down a flight of stairs, 

one realizes that intelligence is a relative term." 



new legitimacy. Its union with process-ori- 
ented robots in real world/real-time applica- 
tions is a step in the direction of practi- 
cality. Lately, interest and activity have 
been on the increase in the robotics in- 
dustry as entrepreneurs recognize the po- 
tential of the robotics market. 

A Mobile Minibar 

A leading company involved in the manu- 
facture of show robots is Android Amuse- 
ment Inc. of Monrovia, CA. Android Amuse- 
ment is one of the first manufacturers of 
show robots that incorporates microcom- 
puters in their creation. Its best known ef- 
fort thus far is the Drink Caddy. This alcohol 
dispensing android is designed to perform 
yeoman service at cocktail time. The Drink 
Caddy is advertised as a "mobile minibar 
and entertainment machine" and carries a 
price tag of $4,998. Original versions of this 
machine did not feature an onboard micro- 
computer and were marketed as technolog- 
ical curiosities. One eventually found a 
home in the Playboy mansion in Chicago 
with other marvels of technology like elec- 
tronic pinball machines and computerized 
beds. 

An expensive offspring of the Drink Cad- 
dy, the $10,000 Ralph Rodger Robot, incor- 
porates an Atari 400 microcomputer and 
monitor. The computer is placed in Ralph's 
chest and used for graphics generation and 
game playing. However, none of Ralph's 
vital functions are controlled by the com- 
puter. 

Gene Beley, the youthful president of An- 
droid Amusement who once sawed a 
TRS-80 in half in a futile effort to fit it into a 
robot, feels that show robots represent a 
new art form in America that incorporates 
the wonders of technology with the gaudi- 
ness of the carney world. Beley told 80 
Microcomputing that his robots are "sexy" 
marketing tools that are finding increasing 
application in public relations and promo- 
tion. He also indicated that, for the moment, 
demand is outpacing supply at Android 
Amusement. With frank insight he charac- 
terizes his company's function as follows: 
"Basically, we are building expensive 
status symbols for people who want to at- 
tract attention to themselves." 

Beley admits he was surprised by the ini- 
tial success of his venture but feels confi- 
dent that show robots are going to be 
money makers for their manufacturers in 
this era of high technology snobbery. For 
Beley, a major milestone in the robotics in- 
dustry was reached when his company was 



able to employ mass production techniques 
using standardized parts in the making of 
robots. As yet, no robots are used to assem- 
ble robots at Android Amusement but Beley 
says the possibility exists. 

A Bit of Overkill 

Another successful manufacturer of 
show robots is The Robot Factory of Cas- 
cade, Co. The Robot Factory produces 
several anthropomorphic entertainers, 
some of which incorporate microcomputers 
for added pizzaz. 

Mary Bolner, Robot Factory vice presi- 
dent, candidly states that the current use of 
microcomputers in show robots is overkill. 
While her company does offer an Apple II 
microcomputer in one of its robots, the 
computer is there for entertainment pur- 
poses only. The Robot Factory intends to 
have a robot which responds to voice com- 
mands available soon. To this end, they 
have been negotiating with Tandy Corp. in 
hopes of coming to some agreement on 
hardware procurement. Bolner said "We 
already use many Radio Shack parts in our 
robots. We find them to be high quality, 
reasonably priced and readily available. I 
hope we can come to some working agree- 
ment with them soon." The Robot Factory's 
microcomputer controlled speech recogni- 
tion robot may be the first real microcom- 
puter/robot marriage in the show robot in- 
dustry. 

More serious and potentially lucrative 
uses of robots lie in industrial and educa- 
tional applications. In both public and 
private sectors research is underway to find 
practical applications for robots in auto- 
mated assembly procedures and in the 
classroom. The role of the microcomputer 
has yet to be delineated in these infant in- 
dustries, but there are many who have 
gambled their faith and finances on the 
hope that microcomputers will play a major 
role in automating America. 

A Natural Marriage 

One such consortium is the robot 
Builders Group of the Boston Computer 
Society. Headed by Ted Blank, a columnist 
for Robotics Age Magazine and a 10-year 
veteran of robotics research, the Boston 
group is a loose partnership of six com- 
puter/robotics aficionados, each of whom 
brings a speciality to the project. The group 
is attempting to build a Z-80 based, micro- 
computer controlled robot arm with sub- 
stantial lifting capacity. The project is in the 
design stage now but once the objectives of 
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"This alcohol dispensing android 

is designed to perform yeoman 

service at cocktail time." 



the group are set they intend to incorporate, 
seek venture capital and go into the busi- 
ness of manufacturing industrial robots. 

In Ted Blank's opinion there is a natural 
marriage that must occur between micro- 
computers and robots. Blank told 80 Micro- 
computing that the robotics industry is just 
beginning to address the essential applica- 
tions that take place in real world/real-time 
settings. In many instances progress has 
been hampered by the reluctance of those 
in robotics research to share information. 
Says Blank. "A sense of secrecy pervades 
the entire industry because everyone is 
looking for the big payoff." 

Everyone' includes toy manufacturers, 
major universities like Stanford. MIT, 
Carnegie-Mellon, and large research institu- 
tions like The Stanford Research Institute. 
(SRI) International and the Hughs Research 
Laboratories, all of whom have substantial 
robotics projects in the works. Blank also 
feels that the development of practical 
robotics has been stifled by an over- 
emphasis on artificial intelligence within 
the robotics community. He described the 
situation as "playing God by duplicating 
human brain functions as closely as possi- 
ble." In Blank's view this preoccupation is 
taking attention away from the true prob 
lem area of robotics research, i.e., real- 
world/real-time applications. He provides 
as an example a West Coast university's ro- 
botics project that resulted in a highly in- 
telligent machine that incorporated sophis- 
ticated visual recognition with large 
amounts of onboard data processing. The 
robot could move through an obstructed 
field by avoiding obvious hazards. The prob- 
lem was that the data processing involved 
took so much time that the robot could only 
manage three feet of travel every 15 min- 
utes. While certainly on the forefront of 
technological innovation, such a sluggish 
machine is, at best, impractical in most in- 
dustrial settings. 

For Ted Blank and the others involved in 
his fledgling robotics company, the future 
of the industry lies with the microprocessor. 
He concedes that new. high-level 
languages must be written to provide the 
control that complex networks of 
microprocessors, running in multi- 
tasking/multi-processing environments, 
will require. The result, the attainment of ex- 
tremely high levels of intelligence and con- 
trol in tomorrow's robots, will be worth the 
effort in Blank's view. 

Presently, however. Blank and his group 
meet several nights a week to hash out the 




Photo 2. The Mini Mover V robot from Microbot Inc. The arm has an eight-ounce lifting ca- 
pacity and connects directly to a TRS-80 microcomputer. 



more mundane aspects of their project, 
such as who will deal with the servo- 
mechanical and hydraulic problems of the 
beast. 

A TRS-80 Meets a Robot 

The Boston group's project has been an- 
ticipated to some degree by a West Coast 
company called Microbot, Inc. Microbot, of 
Menlo Park. CA, is one of the only com- 
panies currently manufacturing a robot arm 
that can be connected directly to a micro- 
computer and easily programmed to per- 
form pick and place tasks. The Mini Mover V 
Arm will plug directly into a Level II TRS-80 
and respond to programs written in a 
language called Armbasic. 

In an article that appeared in the summer. 
1980 issue of Robotics Age Magazine, John 
Hill, chief design engineer and president of 
Microbot, described his robot arm as a low- 
cost ($1,700) manipulating system. He envi- 
sioned its use by light manufacturing in- 
dustries and by those who are involved in 
robotics and artificial intelligence research. 
Hill's design objective was to provide a 
complete robotics package including arm, 
computer interface, software for coordinate 
conversion and control, and a high-level 
programming language. His intent was that 
the user's needs not undertake a full-blown 
development effort to put a robot into 



operation. 

The Mini Mover V is a segmented arm 
mounted on a stationary base with a lifting 
capacity of eight ounces. A system of dif- 
ferential gears, pulleys and cables allow the 
arm five degrees of freedom within a radius 
of 17.5 inches. The drive unit for each joint 
(base, shoulder, elbow and wrist) consists 
of a stepping motor, reduction gear and 
cable drum The robot arm is controlled by 
signals generated by a TRS-80. These 
signals pass through an interface where 
they are organized in seven four-bit parallel 
outputs and one four-bit input. The com- 
puter controls the four-bit phase patterns 
sent to the arm's stepping motors and thus, 
the arm's motion. 

Armbasic 

Armbasic. the machine's programming 
language, is an extension of Radio Shack's 
Level II Basic. It adds five commands to the 
Level II repertoire which enable the arm to 
move in various axes as well as open and 
close its grippers. These commands are 
Step, Close, Set, Reset and Read. When 
used in the context of a program, proper 
syntax requires that each be preceeded by 
the,(§ (at) character and succeeded by a 
delay expression and expression to in- 
dicate the number of steps each motors 
expected to move. A typical instruction tine 
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"Tfo youthful president. . . who once 
sawed a TRS-80 in half in a futile 
attempt to fit it into a robot. . . " 



would look as follows: 10 @STEP(D). (J1), 
(J2), . . . .(J6). D is a delay expression and J1 
through J6 are instructions tor the number 
of steps each stepping motor is to make. A 
program to perform a simple pick and place 
task appears in Fig. 1. 

All Arrnbasic commands are implement- 
ed in a Z-80 Assembly program to speed up 
execution. The extension command set oc- 
cupies about 1K of memory at the top of 
Level II Basic. 

Designer Hill feels that since industrial 
robots are largely computers in terms of 
cost, low-cost microcomputers will result in 
low-cost robots. He optimistically told 80 
Microcomputing that a huge market awaits 
the ; '>novative and that "drastic" price 
reductions are in the offing. 

Hi!' envisioned tomorrow's robots using 
individual microprocessors to control each 
joint. These ganged processors will make 
possible applications that are unheard of 
today. In addition. Hill foresees more peo- 
ple getting involved in robotics through mi- 
crocomputing. He is confident great strides 
will soon be made in the field simply due to 
the number of people becoming involved. 

Hill's young company has already felt the 
pressure of incipient success. A large mid- 
western manufacturing firm has been trying 
to acquire 51 percent of Microbot by dangl- 



5 REM PROGRAM FOR SIMPLE PICK AND PLACE TASK 


10 eSTEP S, -PI, -P2, -P3, -P4, 


-P5 


20 (JCLOSE 




30 eSTEP S, PI, P2, P3, P4, P5 




40 0STEP S, 01, 02, 03, 04, Q5 




50 §STEP S, Rl, R2, R3, R4, R5 




60 gSTEP S, 0, 0, 0, 0, 0, GR 




70 eSTEP S, -Rl, -R2, -R3, -R4, 


-R5 


80 PSTEP S, -Ql, -Q2, -Q3, -Q4, 


-05 


90 GOTO 10 




100 REM S SPECIFIES SPEED, GR = 


GRIPPER STEPS 


Fig. 1 





ing the venture capital carrot in front of Hill. 

Tom Clark, president of Michigan Rivit, 
the firm attempting the acquisition, makes 
no bones about his desire to get involved in 
the robotics business. He told 80 Microcom- 
puting, "Do you realize that most of the 
component parts of your car weigh less 
than a pound? And that virtually all of the 
welding and paint spraying on GM assem- 
bly lines is already done by robots? Hey, it's 
just a matter of time until a beefed-up unit 
similar to the Mini Mover V will be in every 
modern manufacturing plant in the 
country." 

Tom Clark is slightly baffled by Hill's and 




Pflpfo 3. The Terrapin Turtle has found a home in the classrooms of America where it is 
used to illustrate the concepts of mathematics and the social sciences. It has also been 
used in work with autistic children. 



Microbots' reluctance to sell out It is likely 
that John Hill has had the same vision as 
Tom Clark however, and he intends to hang 
tough through the lean times in hopes of 
the big payoff. 

Half a Grapefruit on Wheels 

One of the more unusual locales in which 
computerized robots have been found is the 
classroom. Here, a homely looking robot 
manufactured by a Boston-based firm call- 
ed Terrapin, Inc., has been gaining the at- 
tention and respect of educators in some of 
the nation's more progressive schools. 
Known as the Turtle, Terrapin's robot is an 
updated version of a machine created by 
English experimenter Grey Walter in 1940. 
Under the auspices of MIT's artificial in- 
telligence lab, researcher Dan Hillis 
developed the modern Terrapin Turtle in the 
early 1970s. He decided to market it in 1978. 

The Turtle, a small wheeled robot that 
connects to a microcomputer by a 12-con- 
ductor umbilical cord, resembles half a 
grapefruit on wheels. It has blinking eyes, 
an audio tone generator, touch sensors and 
a tracing pen that can be raised or lowered 
on command. The Turtle's drive wheels are 
independently controlled so that it may 
travel in either a straight line or curving tra- 
jectories, according to the commands it 
receives in Turtle Talk, its high-level pro- 
gramming language. Turtle Talk also pro- 
vides commands to raise and lower the trac- 
ing pen, activate the touch sensors and 
sound audio tones. 

Terrapin currently manufactures several 
versions of the Turtle for Apple, Atari and 
S-100 bus microcomputers. Prices vary 
from $400 for the kit to $600 for a fully 
assembled Turtle. Interface and software 
can add an additional $200 to the price tag. 
At present, Terrapin does not offer a specif- 
ic interface for the TRS-80. Turtles have 
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Select the write printer 

PRESTO! 
Overnight your 
computer becomes 
a word processing, 
data processing or 
graphic system. 

Under S5QO 




Okidata 

Microline 80 7x9 Head. 

80 Column. Low Price 



The NEW OKIDATA line of bidirectional 
dot matrix printers — high quality with 
continuous duty 200-million character 
printheads. The NEW printers have 
correspondence quality with their new 
9x9 dot matrix heads and have full forms 
control, serial and parallel interfaces, 
as well as many other features. The 
Microline 80 is a very reliable, low cost 
printer. All products are available from 
our stock at The Stocking Source along 
with the optional cables, 
interfaces and 
memory buffers. 



NEW 

Microline 82A - 9x9 
Head. 80 Column, 
120CPS 

NEW 

Microline 83A - 9x9 
Head. 136 Column. 
120 CPS 

NEW 

Microline 84 - 9x9 Head 
136 Column. 200 CPS 

NEW 

Model 2350 - 9x9 
Head. 136 Column, 
350 CPS 



ASK FOR OUR 

INSTANT DISCOUNT 

From Roy Hawthorne 

Talk To Bill Tokar On 

Applications 



CALL TOLL FREE 
U.S.A. 

1-800-521-2764 

MICHIGAN 

1-800-482-8393 



Remember: 
We are open 
8:30 AM to 
6:00 PM EST 
Monday - Friday 




No Credit 
Card Penalty 



"The Stocking Source" 
24069 Research Drive 
Farmington Hills, Ml 
48024 
313-474-6708 ^438 



STEREO AND PERCUSSION! 



J STEREO— Separation by instrument! 
For example, play trumpet and oboe 
through channel A. clarinet and organ 
through channel B. You can switch 
instruments from channel to channel 
at any time! 

PERCUSSION - Now you can add a 
wide range ot percussive sounds and 
special effects to your music 1 
Existing Orchestra -80 files load and play 
in stereo automatically! 

• Optional 5th Voice for use with 
speed-up mods! 



New editing features and commands 1 
Rugs into any 16k Model I keyboard or 
expansion interface without voiding 
warranty! 

Includes tape and disk versions on 
cassette. 4 sample music files, manual, 
and fully assembled and tested printed 
circuit board! 



Orchestra-85 
$129.95 

plus $2.00 postage and handling 

($5 for overseas airmail) 

CA residents add 6% sales tax 

MasterCard and Visa 

accepted 




^ 



rioaitiaaoi 



WRITE FOR INFORMATION ON: 

• Upgrading -Orchestra-80 to Orchestra-85. Switch to Stereo! 

• Greatest Hits— Volumes land U. All new music! Ready to load and play! 

• Orchestra-90' M — Model inversion of Orchestra-85. Available soon! 



Software Affffal 

_ ,« 858 Rubis Drive. Sunnyvale. CA 940§7. 
^ J56 (408) 295-9195 



.' Sm List ol Advertisers on page 354 
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"Robots represent a new art form 

that incorporates the wonders of technology 

with the gawdiness of the carney world." 



been adapted for use on '80s by enterpris- 
ing users, however. 

According to Terrapin's promotional liter- 
ature, the uses of the Turtle are limited only 
by the user's imagination. While Turtles 
have been used to teach the fundamentals 
of computer programming and robotics, 
their more interesting uses are in the fields 
of mathematics and the life sciences. By 
programming the Turtle to trace geometric 
figures on a sheet of paper, students active- 
ly participate in the creation of the con- 
cepts of geometry, gaining, for instance, 
the insight that a curve is made up of an infi- 
nite number of straight lines. (Ergo the dif- 
ferential !) 

Programming brings up mathematical 
issues and, as programming problems are 
solved, students engage in mathematics 
the way mathematicians do; on a concep- 
tual and intimate level. Where the life 
sciences are concerned, the Turtle can be 
made to simulate human behavior. By using 
directional feedback gleaned from its touch 
sensors, the robot is able to interact with its 
environment according to societal rules au- 
thored by its programmers. 

A particularly intriguing use of the robot 
has occurred with autistic children. Re- 
search indicates that these children relate 
better to the world of machines than to the 
world of men and the Turtle has served as a 
bridge between these worlds by encourag- 



ing autistic children to verbalize and com- 
municate. 

Terrapin president Sheridan McClees 
told 80 Microcomputing that his company 
sold approximately 100 Turtles last year. He 



"A sense of 
secrecy pervades 



the entire industry. 



>t 



also indicated that a wide cross-section of 
people have been using his robots in ele- 
mentary and secondary schools, as well as 
in the home. When queried about Terrapin's 
lack of hardware for the popular Radio 
Shack family of microcomputers, McClees 
indicated that there are two basic reasons 
why Terrapin has not pursued the '80 con- 
nection. He said, "The main reason is that 
our engineers feel that it is much easier to 
build interfaces for other computers due to 
the TRS-80's design idiosyncrasies. Sec- 
ondly, Radio Shack is not the easiest com- 
pany to work with in terms of technical co- 
operation." 

McClees did imply that Terrapin was re- 



thinking its TRS-80 interface policy and 
hinted that an announcement would be 
forthcoming in October. He also said that 
Terrapin plans to double the size of its staff, 
(currently three full-time employees) and 
make a more sophisticated version of Turtle 
Talk available this fall. 

The Malaise 

It is inevitable that the proliferation of the 
microcomputer will have a measurable ef- 
fect on Robotics. As increased processing 
and control becomes possible, the incor- 
poration of microcomputers into robots will 
be more commonplace. In addition, as com- 
mercial applications like the Mini Mover V, 
Terrapin Turtle and even the Drink Caddy 
achieve visible commercial success, entre- 
preneurs will be encouraged to take the 
financial plunge and get into the business 
of robots. 

The present malaise affecting American 
productivity will supply added impetus to 
robotics research. American plant opera- 
tors, many of whom now look over their 
shoulders toward the East for cues on man- 
agement, realize that Japan is the most au- 
tomated country in the world. Once the as- 
sumption that all of our industrialized soci- 
ety's ills can be cured by robots takes hold 
in the board rooms of America, the field of 
robotics may explode as the field of com- 
puters did 10 years ago.B 



5,000,000/10,000,000 BYTES FROM MICRO MAINFRAME 

10 MEGABYTE HARD DISK DRIVES, with REMOVABLE Cartridges, for Models I / II / III ($6,295). 

SERIES III H. Model III with hard disk drive(s) ($6,995/$9,095) or add to your Model l/lll ($3,795). 

SERIES III F. Model III with a controller board (available separately) and operating system which allows you to start 
with, or move up to, dual-headed or eight-inch floppys. 

GL80 — $150 — Radio Shack General Ledger 1.1 with over 30 added features; including a general ledger, classified bal- 
ance sheet, check register and options to use an "automatic" account number or re-do an entry or document. 

AR80 — $200 — Radio Shack Accounts Receivable 1.2 with automatic posting of standard monthly amounts. 

GL/M1 — $50 — Convert your General Ledger 1.1 to GL80. Typical user comment: "50% faster." 

AR/M1 - $50 — Accounts Receivable 1.2 to AR80. Typical user comment: "Saves hours." 

GL/MJ and AR/M1 require proof of purchase of the original programs, or, send a disk copy of the original programs for 
conversion at no additional charge. Documentation (apply to purchase) — $5.00 each. 

FTDEM080 — $12 — Displays and Executes the NEWDOS/80 Appendix A programs/ keyboard entries. Requires 32K. 
NEWD0S/80 - $135 LD0S - $135 EPSON MX-70/80/FT - $Call 

AT-80 



3827 Dismount Dallas, Texas 75211 (214) 339-0498 
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Pocket Computer $ 1 89 
P. C. Printer $130 



Color Computer 4K $310 

W/16K Ext. Basic $459 




32K Exp. Int. $334 




Model IIM6K 
2 DR + RS232C 



w 

$839 

$2100 



■ #%#%|f Here are just a few of our fine offers . . . 
LUvll call toll-free for full information. 



COMPUTERS 




PERIPHERALS 




Microline 82A 


549 


Model II 64K 


$3300 


Expansion Interface OK 


$249 


Microline 83A 


839 


Model III 4K LEV I 


599 


Expansion Interface 16K 


355.50 


Pocket Computer Printer 


130 


MODEL III 16K 


839 


•Expansion Interface 16K 


291.50 


DISK DRIVES 




MODEL III 32K 


945.50 


Expansion Interface 32K 


462 


R.S. Model III 1ST-Drive 


712 


•MODEL III 32K 


881.50 


•Expansion Interface 32K 


334 


TEAC40TrackMI 


329 


MODEL III 48K 


1052 


16K RAM N.E.C 200 N.S. chips 25 


R.S. 1 Drive Exp Mil 


999 


•MODEL III 48K 


924 


MODEMS 




R.S. 2 Drive Exp Mil 


1518 


Model III 48K 




Lynx Direct Connect Ml/Mill 


269 


R.S. 3 Drive Exp MM 


2040 


2 Disc & RS232 c 


2100 


Auto Ans. /Dial 




Seimans8" Mil 


799 


Color Computer 4K 


310 


Telephone Interface II 


169 


Atari 810 Disk 


499 


Color Computer 16K 


416.50 


R.S. Modem I D.C. 


130 


SOFTWARE 




'Color Computer 16K 


352.50 


Atari 830 Modem 


159 


R.S. Software 10% off list 




Color Computer 16K 




Atari 850 Interface 


183 


Atari Software 10% off list 




w. extended basic 


459 


PRINTERS 




Newdos + (40) track Ml 


88 


Pocket Computer 


189 


Daisy Wheel II 


1695 


Newdos 80 Mill 


149 


VIDEOTEX 


310 


Line Printer VI 


999 


ST80III 


149 


APPLE 48K only 


1279 


Epson MX80 


499 


ETC. 




ATARI 800 32K 


789 


Epson MX80 FT 


599 


Verbatum 5" Double Density 


32 






Epson MX1 00 


799 


Verbatum 8" Data Life 


49.95 






Line Printer VII 


315 


Ctr-80A recorder 


52 


•Computer Plus New Equipment. 
180 Day Extended Warranty 


Line Printer V 


1610 


C. C Joysticks 


22 






Microline 80 
twanfaae — — — 


365 







Factory warrantees on Apple and Atari equipment. Other 
equipment carries manufacturer's warranty or Computer 
Plus 180 day extended warranty. Combined warrantees 
carry Computer Plus 180 day warranty or original manu- 
facturer's warranty. 



call TOLL FREE 1-800-343-8124 




com 



DEALER INQUIRIES ARE INVITED 

Prices subject to change without notice. 
Not responsible for typographical errors. 
trs-80 is o registered trademark of Tandy Corp. 



Dept. D 

245A Great Road 

Littleton, MA 01460 

617486-3193 
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free catalog 
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TRS-80* Computer Owners... 

Great New Access 





HGN. 




, Fully Tested 
AFD Mini-Disk Drives 

from 

• Every Access Floppy Disk drive is electrically tested, mechan- 
ically tested and burned-in 48 hours under operating condi- 
tions. Look for the signed test list in the shipping carton. 

• AFD drives are capable of either single- or double-density op- 
eration. AFD-100 " drives store 102-Kbytes in single-density, 
180 Kbytes in double density. AFD-200 " drives store 205 
Kbytes in single-density, 364 Kbytes in double density. And 
these are formatted file storage capacities. Moreover, you can 
store twice these amounts on a single diskette using AFD 
"flippy" drives (AFD-100F 1 " or AFD-200F"" drives). 

• 15-day free trial offer . . . comprehensive 90-day limited war- 
ranty unbeatable prices . . . AFD-100 t<i $275.00, -100F 
(q $329.00, -200 (a $429.95, -200F (a $449.95 




Percom Drives for Your Model III ! 

Internally mounted drives that feature "flippy" capability, double- or single- 
density storage, comprehensive pre-delivery testing, 48-hour burn-in and. best 
of all, Percoms widely acclaimed disk controller. A First-Drive System includes 
the four-drive disk controller, one or two drives, cables and a fully illustrated 
owners manual. Use Model III TRSDOS*. Percom OS-80t and other Model III 
compatible DOSs. Prices: Complete First-Drive System w 1 drive (<> $560 00 
First Drive System w/2 drives (§ $860.00. 

Note: If you prefer not to make the First-Drive System installation, we will do it 
for only $29.95, plus shipping (if shipped). This includes a 48-hour operating 
burn-in of your Model III computer, installation of the drive system and final 
checkout of the expanded system. 



How to order — Order by calling Access Unlimited toll-free on 1-800- 
527-3475. Or order by mail. Orders may be charged to a VISA or Master 
Card account, or paid by cashiers check, certified check or money 
order COD orders require 25% deposit. Sorry, we cannot accept per- 
sonal checks. We pay shipping and insurance charges on orders over 
$1 .000 00 Add approximate insurance and shipping charges for orders 
under $1,000.00 If in doubt about these charges, ask when you call in 
your order Texas residents include 5% sales tax. Minimum mail order 
$20 00 Allow 2 to 4 weeks for delivery. 
O Technical & Texas: (214) 690-0206. 



Ask about quantity discounts for 
TRUGs! 



Use your credit card and save. VISA and 
Master Card charges are not deposited 
until the day your order is shipped. 







Same Old Savings Galor 



'e. 



Upgrade Your Model I to Double Density 

only $ 1 59 s - 5 

And not with some unproven hacker's kit, either. But with an assembled and fully 
tested Percom DOUBLER-lh. The DOUBLER-llt simply plugs into the disk drive 
controller socket of your Expansion Interface. Then it lets you store over four 
times more on one side of a diskette, depending on the drive, than you can store on 
standard Tandy Model I drives. Other features: • Reads, writes and formats either 
single- or double-density • Includes DBLDOS™, a TRSDOS* compatible disk- 
operating system • Runs TRSDOS*, NEWDOStt, Percom OS-80t and other 
single-density software immediately. Change to double-density operation when con- 
venient • Lets Model III software be read on your Model I • Includes on-card high- 
performance data separation and write precompensation circuitry. 




Microline-80 Printer 
Grand-Opening Special $399.95 (regular $446.oo> 

Compare the Microline-80 feature-for-feature with any other competi- 
tively priced printer. • Uses standard roll paper, fan-fold forms or 
individual sheets. • Prints expanded characters and graphics. • Prints 
96 ASCII characters (9x6 dot format), 64 graphic characters (12x6 dot 
format). •Throughput is 80-characters per second, standard-width 
characters. • Print head is rated at 200 million characters. • Compact, 
lightweight, quiet. 




ACCESS Goes Accessible! 

No longer a mail-order-only operation, we're 
in a new, walk-in retail mart on Central Ex- 
pressway in suburban Dallas. Now that 
makes us really ACCESSible! 

Come by. 

Get acquainted with Sam or Connie. 

Check out our computer servicing capabili- 



ty. We not only "service what we sell." we're 
also an authorized Percom Service Center. 

You'll notice, too. that besides our 
TRS-80* department, we've added a "Hobby- 
ist Corner " For rack-jobbing selected com- 
puter parts. Moreover, we're now carrying the 
full Percom System-50 (SS-50) product line. 
And selling books. And magazines. And . . . 
well, just come by and see for yourself. 




If you can't come by, at least call about our August GRAND OPENING SPECIALS. 



Make ACCESS your one-stop shopping center for TRS-80* computing. 
From game programs to sophisticated system software. From power line 
filters to double-density adapters. From Model I add-on drives to Model III 
First-Drive Systems. Shop ACCESS and save! 

Call our toll-free order number for free descriptive product literature and 
latest prices. 

PRICFS AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 



Toil-Free 
Order No. 



1-800-527-3475 



(orders & literature only) 



ACCESS UNLIMITED 



"Trade-nark o' Access Unlimited 

irk at Percom UaM Company, Inc. 



• 229 



401 N. Central Expressway #600 
Richardson, Texas 75080 
(214)690-0206 

•Trademark Ol Tar* 

•TlradeuM k ol Apparal Corpo'snor 



INTERFACE 



Build a light, sensitive, voice-controlled companion for your computer. 



One Man's Robot 



Don McAllister 

4709 Rockbluff Drive 

Rolling Hills Estate, CA 90274 



Last year I decided to interface Kenner's 
R2D2 robot to my TRS-80. It has its own 
radio control system, is well built and inex- 
pensive. I knew I could mount various sen- 
sors to the robot. With a hardware interface 
and the following software, R2D2 now re- 
sponds to my voice as well as infrared light 
to execute a preprogrammed set of mo- 
tions. 

Not bad for a $29 robot and a $34 inter- 



face and power supply. 

All of the following analog to digital con- 
versions are performed in machine lan- 
guage embedded in single-line strings of 
Level II Basic. This eliminates the need to 
load System tapes into protected memory 
and offers you the ease of Basic program- 
ming and the speed of machine language. 

The robot controls its two-dimensional 
movement by latching OUT port data bits 
and 1. The latched bits control the relays 
with a hex inverter-driver integrated circuit. 
These relays, in turn, key R2D2's radio con- 
trol mechanism and let it move in any pre- 
programmed pattern. 

The robot also responds to infrared light. 
By means of a sensor infrared data is input 




Photo 1. Robot arriving at a light source after a 180degree scan and an eight-inch translation 
to reach it. This mode uses a 1-80 machine language subroutine embedded in Basic to con- 
vert the infrared intensity data to digital form. 
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to the CPU in serial form by using only data 
bit D7. There it's converted to a number 
proportional to voltage by the machine 
language analog to digital string in Basic. 

Software controls the scanning device. 
Specifically, the software turns the robot in 
increments of 7.5 degrees, alternating this 
with periods of infrared data collection. 
When the robot sees a light with any inten- 
sity above a software-controlled threshold, 
he tracks the light moving toward its 
source, until he reaches it and the light be- 
comes diffused. Then the robot turns off. 

If you wish to control the robot by voice 
you must press play and record at the same 



Quantity Part Designation Current 

1 7805 Voltage Regulator 5 milliamps 

(5 Volts O.C.) 
1 7404 Hex Inverter 12 milliamps 

1 7406 Hex Inverter/Driver 30 milliamps 

(Open Collector) 
1 7475 Quad Latch (Level 32 milliamps 

Sensitive) 
1 74367 Hex Bus Driver 65 milliamps 

(Tri-State) 

1 555 Timer 3 milliamps 

2 Archer SPDT Sensitive 12 milliamps 
Mini Relay #275-004 

1 Intrared Photo Detector 25 milliamps 

#276-142 

1 2N2222-2N2907 Tran- 

sistor pair 

1,1 meg ohm trim pot 2.sub-mini phone jacks 
1.50 kilo ohm trim pot 2,16 pin low profile 

sockets 
2..01 micro farad 3,14 pin low profile 

capacitors sockets 



1.1 micro farad tan- 
talum capacitor 



1,8 pin low profile 
socket 



1.1000 micro farad elec- 1 Archer printed circuit 
trolytic board 



Table 1. Parts List for Interface Con- 
trol Board 



"With a hardware interface 

and the following software, R2D2 now 

responds to my voice as well as infrared light. " 



time. The cassette recorder acts as a micro- 
phone and puts voltage on the cassette IN 



port. An X = INP(255) Level II Basic com- 
mand reads this value and sets X = 255, if a 



sound is present; or sets X = 127, if there is 
no sound. 
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Building the Interface Control Board 

The interface control board connects to 
the TRS-80 port edge card in back of the 
keyboard by means of a soldertail 40-pin 
connector with .1 inch spacing. 

I used a rainbow cable to help keep the 
bus signals straight when wiring the printed 
circuit board. I found an ohmmeter useful to 
check for continuity and incorrect wiring 
during assembly (see Photo 2). 

A schematic of the interface board is 
shown in Fig. 1 (top view). Fig. 1 also shows 
the approximate placement of the integrat- 
ed circuit chips on the printed circuit board. 
The entire circuit easily fits on an Archer 
epoxy-glass printed circuit board 
(#276-155). 

The infrared signal conditioner is shown 
in Fig. 2. The analog to digital conversion is 
performed by the interface control board in 
Fig. 1 using a variable pulse duration from 
the 555 timer integrated circuit. 

Fig. 3 gives the pin outs for the TRS-80 
port edge card. Note that the IN and OUT 
port signals are also represented as 
negative (logical 0), true input or output 
designated by TTC and OUT in Figs. 1 and 3. 
In addition to TN and OUT, DO, D1, D7 and 
the signal ground GND (don't forget to con- 
nect it to the TRS-80 interface connected 
ground) must be wired to complete the con- 
nection of the interface board to the 
CPU. The address lines don't need to be 
wired for this application because no ad- 
dress decoding or port decoding is used in 
the generation of strobe signals. If you 
want, this could be incorporated at the cost 
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Fig. 2. Optical signal conditioner converts 
light input into a voltage proportional out- 
put. 
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BIGGER isn't BETTER 

While some magazines run 200 pages or 
more. The Alternate Souree is just 60 
to 80 pages long. But each and every one 
of those pages contains useful, important 
information that relates to yourTRS-80 I 
or III. We don't have millions of sub- 
scribers (or ads) but we do have thou- 
sands of satisfied readers. Have you seen 
aTAS magazine'.'' Y ou owe it to yoursell 
to check it out. For $2 you can sample a 
single issue, or vou can subscribe for 6 or 
12 issue periods (S12 or $18. respec- 
tively). If you don't agree that it wasuW/ 
worth $2.00, we'll refund vour money! 

It's Finally HERE! 

For those TAS readers who've missed 
our first few issues, or for those readers 
who would like a neat, compact set: TAS 
now has their 'bound volume' in stock!! 
Issues 1 through 6, ail of 1980, in one 
convenient book form. And onlv$14.95! 
Over 300 pages of useful information and 
applications. Add $2 for shipping costs. 

BTI? WHAT'S BTI? 

An excellent value for your computer 
budget, that's what! BTI is an alternate 
magazine published by TAS - a more 
subjective mag, containing editorials on 
subjective issues, software reviews, the 
latest news, and more. Ever-changing & 
growing, to keep up with our expanding 
industry. When 6 issues are just $7, can 
you afford not to check it out?!? 
TAS, 1806 Ada, Lansing, MI 48910 
Ph. (517) 487-3358 or 485-0344 
*-138 M 
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IN OUR PROGRAMS 



plot i nearly 2 
(even ^ 



CURVPLOT Rapidly r ™ „„,.,* 
my ustr defined function (even ? 
discontinuous functions). 2 
CURVFIT Deteraines coeff ic- ? 
ients for all polynomials up to v 
14th degree through large I of S 
data points. v 

POLYSOLV Solves any polynomial 8 
of any degree for all roots, 2 
including real and imaginary. £ 

2 

ANY OF THE ABOVE PR06RAH8 OHs 8 
Cass 16K LVII 113.95/2 for 21.95 g 
Formated disk 32/48K .... $14.95 $ 

»»)»» BONUS PACKAGE <«««! | 
for disk users. Above threes 
programs provide a powerful tool 2 
for data analysis or instruction g 
formatted disk $29.00 ? 

or Phone (9041 897 374 1 dUffk V 

esidents add 4% sales UiJ Bt v 

reign orders add $2.00 ^a^Baj yj 
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P.O. Box 596 Niceville. EL 32578 



MICROCOMPUTER TECHNOLOGY AND SOFTWARE 

116 • 80 Microcomputing, September 1981 



"I decided to interface Kenner's 

R2D2 robot to my TRS-80. 

It is well-built and inexpensive. " 



of a few more chips. 

Robot Motion Control 

Controlling the robot's movement uses 
only a portion of the circuitry shown in Fig. 
1. The integrated circuit chips 7404, 7406 
and 7475 control the robot's translation and 
rotation via the relays DO and D1. They key 
R2D2's radio control device. 

Integrated circuit chip 7404 is a hex in- 
verter that inverts the OUT signal from the 



CPU to produce an OUT signal to strobe or 
enable the 7475 latch. The OUT signal is ap- 
plied to pins 4 and 13 of the four-bit bistable 
latch 7475. This latches data bits DO and D1 
(from the expansion port edge card) with the 
output being held on pins 16 and 15 of the 
7475 chip. 

The latched DO and D1 output signals 
then drive the open-collector hex inverter 
7406, which in turn drives the DO and D1 re- 
lays. The following are the outputs on pins 2 





SIGNAL 




P/N 


NAME 


DESCRIPTION 


1 


RAS* 


Row Address Strobe Output for 16-Pin Dynamic Rams 


2 


SYSR.ES - 


System Reset Output, Low During Power Up Initialize or 
Reset Depressed 


3 


CA§* 


Column Address Strobe Output for 16-Pin Dynamic Rams 


4 


A10 


Address Output 


5 


A12 


Address Output 


6 


A13 


Address Output 


7 


A1S 


Address Output 


8 


GND 


Signal Ground 
Andres* Output 


9 


All 


10 


A14 


Address Output 


11 


OUT* 


Address Output 


12 


Peripheral Write Strobe Output 


13 


WR* 


Memory Write Strobe Output 


14 


1NTAK* 


Interrupt Acknowledge Output 


15 


RD* 


Memory Read Strobe Output 


16 


MUX 


Multiplexor Control Output for 16-Pin Dynamic Rams 


17 


A9 


Address Output 


18 


IN* 


Bidirectional Data Bus 


19 


Peripheral Read Strobe Output 


20 


WT* 


Bidirectional Data Bus 


21 


Interrupt Input (Maskable) 
Bidirectional Data Bus 


22 


Dl 


23 


TEST* 


A Logic "W on TEST* Input Tri-Statea A0-A16, D^D7, 
WR*. RD*. IN*. OUT*. RAS*. CAS*. MUX* 


24 


D6 


Bidirectional Data Bus 


25 


A0 


Address Output 


26 


D3 


Bidirectional Data Bus 


27 


Al 


Address Output 


28 


D6 


Bidirectional Data Bus 


29 


GND 


Signal Ground 


30 


D9 


Bidirectional Data But 


31 


A4 


Address Bus 


32 


WAIT* 


Bidirectional Data Bus 


33 


Processor Wait Input, to Allow for Slow Memory 


34 


A3 


Address Output 


35 


A5 


Address Output 


36 


A7 


Address Output 


37 


GND 


Signal Ground 
Address Output 


3$ 


A6 


39 


♦ 5V 


6 Volt Output (Limited Current) 


40 


A2 


Address Output 


NOT 


E: 'means I 


Negative (Logical "0") True Input or Output 


1 3 


9 


II 13 15 11 '9 21 23 25 27 79 31 33 35 3? 39 


— ■ — mi 

2 4 


6 8 10 


'2 '« '6 18 20 22 24 26 28 30 32 34 36 38 40 

Mates with AMP P/N 88103-1 Card J 
Edge Connector or Equivalent 



Fig. 3 



and 4 of the 7406 integrated circuit: 

ground if DO =1 and : Relay DO = ON 

OUT = 1 
ground if DO =1 and : Relay DO = ON 

OUT=1 
Pin 2 of 7406= open circuit if DO = : Relay DO = OFF 

and OUT =1 
open circuit if OUT = : Relay DO = OFF 

ground if D1 = 1 and . Relay D1= ON 
OUT = 1 



Pin 4 of 7406= open circuit if D1 =0 : Relay D1= OFF 
and OUT =1 
open circuit if OUT = : Relay D1=OFF 

Pins 2 and 4 of IC 7406 are connected to the 
ground side of the DO and D1 relays respec- 
tively (the other side of the coil is energized 
with +5 volts D.C.). Thus, if D0 = 1 and 
OUT = 1, then relay DO will close; and, if 
Df1 = 1 and OUT=1, then D1 relay will 
close. Note that no port or address 



ORANGE 



•Fi i am 



.J 



COIL 



i 




01 RELAY GROUND FROM 
PIN 4 OF IC 7406 



DO RELAY GROUNO FROM 
PIN 2 OF IC 7406 



Fig. 4. Robot control relay connection schematic shows color coded relay outputs: D0=1 
and D1 = command translation; DO = 1 and D1 - 1 command head rotation; Do = and 
D0 = give no motion. 




Photo 2. Interface control board connects to the TRS-80 by means of a 40-pin edge connector. 
Note the 14-pin DIP connector at the other end of the rainbow cable. 



REMsoft, Inc. 

Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired ot buying book after book on assembly 
language programming and still not knowing your 
POP from your PUSH? 

HEMsoft proudly announces a more eMi 
cient way. using your own TRS-80* . to learn the 
fundamentals of assembly language programming 
--at YOUR pace and at YOUR convenience 
Our unique package. INTRODUCTION TO TRS-MT 
ASSEMBLY PROGRAMMING", will provide you with 
the following 

• Ten 45-mmute lessons on audio cassettes 

• A driver program to make your TRS-80* video 
monitor serve as a blackboard for the instructor 

• A display program tor each lesson to provide 
illustration and reinforcement for what you are 
hearing 

• A textbook on TRS-80* Assembly Language 
Programming 

• Step-by- step dissection of complete and useful 
routines to test memory and to gain direct control 
over the keyboard, video monitor, and printer 

• How to access and use powerful routines in your 
Level ll ROM 

This course was developed and recorded by 
Joseph E Willis and is based on the successful 
series ot courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio The minimum 
system required is a Level II. 16K RAM 

REM ASSEM-1 only $69.95 

LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step out with 
REMSOFT* Educational Module. REMDISK-1 a 
short course revealing the details ot DISK I/O 
PROGRAMMING using assembly language 

Using the same tormat as our extremely popular 
introduction to assembly language programming 
this "ASSEMBLY LANGUAGE DISK I/O PROGRAM- 
MING" course includes 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-80* video 
monitor serve as a blackboard for the instructor 

• A display program tor each lesson to provide 
illustration and reinforcement for what you are 
hearing 

• A booklet of comprehensive fully-commented 
program listings illustrating sequential file I/O 
random-access file I O and track and sector I/O 

• A diskette with machine-readable source codes 
for an programs discussed m both Radio Shack 
EDTASM and Macro formats 

• Routines to convert from one assembler tormat 
to the other 

This course was developed and recorded by 
Joseph E Willis, lor the student with experience 
m assembly language programming it is an inter- 
mediate-to advanced-level course Minimum hard- 
ware required is a Model i Level II 16 K RAM one 
disk drive system 



REMDISK-1 



only $29.95 




Dealer inquiries invited 

REMsoft. inc. 

571 E 185 st 

Euclid. Ohio 44119 

(216)531-1338 




,W0 



Include $1 50 loi shipping ana handling 
Ohio residents add 5Vj % sales tax 

TRS 80* is a trademark ol the Tandy Corp 



80 Microcomputing, September 1981 • 117 



LOWEST PRICES 



ON 



TRS-80 




Model II 64K$ 3298 




Model III 16K $839 




Line Printer VII. S329 

rwm , T , Microline 80 

oKIDATA Micro|jne 82 

EPSON MX-70 $369 



S394 
$499 



EPSON MX-80 



$4 79 



SAVE 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 



$ 



VERBATIM DATALIFETM DISKETTES 
5 V* -inch (box of 10) $25.95 

8-inch Double- Density. $43.95 

* Payment Money OfM( Casnier s 
Check. Certified Check Personal 
Checks require 3 weeks to clew VISA 
MASTERCHARGE — Add 3% 
WRITE OR CALL FOR OUR COMPLETE PRICE LIST. 

CALL (602) 458-2477 

Wmtm AH prices are mail order only laeaa 

, RAND'S ^ 

2185 F. FRY BLVD. 

k 9 SIERRA VISTA, AZ 85635 

\. TRS-80 is a trademark ol Tandy Corporation 
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Program Listing 1 

1 E$«"SQR.SQRS.FREDEFSNGSQR>AUTO( 79185 FREl 85ENDANDCLOSEERR=" 

2 I=VARPTR(E$) 

3 POKE 16526, PEEK(I+1) :POKE 16527 , PEEK ( 1+2) 

10 M$="+?MD> )0R!3A- .<)0R13A- .MKD$LPRINTOR! 3AINKEYS" 

20 I-VARPTR(MS) 

30 POKE 16526, PEEK(I+1) :P0KE 16527 .PEEK ( 1+2) 

35 A$="QR+?GONOTXVARPTRINPN0T?MKS$C FIXINKEY$ERTER" 

38 'LINE 1 CONTAINS THE LOWERCASE IMPLEMENTATION MACHINE 

3 9 'LANGUAGE STRING DENOTED BY E$ 

40 'LINE 10 CONTAINS THE MACHINE LANGUAGE MUSIC PROGRAM 

50 'DENOTED BY M$ 

52 'LINE 35 CONTAINS THE INFRA-RED ANALOG TO DIGITAL 

54 'CONVERTER - - MACHINE LANGUAGE PROGRAM IN A$ 

55 'THE FOLLOWING INSERTS THE MACHINE CODE INTO STRINGS E$,M$,A$ 

56 '* AFTER THE PROGRAM IS RUN LINES 60 TO 85 CAN BE DELETED * 

60 I1=VARPTR(E$) 

61 I2=VARPTR(M$) 

62 I3=VARPTR(A$) 

63 Bl=PEEK(Il+l)+PEEK(Il+2)*256 

64 B2=PEEK(l2+l)+PEEK(l2+2)*256 

65 B3=PEEK(l3+l)+PEEK(l3+2)*256 

66 DIM E(30) ,M(30) f A(30) 

67 FOR J-0 TO 30 

68 READ E(J) :P0KE(B1+J) ,E(J) :PRINT PEEK(Bl+J); 

69 NEXT 

70 DATA 221,110,3,221,102,4,218,154,4,221 

71 DATA 126,5,183,40,1,119,121,254,32,218 

72 DATA 6,5,254,128,210,166,4,195,125,4,32 

73 FOR J=0 TO 27 

74 READ M(J) :POKE(B2+J) ,M(J) :PRINT PEEK(B2+J); 
7 5 NEXT 

76 DATA 205,127,10,77,68,62,1,105,211,255 

77 DATA 45,32,253,60,105,211,255,45,32,253 

78 DATA 13,16,238,175,211,255,201,32 

79 FOR J=0 TO 27 

80 READ A(J) :POKE(B3+J) ,A(J) :PRINT PEEK(B3+J); 

81 NEXT 

82 DATA 211,16,205,127,10,71,79,3,203,88 

83 DATA 192,219,16,203,127,237,67,1,112,32 

84 DATA 242,201,69,82,84,69,82,32 

85 'END OF MACHINE CODE INSERTION ROUTINES 

90 POKE 16526, PEEK(I1+1) :POKE 16527 , PEEK ( 11+2) 

91 POKE 16414, 241:POKE 16415,66 

92 POKE 16526, PEEK(I2+1) :POKE 16527 , PEEK (12+2) 
135 CLS 

140 PRINT" ** INFRA-RED ROBOTIC VISION DEMONSTRATION 

**■ 



141 
150 
190 
191 
200 
210 
215 
220 
230 
240 
260 
270 
280 
290 
300 
310 
320 
325 
330 
340 
350 
360 
361 
365 
366 
370 
380 
390 
400 
405 
410 
420 
422 
424 



I Will Prepare For My Infra-Red Scan' 
By A Head Rotation of 90 Degrees" 



PRINT," by Don Mc Allister" 

FOR 1=2060 TO 2120:OUT00,0:L=USR(I) :OUT00,0:NEXT 

X=VARPTR(A$) 

POKE 16526, PEEK(X+1) :POKE 16527 , PEEK (X+2) 

Kl = 80 

K2=2.3 

IR=35 

PRINT' 

PRINT' 

PRINT 

B=INT(K2*90) 

FOR I«l TO B 

OUT 00,3 

NEXT 

OUT 00,0 

PRINT" Scanning 180 Degrees To The Right" 

B=INT(Kl/3) 

PRINT@448," In 24 Scans Of 7.5 Degree Increments Each" 

FOR 1=1 TO 24 

FOR J=l TO B 

OUT 00,1 

NEXT 

OUT 00,0 

S0 = 

C=0 

FOR K=l TO 10 

L=USR(0) 

S=PEEK (28673) +256 *PEEK( 28674) 

PRINT8(379+5*K) ,S; 

IF S>IR THEN S0=S0+IR 

S0=S0+S/10 

NEXT 

PRINT@320," " 

S0 = INT(S0) Program cont.nues 



crush 

THE G" 6 ^ ' 



And guess who stars as the 
movie monster You ! As any i 
different monsters M< 
nave the disk version. 

You can t£1 i destroy 

the world's largest .ukI 
mosi 

over 100 possible scen.i: 
From Tokyo to the Golden ( .. 
you are the deadliest creatui 

il.OfltlK 

i can be the deadly am- 
phibian who simultaneously 
smashes street cars, lunches on 
helpless humans and radiates a 

' death 

1 you were a giant win. 
think ol d ■ 

atta ks you could make on the 
terrified but tasty tidbits beneath 
you. 

But as in all the best more 
movies, you'n ist every- 

thing the human race can throw 

'U— even i 
.hk! .\ strange corv 

Ibyateai scientists 

For only S29.95 you a 1 1 
pendous moi > en with its 

own moi .1 immary i 

ili displayed in 

graphu detail i myoui i omputei 

and mapped in the 

imparling 48 page illu 
edbook, the; 

monsteriy mayhem, and spine 
tingling, real-time, edge-of-your- 
seat ex« itement 
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GET CRUSH, CRUMBLE & CHOMP 

now at your local dealer for your APPLE, ATARI, 
or TRS-80 . . before it's too late. 




S£XP7iaiim,£ 

PAfitfp Macnme language program that edits all or part 
of ymjf Basic program to run (aster, save memory, or 
ease editing. The 5 options include UNPACK— unpacks 
multiple statement lines into single statements 
maintaining logic inserts spaces and renumbers lines 
SHORT— deletes unnecessary words spaces and REM 
statements PACK— packs lines into maximum multiple 
statement lines, including all branches MOVE— moves 
line or blocks ol lines to any new location on program On 
2 cassettes lor 16K. 32K & 48K 

For TRS-80 Mod I or III Level II or Disk Basic . . S29 95 
SYSTEM TAPE DUPLICATOR Copy your SYSTEM lormat 
tapes. Includes verity routines The Model III version 
allows use of both 500 and 1500 baud cassettes speeds 

For TRS-80 Model I or III Level II S15.95 

CASSETTE LABEL MAKEK A mini word processor to print 
cassette labels on a line printer Includes 50 peel - and - 
stick labels on tractor teed paper 

For TR-80 Model I of III Level II & Printer S17 95 

PRINT TO LPRINT TO PRINT Edits your Basic program in 
seconds to change all Prints to LPrints lexcept Prints or 
Print*) or [Prints to Prints Save edited version 

For TR-80 Model I or III Level II S12 95 

FAST SORT ROUTINES for use with Radio Shacks 
Accounts Receivable. Inventory Control I and Disk 
Mailing List Systems lor Model I Level II Sorts in 
SECONDS 1 You'll be amazed at the time they can save 
Supplied on data diskette with complete instructions 

FAST SORT lor Accounts Receivable S19 95 

FAST SORT for Inventory Control I S19.95 

FAST SORT for Disk Mailing List (specify data diskette ol 

cassette for 1 drive system) S14 95 

ALL THREE ROUTINES S44 95 

Prices subiect to change without notice Call or write lor a 
complete catalog Dealer inquiries invited VISA and 
Mastercharge accepted Foreign order in US currency 
only Kansas residents add 3% sales tax 
On-line catalog in Wichita FORUM-80 316-682 -2113 
Or call our 24 hour phone (316) 683-4811 or write 
COTTAGE SOFTWARE 
614 N HARDING 
WICHITA KANSAS 67208 ^233 
TRS-80 is a trademark ol Tandy Corporation 




TEACH YOUR 
CHILDREN 

Learning to count money by Malcolm Nygren 



A three-program learning system that teaches 

rthe important skill of counting money. 
I. Counting Coins— Instruction and drill in 
counting pennies, nickels, dimes and 
quarters. 
2:. Shopping Trip— Buy goods in various 
stores; count out the payments and earn 
"purple stamps" for a right answer. Three 
, speed levels. 
3. Ch'ccjcj-Out — Run your own checkout 
.^doH^er. Learn and practice how to make 
chkrige. 
Learning to count money by Malcolm Nygren 
features superior graphics and is available for 
TRS-80' Model I— Level II — 16K on cassette 
only.. pipped postpaid by first-class mail 

-X&ach program $6.95— all three $19.95 



U- 



k. 



ALSO AVAILABLE 

ALPHA — Alphabet recognition for 
preschoolers 
'V-,- , i SIGMA— Addition problems lor 
. " i'irv* Grades 1-3 

'"',>;■ J .--S|(;MA-EX — Addition problems for 
— the younger or slower 
Jfc . learner 

' SPE_L— Spelling practice for 
Grades 2-4 
Available on cassette only. $5.95 each. Two for $1 1. 
All four for $20.00. i^ 104 

Mercer Systems Inc. 

87 Scooter Lane 

Hlcksvllle. N.Y. I 1801 




Program Listing 1 Continued 

425 IF S0>IR THEN 500 
440 PRINT@(504+I*8) ,S0; 

445 IF S0>126 THEN S0=126 

446 PRINT@640," " 

450 FOR X=l TO S0:SET(X,34) :NEXT 

460 NEXT 

465 PRINT: PRINT 

470 PRINT"* THERE IS NO LIGHT SOURCE ~ So I Will Turn Off *" 

480 GOTO 1105 

500 CLSrPRINT" * I HAVE SEEN A LIGHT ~ I Will Investigat 
e *" 

501 I=VARPTR(M$) :POKE 16526 , PEEK ( 1+1) : POKE 16527 r PEEK ( 1+2) 

502 FOR P=l TO 100:OUT0,0:L=USR(2060) :OUT0,0:NEXT 

503 M=VARPTR(A$) :POKE 16526 , PEEK (M+l) :POKE 16527 , PEEK (M+2) 

505 S1=S0 

506 PRINT" INFRARED RADIANCE =";S0 

507 IF S0>126 THEN S0=126 

508 FOR X=l TO S0:SET(X,28) :NEXT 

510 PRINT:PRINT"I Will Rotate My Head Towards The Light" 

600 B=INT(K2*270) 

610 FOR 1-1 TO B 

620 OUT 00,3 

630 NEXT 

640 OUT 00,0 

660 PRINT"I Will Move Towards The Light" 

665 PRINT,"* INFRA-RED TRACKING MODE *" 

670 B=INT(Kl*6) 

680 FOR 1=1 TO 10 

682 IF I>1 THEN B=INT(Kl*3) 

685 S0=0 

6 90 FOR J=l TO B 

700 OUT 00,1 

710 NEXT 

712 GOSUB 730 

715 NEXT 

716 GOTO 1000 
730 FOR K = l TO 10 
740 L=USR(0) 

750 S=PEEK ( 28673 )+256*PEEK( 28674) 
760 PRINT@(379+5*K) ,S; 
770 S0=S0+S 

780 NEXT 

781 PRINT 

785 PRINT@320," ",:PRINT 

790 S0=INT(S0/10) 

800 PRINT3512, "INFRARED RADIANCE =";S0 

810 IF S0>126 THEN S0=126 

815 FOR X=l TO S0:SET(X,28) :NEXT 

850 PRINT 

900 IF S0<IR THEN GOTO 1000 

950 RETURN 

1000 PRINT" * I Have Arrived At The Light Source *" 

1100 PRINT" * Turning Off Sensors * 

1105 I=VARPTR(M$) :POKE 16526 ,PEEK(I+1) : POKE 16527 , PEEK ( 1+2) 

1106 FOR 1=1 TO 10 STEP 1/4:OUT00 ,0:L=USR (3E3-ABS(150-3*I) ) :OUT0 
0,0: NEXT 

1200 END 



Program Listing 2 

10 Kl=70 
20 K2=1.86 

25 CLS 

26 PRINT(ai5,"* VOICE COMMAND ROBOT DEMONSTRATION *" 

27 X0=X1=X2=X3=0 

28 XT=0 

29 PRINT@128,"* 10-20 = TRANSLATION * * 20-30 = ROTATION *" 

30 PRINT@192," " 

31 PRINTG384," " 
40 K=0 

50 FOR 1=1 TO 1000 

51 X0=0 

55 OUT 255,00 
60 X=INP(255) 

70 IF X=255 THEN K=K+1 

71 PRINT@(256+K) ,K; 

80 IF XT=1 AND K>10 THEN GOTO 106 

86 IF X-127 AND K>1 THEN X0=1 

87 X3=X2:X2=X1:X1=X0 Program continues 
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Forbidden Planet 

The First Talking Atlv&ncurc 

This adventure talks through the cassette prr*. 

You no longer need to have a voice synthe&*er 

This adventure takes you to a desolate plain 

where only your skill and your talking computer 

-.will help you survive. This Is Part 1 of a nsulti 

H<£|jart talking adventure. Like no other adventure 

you have ever played. The first five people to solve 

Forbidden Planet will get the next adventure FREE. 

• M\ Screen 

•^achioe Language 

rough Cassette Port 
ower Case 

•els ^_ 
f illiam Demas 

Adams Adventure #12" 



vcL48K>Disk Model I & III 

ealers inquiries invited 

1457 Forum 80 702-362-3609 

Fantastic Software 

3110 Polaris #3 ^ 
Las Vegas, Nevada 89102 r 




TRS-80 OWNERS 
REJOICE! 



Our professional quality software 
development tools let you program 
your TRS-80 with more ease and 
power than you ever imagined possi- 
ble. Programming will become a 
pleasure when you use our full 
screen editors. These editors are not 
just patched up word processors. 
They have been specially designed to 
enhance the BASIC and ASSEMBLER 
programming languages. Our 
assemblers provide full screen option 
menus to relieve you of the burden of 
remembering command names. Com- 
bine user oriented features like this 
with the finest and most extensive 
documentation in the industry and 
you will see why programming a 
TRS-80 is now better than ever. 



T-ZAL: TAPE BASED ASSEMBLER: Assem- 
ble to memory or tape. Create relocatable 
SYSTEM tapes! Includes relocating LOADER 
pgm. 8 character symbols with XREF 
Upgrades to disk when you do! 
Mod 3 Cat # 1250-20 S 4995 

FULL SCREEN PROGRAM TEXT EDITORS: 

All CAU lull screen editors support four way 
cursor motion and scrolling with user selec- 
table auto repeat and scroll speeds. Totally 
visual character insert, delete, and change. 
Block move, copy, delete. Global find and 
change. Editor for BASIC also provides 
automatic line renumbering and 26 user- 
definable macro keys. 
For Tape and Disk BASIC: 
Mod 1 Cat # 1010-20 $24.95 
Mod 3 Cat # 1210-20 S29.95 
For Mod 1 EDTASM source files: 
Tape Cat # 1010-30 $24.95 
Disk Cat n 1010-31 $34.95 

(Disk vtrtiM shipped §n lap* | 



M-ZAL: DISK EDITOR/ ASSEMBLER 
Modular Assembler Language development 
system includes lull screen text editor, multi- 
pass assembler, and object module linker. 
Allows 8 character symbols and source file 
chaining /nesting with 'INCLUDE cmd. Full 
support lor relocation and global symbols. 
Symbol table with cross reference. Req. 32K 
Disk system. 

Mod 1 Cat # 1050-10 Si 49.00 
Mod 3 Cat # 1250-10 $149.00 

XBUG: DEBUGGING TOOL 4 MONITOR: 

Display/ Modify memory and regs. Set up to 
10 invisible and transparent breakpoints. 
Multi-speed single step. Load/Copy/Create 
SYSTEM tapes. Uses only 2.5K and can be 
dynamically relocated to any address. 
Mod 1 Cat # 1020-10 S19.95 
Mod 3 Cat # 1220-10 S19.9S 



Note: these products are not available for 
level 1 machines 

When ordering specify Model. RAM size. * ol 
disks. 

Send check, money order, or MC/VISA vV' 
numbers and expiration date to: 
Computer Applications Unlimited 
P.O. Box 214. Dept EEW 
Rye. New York 10580 

NY. State residents add applicable sales tax - 
AHow 4-6 weeks tor delivery. 
Dealer Inquiries Invited. 

nj I COMPUTER 
,J/ J APPLICATIONS 
Am UNLIMITED tm ^107 



Quality Reliability •Service 

"TRS-80 is a TM ol Tandy Corp 



^S— List of Advrtistrs on ptge 354 
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Program Listing 2 Continue*) 

88 XT=X0*X1*X2*X3 

89 IF XT=1 AND K<10 THEN GOTO 25 

95 SET(2*K,22) :SET( 2*K+1 , 22) 

96 IF K>30 THEN GOTO 25 
100 NEXT 

105 IF K=0 GOTO 30 

106 CLS:K=INT(K/10) 

110 IF K=l PRINT@0,"* YOU HAVE SELECTED MY TRANSLATION MODE * 

120 IF K=2 PRINT@0 f "* YOU HAVE SELECTED MY HEAD ROTATION MODE *" 

121 PRINT0192," " 

122 PRINT@384," " 
130 IF K=l THEN A=l 
140 IP K=2 THEN A=3 

150 K=0 

151 X0=X1=X2=X3*0 

152 XT=0 

155 FOR 1=1 TO 10000 

156 OUT 255,00 

157 X0=0 

160 X=INP(255) 

170 IF X=255 THEN K=K+1 

171 PRINT§(256+K) ,K; Program continues 



decoding is used in controlling the robots 
motion (an OUT command to any port 
causes the relays to operate). This is all 
right if no other peripherals using data bits 
DO and D1 are being operated at the same 
time. 

A cassette recorder can also be operated 
at the same time the robot is being con- 
trolled by using OUT byte commands for 
motion control. Since the recorder is port 
FF = 255 (decimal) it will be unaffected by 
OUT commands and the robot is unaffect- 
ed by OUT FF.04, which turns the recorder 
on. Note that up to four relays can be con- 
trolled by the circuit in Fig. 1 without adding 
more chips. 

The DO and D1 grounds to the relay coils 
in Fig. 1 are connected to the ground side of 
the coils in the relays shown in Fig. 4. The 
plus side of the coils are connected to the 
+ 5 Volt D.C. supply. Photo 3 shows how the 



-ATTENTION ALL TRS-80 OWNERS- 

No matter how your Model I, II. or III is used, whether it be business 
or pleasure, this product can benefit you. 

The FATIGUE FIGHTERtm reduces the operator fatigue 
(irritated, watery eyes and headaches) caused by the harsh white 
video display thereby making computer use more efficient and/ or 
enjoyable. The graph at the right will help explain how it works. 
Superimposed on the standard eye sensitivity curve is the band pass 
curve of the FATIGUE FIGHTERtm as recorded by a 
spectrophotometer. A marker is also on the graph at the ideal 
psychological tolerance color. As you can see, the green color of the 
FATIGUE FIGHTERtm takes advantage of both eye sensitivity and 
psychological tolerance to make the display less irritating. 

The FATIGUE FIGHTERtm is made of tough % inch thick acrylic 
sheet which adds absolutely no distortion or fuzziness to the display 
and is industry proven to be an excellent material for optical filtering 
(e.g. lenses for laser safety goggles). It installs easily on all three 
TRS-80® models with a pressure sensitive adhesive which will not let 
the filter fall off yet allows easy removal if necessary Finally, the black 
and silver border design makes it a perfect match for the computer 
styling. 

If you want a FATIGUE FIGHTERtm of your own but prefer not 
to order by mail, check with your local computer stores to see if they 
have them in stock. Otherwise follow the ordering instructions below. 



TO ORDER 



TRS 10 IS A TRADEMARK OF TANDY 




Sand Name a Addreai Typed or Clearly Printed with 
Check or Money Order lor f 12 95 Eech. Including Ship- 
ping COD • ere 12 SO Additional Per Order 4 era Ac 
cepled by Mall or by Calling 904-37S-24M t-S M-F 
Florida Reaidenti Add *'. Salea Ta> 

SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIDA 32601 .-373 

Dealer inquiries invited. 



Psychological 
Tolerance Color 



MAXt- 



Eye Sensitivity 
Spectral Curve 




Violet 



Blue 



Green Yellow Orange Red 



• »SUl t*«l «f 

following^ Fsvcnologicel *tuoH«-« 
•how a r tan to be? -»ost pleasant 
fot* e-k tertcMhd viewing. Cve larui- 

i »>***« irv the> gree n band 
of the> a pa c trw-a. Contrast la en- 
hanced bv reducing the etabient 
light falling on a CRT. The** 
Mraa factors cotabine to fight 
ca wa tor fatigue- rinally, we 
w«nt»d acre than Just function. 
►*•> wanted a filter that visually 
matched TftS-86 sty* In*. Pictured 
her* It 
eroduct we are *r«uu 
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"After you are certain 

everything is working as it should, 

. turn on the power. The robot should 

immediately start rotating his h£jd." 



color coded relay output switch wires are 
connected to the R2D2's radio control unit. 

NO. NORMALLY OPEN 
N.C NORMALLY CLOSED 
VOLTAGE 6-9VDC 

RESISTANCE 500Q 

CURRENT 12MA 

CONTACT RATING 1AMP 

Once you have assembled the robot inter- 
face control board, and its connection to 
the radio control unit and microcomputer, 
plug in the power supply to an unregulated 
7-12 volt D.C. source (a 300 milliamp plug-in 
battery eliminator does nicely). Double 
check the circuit for proper voltage levels 
and continuity before connecting it to the 
computer. 

After you are certain everything is work- 
ing as it should, connect the interface to the 
computer bus and turn on the power; the ro- 
bot should immediately start rotating his 
head. To stop the motion hit Clear. The mo- 



Program Listing 2 Continued 

172 IF X=127 AND K>1 THEN X0-1 

173 X3=X2:X2=X1:X1«X0 

174 XT=X0*X1*X2*X3 

175 IF XT=1 AND K<10 THEN GOTO 25 

176 IF XT=1 AND K>10 THEN GOTO 209 
190 IF K>60 THEN GOTO 209 

195 SET(2*K,22) :SET( 2*K+1 , 22) 

200 NEXT 

205 IF K=0 THEN GOTO 25 

209 K=INT(K/10) 

210 IF A=l PRINTg64,"* FOR A TRANSLATION OF" ; K; "INCHES *" 

220 IF A=3 PRINT@6 4,"* FOR A HEAD ROTATION OF" ;K* 90 ; "DEGREES *" 

230 IF A=l THEN B=INT(K1*K) 

240 IF A=3 THEN B=INT (K2*90*K) 

250 OUT 00,0 

260 FOR J=l TO B 

270 OUT 00, A 

280 NEXT 

290 OUT 00,0 

295 CLS 

300 GOTO 10 

400 END 




PRESTO! Accessories shipped in 24 Hours 



'JLHLS 

01 01 Bl Gi 




We have a large stock of accessories available 

for immediate shipment, including ribbons, 

interfaces, cables, thimbles and other items 

for Anadex, Epson, Centronics, NEC and 

Okidata printers. We also stock the printers 

for the accessories. We stock Amdeck 

monitors, terminals by TEC, Telray, and 

Micro-Term, and the Altos Microcomputer 

Product line. Make us your stocking source. 





ANADEX DP-9000 

All functions are 

program accessible, 

Hi-Res Graphics 



CENTRONICS 739 

A great printer 

with many new 

features. 



NEC-3500 

A New 
Spinwriter at 
a lower cost. 



ASK FOR OUR 

INSTANT DISCOUNT 

From Roy Hawthorne 

Talk To Bill Tokar On 

Applications 



CALL TOLL FREE 
U.S.A. 

1-800-521-2764 

MICHIGAN 
1- 800-482-839 3 



Remember: 
We are open 
8:30 AM to 
6:00 PM EST 
Monday - Friday 




No Credit 
Card Penalty 



WRITE TO: -* M 
"The Stocking Source" 
24069 Research Drive 
Farmington Hills, Ml 
48024 
313-474-6708 
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"Position the robot's head 

so he is looking straight ahead; 

The robot will move about the table top." 



tfon is stopped when the DO and D1 relays 
are latched to 00. Now you are ready to load 
the motion control in Program Listing 1. 

After the program is loaded, position the 
robot's head so that he is looking straight 
ahead (red LED eye in front). Then, run the 
Basic program in Listing 1, and the robot 
will go through a preprogrammed sequence 
moving about the table top in a square. 
Notice that the program starts and stops 
the cassette recorder before each motion. 
This allows you to record a verbal descrip- 



tion of the robot's maneuvers on cassette 
for playback on subsequent runs. If you 
don't want to make use of this feature 
delete lines 270-300, 710-730 and 920-940 
from Listing 1. 

If the motion is not as desired, try modify- 
ing the constants K1 and K2 in Listing 1. 
They control the magnitudes of the robot's 
moves. For example, if you input a 360- 
degree head rotation and the robot's head 
only rotates 340 degrees, increase K2 by 15 
percent. 



*OB5« 
43B7i 
J*3BAi 
U3BBi 
U3BCi 
^3BDi 
U3BF« 
<-3C0i 
U3C2i 
l*3CUi 

<OCAi 



D3 10 
CD 7F 0A 

UD 

03 

CB 5B 

CO 

DB 10 

CB 7F 

ED 43 01 70 

20 F2 

C9 



OUT (10H).A 

CALL 0A7FH 

LD B,H 

LD C,L 

INC BC 

BIT 3.B 

RET NZ 

IN A,(10H) 

BIT 7, A 

LD (7001H),BC 

JR NZ.43BC 

RET 



i trir,f.er A to D converter 

I initialize converter 

» with most significant byte 

i least significant byte 

I increment counter 

i limit max converter value 

s return if value exceeded 

I input sensor data D7 

i check if D7=l 

j store count in 7001H 

i keep counting if D7=l 

I stop count when D7=0 and 



return to BASIC 



Program Listing 3 




Photo 3. The robot interface control board relays DOand D1 connect to the radio control unit 
as indicated here. 




MICROCOMPUTER 
TECHNOLOGY INC. 



-28 



MOD III 
SALES 

PARTS G SERVICE CENTERS - 
INDEPENDENT DEALERS 

WASHINGTON (509) 534-3955 

Personol Computers 

SAN JOSE (406)946-1265 

Audio Visual Sysrems 

SANTA CRUZ (406) 427-0836 

Monterey Bay Doto Service 

SAN DIEGO (714)281-0285 

Disney Elecrronics 

HAWAII (808)261-4042 

Computer Market 

TEMPE AZ (602) 839-0546 

Lonch Computer 

PHOENIX. AZ (602) 244-9739 

King s Micro Electronics 

TUCSON AZ (602) 323-9391 

Simutek 

SIERRA VISTA. AZ (602) 458-2479 

Rand s Inc. 

TEXAS (214)247 6679 

Electronic Secretary Enterprises 

N 6 S DAKOTA (701 ) 594 5674 

Arrow Seven Merchandise 

MIDWEST (618)345 5068 

Morgo Systems 

MAUMEE OHIO (419) 893-4288 

M.V.C.S. 

CLEVELAND OHIO (216) 779 6040 

C. T. Enterprises 

GEORGIA (404) 449 8982 

Micro Accounting Systems 

FLORIDA (305)9819091 

Computek 

WHITE PLAINS. N.Y. (914)948 7980 

Dlue Light Computer Source 

ASTORIA, N.Y. (212) 728 5252 

Tora Systems 

TROY. N.Y (518)273-8411 

J.FA. Elecrronics Inc. 
OVERSEAS 

REP. OF SOUTH AFRICA 021-45-1047 

Mighrey Dyrey. Capetown 

AUSTRALIA 03-87 7-6946 

De Forrest Software, Melbourne 

MTI ha, a co.. p,e.e .,ne o. COMPUTER o. 'd on, 

INTERNAL DISK KIT 40 OR SO TRACK 

Drive Kir #1 from »699 
Drive Kit #2 from »279 

EXTERNAL DISK KIT 40 OR 80 TRACK 

Drive Kit #34 from »379 
Drive Kit #4 from »359 

TRb DOS o Manual k 2l .95 

DOS PLUS from k 99 , 
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IF YOU CAN 
RECOGNIZE VALUE 

YOU CAN SAVE 

*500 00 

INTRODUCTORY 
OFFER 



M.T.I. 
MOD III 

Now You Con Sove 

$500 over comporoble models! 

M998 

We hove oaken rhe basic 1 6K Model III expanded 
rhe memory ro 48K and added our MTI Double 
Density. Dual Disk Drive system. Sysrem is fully 
compatible wirh Radio Shock DOS and peripherals. 

MOD HI/EXPANDED 

Same as above bur has double storage capacity 
(708K storage). Your choice of 2 dual headed 40 
track drives or 2 single headed 80 track disk drives. 
Includes Microsystems DOS plus 3.3. 

$2499 




MOD HI/260 

Our largest MOD III, approximately 1 .5 megabytes 
of storage, utilizes 2 dual headed 80 track ^?Uble 
density disk drives. Complete with monuarsVano 5 
professional operating system. Microsystems* DOS 
plus 3.3 (40 & 80 track capability). 

*2799 



SB 



MICROCOMPUTER TECHNOLOGY INC. 

3304 W. MACAPJHUf\ SANTA ANA, CA 92704 
• (714)979-9923 • TELEX 6780401 TABIPJN • 

"Uses MTI MeTKxy Chv- Owes & Co-nponenr^ 




• 28 

US. PRICES 

F.O.D. SANTA ANA. 

CALIFORNIA 



^S— List of Adnrtlain on pmg* 354 
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"It's fun to whistle command your robot 
around the floor. You can also construct 
a robot obstacle course to test your skill. 



43621 


CD 7F OA 


4365 • 


4D 


43661 


44 


4367i 


3E 01 


4369'* 


69 


436Ai 


D3 FF 


436c 1 


2D 


436D1 


20 FD 


436Fi 


3C 


4370i 


69 


4371 • 


D3 FF 


4373 • 


2D 


4374 • 


20 FD 


4376i 


OD 


4377i 


10 EE 


4379 » 


AF 


437Ai 


D3 FF 


437C 1 


C9 



CALL 0A7FH 

LD C.L 

LD B,H 

LD A.01H 

LD L,C 

OUT (FFH),A 

DEC L 

JR NZ.436CH 

INC A 

LD L,C 

OUT (FFH).A 

DEC L 

JR NZ.4373 

DEC C 

DJNZ.4367 

XOR A 

OUT (FFH),A 

RET 



pass argument in USR( ) 

frequency 

duration 

for square wave start 

get frequency 

begin positive half cycle 

count tc end of positive 

half cycle of square wave 

for next half cycle 
get frequency 

begin negative half cycle 

count to end of cycle 

continue till done 

increase pitch 

if duration + more waves 

end of square waves 

from K$ 

return to BASIC program 



Program Listing 4 



42Fli 


DD 


6E 


03 


LD 


L,(IX*03H) | 


address of cursor LSB 


42F4i 


DD 


66 


04 


LD 


H,(IX+04H) j 


address of cursor MSB 


42F7i 


DA 


9A 


04 


JP 


C , 049AH 1 


jump if VIDEO read 


42FAi 


DD 


7E 


05 


LD 


A,(IX+05H) | 


check if cursor is on 


42FDi 


B7 






OR 


A | 


jump to control check 


42FEi 


28 


01 




JR 


Z.4301H 1 


if not on 


4300i 


77 






LD 


(HL),A 1 


blank if cursor on 


4301 1 


79 






LD 


A.C l 


control character check 


4302i 


FE 


20 




CP 


20H » 


control character? 


4304 1 


DA 


06 


05 


JP 


C.0506H 1 


jump if control character 


4307i 


FE 


80 




CP 


80H 1 


graphic character? 


4309i 


D2 


A6 


04 


JP 


NC , 04A 6H 1 


jump if graphic character 


430C 1 


C3 


7D 


Ok 


JP 


047DH 1 
Program Listing 5 


patch back to video display 
driver in ROM 



Program Listing 6 

REM ROBOT CONTROL DEMONSTRATION 

1 CLS:PRINT"MY NAME IS R2D2 AND I WILL NOW EXECUTE A SEQUENCE" 

2 PRINT "OF PRE-PROGRAMMED MOTIONS" 

3 PRINT 

4 Kl-81. 

5 K2-1.96 

6 OUT 255,4 

7 FOR W=l TO 60flfl:NEXT 

8 OUT 255,0 

10 DIM A(40) ,B(40) ,C$(40) Program continues 



Robot Voice Control 

Sounds of various durations can be used 
to designate the type and magnitude of the 
robot's motion. It is fun to whistle com- 
mand your robot around the table top or 
floor. You can also construct a robot 
obstacle course to test your skill. 

To use the voice control mode load the 
program in Program Listing 2 into your com- 
puter. Press play and record on the recorder 
simultaneously (you'll also have to insert a 
blank tape) and remove the black plug from 
the microphone jack. By whistling into the 
cassette microphone for various durations 
the robot can be maneuvered in any desired 
pattern when Listing 2 is run. 

The program can also be modified to 
combine computer controlled motions with 
verbal commands. 



Infrared Sensor Light Source 

The infrared sensor (Photo 1) actually re- 
sponds to visible light as well as infrared 
light (in the 1 micro-meter range). Infrared 
LED's emit light over a narrow band of 
wavelengths in the infrared spectrum as 
shown in Fig. 5 (a tungsten filament lamp is 
a good generator of infrared light). For this 
reason ordinary flashlights or penlights can 
be used as infrared light sources (with or 
without filters). A flashlight also has the ad- 
vantage of producing a beam of light which 
can be seen over great distances. 

Infrared data is converted from analog to 
digital impulses and input to the CPU 
through ICs 555 and 74367 in Fig. 1. The ac- 
tual analog to digital conversion is per- 
formed by the machine language subrou- 
tine in Listing 3, which can be called from 
Level II Basic using the USR command. 

Machine code can be either POKEd into 
the string locations, or can be entered 
directly into string locations using a 
monitor program such as RSM or T-Bug. It 
is helpful to enter first the Basic program in 
Listing 6, using arbitrary keyboard charac- 




400 500 600 700 800 900 IOOO 1100 1200 
WAVE LENGTH (NANOMETERS) 



Fig. 5. The spectra of various light sources 
used in robotics experiments. 
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ters to fill out the strings. After this is done, 
the machine code in Listings 3, 4 and 5 can 
be inserted into the proper string from the 
vantage point of a high memory monitor 
program. Two restrictions in doing this are 
that the program must be less than 256 
bytes, and must contain no zero byte op- 
codes. A zero byte causes the Basic inter- 
preter to think it has reached the end of the 
string definition. Careful coding can get 
around these restrictions in most in- 
stances. 

When an infrared source above a soft- 
ware selectable threshold is seen by the ro- 
bot during a scan, a musical note is sound- 
ed through the cassette auxiliary cable. You 
can connect this cable to the phonojack in- 
put of a stereo amplifier, so that the tones 
generated when the robot sees a light are 
heard in high-fidelity. The musical tone is 



formed by means of a Z-80 machine lan- 
guage subroutine, which is also embedded 
in a string. This program is given in Listing 
4. 

Listing 5 gives the Z-80 code for the dis- 
play of lowercase as well as uppercase let- 
ters on the video monitor. 

Finally, Listing 6 is a Level II Basic pro- 
gram that uses the machine language sub- 
routines in Listings 3, 4 and 5, and converts 
your robot into an infrared scanning, de- 
tecting and tracking system. 

After loading the program, plug the sen- 
sor coaxial cable into the interface board. 
As a first test of the sensor, turn the robot 
off and set the IR threshold to a large 
number (IR = 1.E10) in line 350 of Listing 6. 
Run the program, and observe the infrared 
intensity displayed. The numbers should be 
around 10, if no light is shining on the sen- 



Program Listing 6 Continued 

20 FOR 1=1 TO 16 
30 READ A(I) f B(I) 
40 NEXT I 

100 DATA 1,4 

101 DATA 3,90 

102 DATA 1,2.5 

103 DATA 3,270 

104 DATA 1,4 

105 DATA 3,90 

106 DATA 1,2.5 

107 DATA 3,270 

108 DATA 1,4 

109 DATA 3,90 

110 DATA 1,2.5 

111 DATA 3,270 

112 DATA 1,4 

113 DATA 3,90 

114 DATA 1,2.5 

115 DATA 3,270 

116 DATA 1,4 
120 DATA 3,270 
200 FOR 1=1 TO 16 
210 A=A(I) :B=B(I) 
220 OUT 00,0 

225 IF A=l PRINT"I = ";I;" TRANSLATE ";B;" INCHES" 

226 IF A=3 PRINT" I = ";I;" ROTATE HEAD ";B;" DEGREES" 

227 IF A=l THEN B=INT(K1*B) 

230 IF A=3 THEN B=INT(K2*B) 

231 OUT 255,4 

232 FOR W=l TO 2000:NEXT 

233 OUT 255,0 
235 FOR J=l TO B 
240 OUT 00, A 

250 NEXT 

260 OUT 00,0 

270 NEXT 

280 PRINT: PRINT" I AM NOW FINISHED WITH THE MOTION SEQUENCE' 

285 PRINT 

290 PRINT"* WHAT IS YOUR NEXT COMMAND ? *" 

294 OUT 255,4 

295 FOR W=l TO 4000 .-NEXT 

296 OUT 255,0 



sor. With a light shining the number will go 
up to several hundred. 

Adjust the two sensitivity trim pots on the 
interface board until this happens. After the 
infrared signal conditioner and analog to 
digital converter are working properly, set 
IR = 20, turn the robot on, and run the pro- 
gram. The robot will begin a series of scans 
in 7.5-degree increments until a light source 
is seen. At this time R2D2 sounds a musical 
note through the auxiliary cable, and it be- 
gins to track the light. R2D2 now moves to- 
ward the light. When he arrives at the light 
source, the image of the light on the detec- 
tor becomes diffused, and the robot stops 
(once again to a musical accompaniment). 

Incidentally, if you want to mount more 
sensors such as touch sensors, or sonar, 
the analog to digital converter design 
allows up to six analog signals to be read 
and converted simultaneously. ■ 



MODEL II 
PROGRAMS 



RETAIL AIR SYSTEM 

Supports 4000 accounts and 36.000 transaction! 12 itams par 
transaction), includas aging analysis, cradlt cards, customar lists, 
rolodai cards, transaction lists, billing options WIWO financa 
chargas and onlma updating S4OO.0O. 

" 'flaquiras C0901 Huntima Pacaaga ' ' 



RETAIL FINANCING SYSTEM 

Automatas handling ot mstallmant loans Contract calculation 
and printing Payoffs addons. A/ft procasslng. and paymant 
distributions Dasignad tor ralallars who financa big tickat 
itams ... 1500 00 



A smorgasboard ot 40 programs to* laisura and personal usa 
Gamas <2i). parsonal financa IS), ■nathrstat 191 . I 40 00 



BUDGET MONITOR 

Implamants monitoring of multtpla proiact or parsonal budgats 
Allows usar datmad objact codalbudgat catagorias. Tracks ax- 
pandituras, ancumbarancas. and balancas on actual and par 
canlaga complation basis. Idaal tor busy proiact diractors. con 
tracts, busmassman or angmaars who wish to monitor proiact 
Budgets ... i 40 00 



An mtagratad packaga ot 2i Uiioni that tutors lha mam •" ">• 
84S/C languaga Idaal tor Modal II Mini who arish to '••"> 84 SIC 
inasatt-pacadmannar . ... 130.00. 



Soutnfort Sottwara 
81 Fairlaka On t» 

Mattiasburg. MS 39401 

So.c-'r rnsoos 120-201 
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"I see 
Instant 





77 



"... .It's becoming very clear now. . . 
Your microcomputing life is going to be very 
exciting. . Money! I see much 
money for you. Perhaps it is the 
money you will gain when 
^\ Instant Softwares new 

l>^V business applications 

l^k^\ guide your financial 

k\ endeavors. I see 

travel. . .you will 
ourney to distant 
worlds in distant 
times. You will build 
kingdoms from des- 
erts and armies 
from slaves. Never 
will you be bored, 
adventurous one! Your 
programming burdens will 
lighten with new utilities— new 
tools. I see color! Many 
bright colors! I see new 
packaging for all these trea- 
sures .. .everything new! 
And. . yes, a tall, hand- 
some stranger who will 
guide you to these won- 
ders. It will be your In- 
stant Software dealer— 
a wise one indeed. All 
awaits you — all is 
yours for the asking. 
Soon. . .very soon!" 



Get a glimpse of the future today— at your nearest 

Instant Software dealer. 
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YOUR NAME COULD 

BE HERE. CALL: 

1-800-258-5473 



/ 



Find out what you're missing. 

You heard the lady. Your microcomputing life is going to be very exciting. But don't 
leave it to chance— leave it to us! We have a brand new catalog full of packages and 
valuable coupons to help make it happen. It's free . . if you fill out the coupon and mail 
it today. (Or make a photocopy and spare your magazine). 

NAME; 



\ 



\ 



ADDRESS: 
CITY: 



Insta nt Softvvareln c 



STATE:. 



ZIP: 



Peterborough, N.H. 03458 603-924-7296 -A21 / 






APPLICATION 



Some ham software. 



Morse Resource Part II 



Allan S. Joffe W3KBM 
1005 Twining Road 
Dresner, PA 19025 



In the programs discussed last month in 
part one of this article, we stored a mes- 
sage in a string. If we empty this string into 
an area in RAM that is free memory, the 
string can be refilled. We can then empty 
the refilled string into any contiguous free 



RAM area. This can be done at least four 
times, giving us 1000 or more characters. 
This area in RAM is a buffer, a storage area 
of convenience. 

In Program Listing 1 line 5 clears enough 
string space to allow us to fill A$ to capaci- 
ty. Line 10 sets the area in free RAM where 
our buffer area will exist. Line 20 gives us a 
clear screen at the start of the program, 
lists an instruction, and allows us to insert 
characters into A$. Lines 30, 40, 70, 90 and 
100 store the contents of A$ into suc- 
ceeding memory cells in the buffer area. 



5 

10 

20 

25 

30 

40 

50 

60 

70 

90 



CLEAR 300 

X ~ 24000 :REM START OF RAM BUFFER AREA 

CLS: INPUT 'TYPE IN MESSAGE ";A$ 

LN - LEN(A$) 

FOR J - 1 TO LN 

C0DE$ = MID$(A$,J,1) 

IF C0DE$ - "*" GOTO 20:REM SUBSTRING TERMINATOR 

IF C0DE$ - "#" GOSUB 6000 :REM END OF MESSAGE TERMINATOR 

POKE X,ASC(C0DE$) 

X - X + 1 



100 NEXT J 

2000 FOR X - 24000 TO 2 5000: REM GIVES 1000 CHARACTER BUFFER AREA 

2010 A = PEEK(X): PRINT CHR$(A); 

2015 IF A - 32 FOR W - 1 TO 50:NEXT W:NEXT X:REM SEE TEXT 

2020 REM ENTIRE CHARACTER DIRECTORY IS NOW ENTERED 



2025 


IF 


A 


= 


65 


THEN 


G$ 


= 


"SLE" 


2030 


IF 


A 


= 


66 


THEN 


G$ 


= 


" LSSSE" 


2040 


IF 


A 


= 


67 


THEN G$ 


■ 


"LSLSE" 


2045 


IF 


A 


= 


68 


THEN 


G$ 


= 


"LSSE" 


2050 



















The balance of the character directory is entered 
with the pattern that is shown. 



4000 
4010 
4020 
4030 
4040 
4050 



LG - LEN(G$) 
FOR H - 1 TO LG 
XMT$ = MID$(G$,H,1) 
IF XMT$ = "S" GOSUB 



5000 
5020 
5040 



IF XMT$ - "L" GOSUB 
IF XMT$ = "E" GOSUB 
4080 NEXT H,X 
4090 END 

5000 OUT 255,4:FOR TM = 1 
.,5020 OUT 255,4:FOR TM = 1 
rv "5040 FOR -TM = 1 TO 20:NEXT TMrRETURN 
6000 INPUT'" "PRESS ENTER TO TRANSMIT MESSAGE "; Z$ rRETURN 



TO 20:NEXT TM: OUT 255,0:RETURN 
TO 40:NEXT TM: OUT 255,0 :RETURN 



Program Listing 1. 



Lines 50 and 60 are terminators. Line 50 
has an asterisk as the terminator. The first 
character to be typed into the message is a 
quotation mark, which handles the situa- 
tion peculiar to proper functioning of the 
comma. Assume that the message will ex- 
ceed one string capacity (255 characters 
and spaces). If you type in approximately 
three and one-half lines of text, your aver- 
age character and space count will ap- 
proach the string limit. 

The last character entered must be an as- 
terisk. If you exceed the limit, simply back- 
space to a logical end point and insert the 
asterisk. 

Now hit Enter and the program POKEs 
the ASCII value of each character of the 
string into the buffer. The program knows 
that all the meaningful characters have been 
stored when it hits the asterisk. The pro- 
gram now goes back to line 20 for a refill. 
Enter the next A$ with the rest of the mes- 
sage. Follow all procedures as with the first 
string. 

At the end of the final string, the termina- 
tor (#) in line 60 is used. When the program 
encounters the #, it goes to line 6000 and 
lets you transmit the message by pressing 
Enter. 

A Dual Function 

Line 2015 serves a dual function. The first 
function takes care of any accidental 
spaces typed in prior to the terminator sym- 
bol in any given string. Without line 2015 the 
last character of such a line would repeat. 
This function is taken care of by the expres- 
sion: IF A = 32 NEXT X. 

The function generated by the timing 
loop using the variable W is a new function. 
It generates a between-words space that 
you can adjust by changing the value of the 
timing loop. ASCII 32 is the code value for a 
space, so a portion of line 2015 is a space 
detector. 

The terminator character may be any 
character on the keyboard that is not in- 
cluded in your character list in the program. 

Easy Repeat 

Suppose that you have just sent a mes- 
sage*. You heard it go out and watched the 
screen as each character was transmitted. 
If you hit Enter without entering a new mes- 
sage, and then hit the Enter key again, the 
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"If you have to send 
too many CQ messages. . . 
is your antenna still up 
after the last big blow?" 



old message will once more be transmitted. 

Here is the scenario: It's a dull day on 40 
meter CW and you decide to call CQ. You 
load your general calling message, transmit 
it and tune across the band. Hmmmm, no- 
body came back to you. Repeat the mes- 
sage by merely hitting Enter, follow the di- 
rection on the screen, and hit Enter again. 
Your CQ goes out once more, again and 
again if needed. This a nice convenience. 

By the way, if you have to send too many 
CQ messages. . .is your antenna still up 
after the last big blow? 



Special Message Insertion 

Insert the following line between lines 20 
and 25: 

IF A$ = "<&" GOSUB 7000. Now insert the 
calling message in a subroutine in line 7000. 
7000 A$ = "CQ CQ CQ DE W3KBM W3KBM 
K #":RETURN. Notice the use of the final 
terminator in the subroutine message. 

When you run the program and wish to re- 
call the special messasge, merely type in & 
and hit Enter. This is the case where you do 
not type in a terminator. If you did the pro- 



5 

10 

15 

20 

25 

30 
35 
40 
45 
50. 



DEFINT A-Z : DIM CODE $(100) 

R = 24000: REM START OF BUFFER AREA IN RAM 
CLS: PRINT "TYPE IN MESSAGE" 
A$ - INKEY$:PRINT A$; 

REM NOW WE ENTER CHARACTER LIST WHICH GETS INFORMATION INTO 
THE RAM BUFFER LOCATIONS 
= "A" POKE R,65: R=R+1 

R-R+l 

R-R+l 

R+R+l 



IF A$ 
IF A$ 
IF A$ 
IF A$ 



-"B" POKE R,66: 
"C" POKE R,67: 
"D" POKE R,68: 



Enter the rest of the character list following 
the indicated pattern. AFTER ENTERING THE COMPLETE 
CHARACTER LIST YOU THEN ENTER THE FOLLOWING LINES 
USING YOUR APPROPRIATE LINE NUMBERS. 



IF A$ = "#" POKE R,35: GOTO 1000 




IF A$ * ":" THEN R - R-l 




if A$ - " "POKE R,32:R-R+1 




990 GOTO 20 




1000 FOR X - 24000 TO 2 5000: REM THIS SETS BUFFER CAPACITY 




1010 B = PEEK(X) 




1015 IF B - 35 GOTO 10 




1020 IF B - 32 THEN FOR W - 1 TO 10:NEXT W:REM Between word 


spacing 


1025 REM NOW WE HAVE TO INSERT A CHARACTER LIST TO GET THE 




INFORMATION "OUT" OF THE BUFFER 




1030 CODE$(65) - "SLE" 




1035 C0DE$(66) - "LSSSE" 




1040 C0DE$(67) - "LSLSE" 




1045 CODE $(68) - "LSSE" 




1050 C0DE$(69) - "SE" 




1055. 





The balance of this code character list is entered 
following this same pattern. Depending on how close 
you space line numbers, it may be necessary to 
change following line numbers to fit your style. 



2000 LN - LEN(C0DE$(B)) 

2010 FOR H - 1 TO LN 

2020 XMT$ - MID$(CODE$(B),H,l) 



2030 IF XMT$ 
2040 IF XMT$ = 
2050 IF XMT$ * 
2060 NEXT H,X 
2070 END 



"S" GOSUB 5000 
"L" GOSUB 5020 
"E" GOSUB 5040 



The three subroutines are identical to those of Listing # ONE 
so merely duplicate them at this point. 

Program Listing 2. 



MD 



MOO-DGSIGM 



ANNOUNCES 

THE NEW 

MDX-3 

INTERFACE EXPANSION BOARD 



INTERFACE EXPANSION BOARD 

FOR THE TRS-SO 

MODEL III COMPUTER 

FEATURES: 

• Phone Modem 

• RS-232 Port 

• Floppy Disk Controller 
Dual Density 
Data Separator 

• Silk Screen 

• Solder Mask 

• User Manual 

Also Available 
TheMDS-1 

• Plug in data separator 

fortheMDX-2 

• Fully assemPled and tested 

• User Manual 



STILL AVAILABLE FOR- 
THETRS-80MODELI 

MDX-1 and MDX-2 Boards. 

FEATURES: 

• Phone Modem 

• 2K-4K E PROM Option 

• 32K MEMORY Expansion 

• Floppy Disk Controller on MDX-2 

• Real Time Clock 

• Parallel Port 

• RS-232 and 20™ Serial Port 

• Dual Cassette Line 

• On Board Supply 

• Silk Screen 

• Solder Mask 

• User Manual 



IN STOCK NOW! 



PC Board & Manual 

MDX-1 $64.95 

MDX-2 $74.95 

MDX-3 $74.95 

MDS-1 $21.95 



User Manual 



$7.95 



All Boards Add $5.00 Shipping 
Assembled Boards Available 
...Call For Prices 



•FRLL PAMPHLET AVAILABLE 
Call or write ; 

MOODG^CN 

P.O Box 748 
•f Manchaca, Texas 78652 
512-282 0225 



.-See List ot Advertisers on page 354 
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"The important thing 
is getting the 
message through. " 



Program Listing 



50 REM THIS PROGRAM WAS DEVELOPED BY ALLAN S.JOFFE. PART OF IT 
WAS USED AS A DEMO PROGRAM CALLED MORSE RESOURCE WHICH WAS THEN 

SUBMITTED TO 80 MICROCOMPUTING. .. .AUGUST 1980 * 

** 

100 REM CW PGM FOR LONG MESSAGES. AFTER EACH THREE LINES OF TEXT 
TYPE IN AN * AND WHEN PROMPT RETURNS CONTINUE TYPING NEXT 3 LINE 
S.THEN INSERT ANOTHER * AND CONTINUE. AT END OF FINAL LINE INS 
ERT AN * WHICH ACTS AS A TERMINATOR FOR MESSAGE. *** 

120 REM SO THAT A COMMA IN TEXT WILL NOT GIVE EXTRAS IGNORED MSG 
FIRST CHARACTER OF EACH FIRST LINE OF TEXT MUST BE A " *** 

140 REM MSST VERSION WITH ALL FEATURES ***AND ADDING SPEED 
CONTROL A»-- THE BEGINNING OF THE PROGRAM 8/1/80 ***** 

145 CLS: PRINT "INSTRUCTIONS FIRST CHARACTER OF EACH MESSAGE MU 

ST BE A QUOTE SIGN. THEN TYPE IN MESSAGE. IF MESSAGE IS OVER T 
HREE FULL LINES OF TEXT, INSERT AN ASTERISK * AT END OF LINE AND 

PRESS ENTER" 
147 PRINT: PRINT: PRINT "INSERT NEXT SECTION OF MESSAGE STARTING A 
GAIN WITH A QUOTE SIGN IF THIS IS FINAL PART OF MESSAGE END WI 
TH A # TERMINATOR CHARACTER ELSE USE AN ASTERISK TO PUT IN 
NEXT PART OF MESSAGE" 

150 PRINT: PRINT: PRINT "REPEAT IF NECESSARY. FINAL CHARACTER OF 
YOUR TOTAL MESSAGE MUSTBE THE FINAL TERMINATOR #" 
155 INPUT "TO START PROGRAM HIT ENTER" ;N 
160 CLS:CLEAR 300:DEFINT A-Z 

200 INPUT "SET SPEED BY TYPING 10 OR 15 OR 20";L:IF L=10 THEN G- 
30 ELSE IF L« 15 THEN G=20 ELSE IF L=20 THEN G=10 
210 IFL» 10 OR L=15 OR L=20 GOTO 240 ELSE PRINT "YOU HAVE ENTER 
ED AN INCORRECT SPEED" :FOR I = 1 TO 500:NEXT:GOTO 200:REM THIS 
PROTECTS AGAINST ERROR IN SPEED CHOICE 
240 X- 24000: REM START OF RAM BUFFER AREA 
260 CLS: INPUT "TYPE IN MESSAGE" ;A$ 

280 IF A$="S," GOSUB 1660:REM EXAMPLE OF CANNED MESSAGE INSERTION 
300 LN- LEN(A$) 
320 FOR' J- 1 TO LN 
340 CODE$= MID$(A$,J f l) 
360 IF CODE$-"*" GOTO 260 
380 IF CODE$="#" GOSUB 1640 
400 POKE X,ASC(CODE$) 
420 X-X+l 
440 NEXT J 

480 FOR X = 24000 TO 25000:REM BUFFER CAPACITY 1000 CHARACTERS 
500 A= PEEK(X) :PRINT CHR$(A); 

520 IF A< 64 GOTO 1080 :REM SPEEDS UP PGM EXECUTION 
540 REM FIRST PART OF LINE 1080 CONTROLS REPEAT OF LAST CHAR IF 
IT IS FOLLOWED BY A TYPED IN SPACE. MIDDLE DELAY LOOP CONTROLS 
SPACE BETWEEN WORDS IN MSG. 
560 IF A= 65 THEN G$»"SLE" 
580 IF A»66 THEN G$»"LSSSE" 
600 IF A * 67 THEN G$="LSLSE" 
620 IF A » 68 THEN G$-"LSSE" 
640 IF A ■ 69 THEN G$="SE" 
660 IF A= 70 THEN G$= "SSLSE" 
680 IF A = 71 THEN G$-"LLSE" 

72 THEN G$« "SSSSE" 

73 THEN G$- "SSE" 

74 THEN G$~ "SLLLE" 

75 THEN G$« "LSLE" 

76 THEN G$« "SLSSE" 

77 THEN G$= "LLE" 

78 THEN G$ - "LSE" 



700 IP 
720 IF 
740 IF 
760 IF 
780 IF 
800 IF 
820 IF 
840 IF 
360 IF 



79 THEN G$« "LLLE" 

80 THEN G$- "SLLSE" 
380 IF A - 81 THEN G$« "LLSLE" 
*00 IF A - 82 THEN G§» "SLSE" 
920 IF A - 83 THEN G$ - "SSSE" 
940 IF A - 84 THEN G$ » "LE" 

? b IF A « 85 THEN G$= "SSLE" 
9: : IF A ■ 86 THEN G$= "SSSLE" 



Program continues 



gram would operate on the &. 

Now proceed normally and your special 
message will be sent. You can retransmit 
the special message once it is in the buffer 
by hitting Enter, following directions, and 
hitting Enter once again. 

By restructuring the line numbers it is 
possible to insert a whole series of canned 
messages that may be recalled by entering 
the calling character of that particular mes- 
sage.' 

Speed 

Key in this short program: 

10FORX= TO 1000 
20 PRINT X. 
30 NEXT X 

Run this and time the program from start 
to finish. It runs in about 16 seconds. 

Now run the same program with the addi- 
tion of a new line 5: 5 DEFINT X. Run the pro- 
gram again. It should take about ten sec- 
onds, 35 percent faster than the first time. 

Line 5 defines the variables used so that 
they are treated as integers by the comput- 
er. This makes less processing work for the 
Basic interpreter and allows it to run the 
program faster. 

Speed is nice but the important thing is 
getting the message through. Sometimes 
speed is incompatible with that goal. 

InkeyS Meets the Buffer 

The program using INKEYS can also in- 
corporate the buffer feature. One problem 
with the instantaneous version of the pro- 
gram was that of error transmission: If you 
hit the wrong key, that character is instantly 
sent. Program Listing 2 shows the ap- 
proach to INKEYS and a + buffer. 

DEFINT is used to speed program execu- 
tion. The # is the end-of-message termina- 
tor. As soon as you enter #, the message is 
sent. This gives you control of transmis- 
sion. 

The program sets the buffer size at about 
1000 characters, but you may set the size to 
your needs. 

The line that reads IF AS = ":"THEN 
R = R - 1 allows you to correct a typing er- 
ror. When you type in each character, the 
next character is entered in the next numeri- 
cal buffer location by the R = R + R expres- 
sion that follows each entry in the top of the 
program character list. If you mistype a char- 
acter, you can wipe it off the screen by using 
the backspace arrow, but this will not re- 
move the erroneous character from the buf- 
fer memory cell. If you enter a colon after 
you see an improper character entry, the 
program will reduce the R counter to one. 
Now if you type in the proper character, your 
transmission will be correct. ■ 
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Program 


continued 




1000 


IF A = 87 THEN G$= "SLLE" 




1020 


IF A = 88 THEN G$= "LSSLE" 




1040 


IF A = 89 THEN G$= "LSLLE" 




1060 


IF A = 90 THEN G$= "LLSSE" 




1080 


IF A= 32 THEN FOR W = 1 TO 50:NEXT W:NEXT X 




1100 


IF A = 48 THEN G$="LLLLLE" 




1120 


IF A = 35 THEN X= 24000 :GOTO 260 




1140 


IF A = 49 THEN G$= "SLLLLE" 




1160 


IF A = 50 THEN G$= "SSLLLE" 




1180 


IF A = 51 THEN G$= "SSSLLE" 




1200 


IF A = 52 THEN G$= "SSSSLE" 




1220 


IF A = 53 THEN G$= "SSSSSE" 




1240 


IF A = 54 THEN G$= "LSSSSE" 




1260 


IF A = 55 THEN G$= "LLSSSE" 




1280 


IF A = 56 THEN G$= "LLLSSE" 




1300 


IF A = 57 THEN G$= "LLLLSE" 




1320 


IF A = 44 THEN G$="LLSSLLE" :REM COMMA 




1340 


IF A = 46 THEN GS="SLSLSLE" :REM PERIOD 




1360 


IF A = 47 THEN G$= "LSSLSE":REM / 




1380 


IF A = 63 THEN G$= "SSLLSSE" :REM ? 




1400 


LG = LEN(GS) 




1420 


FOR H= 1 TO LG 




1440 


XMT$=MID$(G$,H,1) 




1460 


IF XMT$ ="S" GOSUB 15.80 




1480 


IF XMT$="L" GOSUB 1600 




1500 


IF XMT$="E" GOSUB 1620 




1520 


NEXT H,X 




1540 


END 




1580 


OUT 255 r 4:FOR TM = 1 TO G :NEXT TM:OUT 255,0:RETURN 




1600 


OUT 255,4:FOR TM= 1 TO 3*G:NEXT TM:OUT 255,0:RETURN 




1620 


FOR TM = 1 TO G :NEXT TM: RETURN 




1640 


INPUT "PRESS ENTER TO TRANSMIT MESSAGE" ; Z$: RETURN 




1660 


A$ ="CQ CQ CQ CQ DE W3KBM W3KBM W3KBM K #" : RETURN: REM 


NOTE 


USE 


OF TERMINATOR IN THIS MESSAGE *** *** *** *** 








y has 



ULTRA-I1 



^L u li 



exclude SUPERBASIC 1 

has twice the capabilities of other 
DOS's at one half their price! 

* * $79.95 • • 

Absolutely the only NO-HANG DOS 
Absolutely the fastest copy - will not 
create partial copies on full disketts 
Single or double density independence - 
order either 

Device routing, retains date after 
non power up reboot 
The only alphabetized directory with 
DATED files 

Editor/ Assembler with capability of direc- 
tory, kill, copy and source code recovery 
after reboot 

Multi/Undefeatable auto command 
Individualized stepping speeds for differ- 
ent drives 

CONTINUE a basic program afterreboot 
High speed multidimensioh SORT built 
into SUPERBASIC" 
Erase/Zero arrays with^ge command - 
No more Redim errors^i. :jT 
Fastest despacer for Ba:jp. ' programs - 
in ram, no special file newQed 
Global editor and string packer for Basic 
programs 

Chain basic programs, keeping current 
variable values 

Enhanced list commands - multi lines 
listed 

Keyword cross reference and direct entry 
of graphics 

VERNON B. HESTER ^415 
42403 Old Bridge Rd. • Canton, Nil 48188 
(313) 397-3126 



ier fR 



■lude $1.50 ship./hand. Send your 
and check or MO. Mich, 
ijdents please includ. 
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OFF!! 
OR MORE ! 



Brand New, Top Quality, Exact Replacement Ribbons & Cartridges. These Ribbons Produce 

Super Jet Black Impressions and Ultra Reliable Print Life. They Are Delivered to Your Door 

Promptly for Much Less Than Most Retail Stores 

•SPECIAL! BUY 10 and GET ONE FREE! 



YOUR PRINTER 



'ACK SIZl KTAIl LIST" 



RADIO SHACK IP1II. LPV 
RAOIO SHACK LPII, LPIV 
CENTRONICS MOOS 700 lo 703 
CENTRONICS 100. 101A. 102, 

103.300.301,306.308.330. 

358,398,500,501,503,508. 

588. 620, 820 
CENTRONICS 704-705 
IBM -•SILVER DOLLAR" Sys 

34, Sys 32 MDLA, Senes 

IM014974. 5256, 3287. 3770. 

3771-3774.4974,5100,5103, 

5110.5228,5256, 5320MOLA 
IBM- HARMONICA '/>" SERIES 

I MOO 4973/11, 3200, 3289, 

MOO 2 
TELETYPE MOO 33, 28. 35, 37, 

38, 88 
DIABLO HYTYPE II (M/S BLK) HI 

YIELD FITS 70 PRINTERS' 
Q0ME (FITS 80 PRINTER MOOS) 
WANG M/S 5541W, WC, 5581, 

WD. 6581W. 2281W 
DEC V? x 40YD 
DEC V? x 60YD 
NEC SPINWRITER 



one/pk 
3/pk 

3,pk 
3 pk 



1 pk 
5 pk 



3 pk 



10/ pk 

I pk 

3 pk 
1 pk 

3 pk 
3. pk 
4/pk 



13 95/urt 
18 95/3 pk 
18 95/3 pk 
26 33/3 pk 



16.95 ta 
5 80 ea 



9 42 ea 

2 40 ea 

9 31 ea 

18 00/3 pk 
6 85 ea 

17.77/3 pk 
20 12/3 pk 
23 40/3 cart 



YOUR WHOLESALE PRICE 



8 95/Riload no. onry (8.95 ea) 

11 95/3 pk (3.98 ea) 

11 95/3 pk (3.98 ea) 

17 55/3 pk (5.85 e a) 



13.95/Gunt C«1 
14 90/5 pk 



20 85/3 pk 

1390/10 pk 

6 87 ea 

13.95/3 pk 
5 95 ea 



(13.95 ea) 
(2. 98 ea) 



(6.95 ea) 

(1.39 ea) 

(6.87 ea) 

(4.65 ea) 
(5.95 ea) 



12.95/3 pk (4.32 ea) 

14 25/3 pk (4. 75 ea) 

23 60, 4 pt rb reload 15.90 eal 



SIZE 



500" x 45' 
563" x 45' 
563" x 45' 
1" x 108' 



5/16"x210' 
9/16" x 30' 



1/2" x 1C 



1/2" , 36' 

5/16" x 

Htgh Yield" 

1/4" x 310' 

5/16" x 393' 

1/2" x 120' 
1/2" x 180' 
1/2" x 51" 



COMMENTS 



Nylon Incl Instf 
Nylon Jel Blk 
Nylon Jit Blk 
Nylon Jit Blk 
5 ml High Speed 



Giant Cart 
Nylon Jet Blk 



Nylon Jet Blk 

Nylon Jet Blk 

300.000 plus imp 

Multistnke Film 
Mdtistnki Film 

Double Spools 
Double Spools 
Nylon/Ex Lng Lite 



CAT 0RDER# 



R-T3 
C-700 
C-700 
C-100 



C-7045 
R-300 



C-350 

R-450 

C-511 

C-525 
C-550 

R-600 
R-644 
R-400 




TERMS: 

MINIMUM PURCHASE - $20 
PAYMENT BY: COD. (UPS), CHECK, 

MASTER CARD, OR VISA CHARGE 

CARD. 
VOLUME DISCOUNTS: 

20-50 PACKS 10% 

51-100 PACKS 15% 

•UNDER $20, ADD $5 HANDLING. 
"APPROX. RETAIL. PRICE VARIES. ^ 461 

ANCIE LABORATORIES 



9204 linmon BM 
Colagt Part. M0 ?0740 



301 3*5-6000 (Wuli 0C Loul| 
30' -792-20M ,B»ltD MOtoull 
800-638-0967 IKilrawl 



ADDRESS. 
CITY 



ANCIE Laboratories 
9204 Baltimore Blvd 
College Park, MD 20740 



301 -345-6000 (Wash DC Local) 
301 -792-2060 (Balto MD Local) 
800-638-0987 (National) 



CAT.# 



□ Check Enclosed 

□ COD. 

□ VISA 

□ MASTER CHARGE 

ACCT. # . 1 3. 

EXP. DATE 9fi' 

MIN. ORDER $20 
PRICES SUBJECT TO CHANGE 



^Se* List of Advertisers on paga 354 
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REVIEW 



How can we keep them down on the farm after they've got their TRS-80? 



Spanning the Electronic Nation 



Dennis Bathory Kitsz 
Roxbury, VT 05669 

The Microconnection 

Micro peripheral Corp. 
Mercer Island, WA 
$249 

Lynx 

Emtrol Systems, Inc. 

Lancaster, PA 

$249 

Telephone Interface II 

Radio Shack 

Ft. Worth, TX 

$250 (RS232 board at $100 and Expansion 

Interface at $299 also required.) 



Be warned: The world of communica- 
tions is large; the TRS-80 is small. But 
once you've brought one to the other, your 
data can travel the breadth of the electronic 
nation. You won't stay down on the farm for 
long after that. 

The way the TRS-80 manipulates infor- 
mation is not much different than the way 
other computers do it, and so it can easily 
communicate with other machines. By con- 
verting data to a continuous stream of 
pulses, and using those pulses to change 
the pitch of audio tones, a powerful tele- 
phone connection to other computers is pos- 
sible. Streams of data are also used to com- 
municate directly with what are known as 
serial peripheral devices, including printers. 
This communication process has be- 




The Telephone Interface II modem; telephone handset cradles in the rubber cups 
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come relatively standardized over the years. 
For example, a computer talks to a Teletype 
printer at 110 bits of information per sec- 
ond. This is called the baud rate. Standard 
baud rates run from a low of the Teletype's 
110 (there are lower nonstandard rates) to a 
high of 19,200. Telephone communication 
over ordinary voice lines is conducted at 
300 baud; special private (and more expen- 
sive) data lines can handle rates from 600 
baud and up. 

Other parts of data communications 
"protocol," as it is known, are the character 
code itself (usually the familiar ASCII, al- 
though there are obsolete formats and 
IBM's own EBCDIC), the number of start, 
stop and data bits, and a verification bit 
known as parity. 

The TRS-80 Model I is not outfitted with 
communications capabilities, but several 
companies, including Radio Shack, offer 
special hardware for serial transfer of infor- 
mation. These hardware additions come 
with a variety of capabilities and support. 
They are called modems, which stands for 
modulator/demodulator. 

The Telephone Interface II from Radio 
Shack is an acoustic device; that is, the 
telephone handset fits into a pair of rubber 
cups which block out unwanted sounds and 
permit the Interface's speaker and micro- 
phone to join closely to the telephone's mi- 
crophone and earphone. The Interface re- 
quires RS-232C input. Simply stated, RS- 
232C is an industry standard definition of 
communications hardware according to 
voltages and polarities. The Radio Shack RS- 
232 board fits into the TRS-80 expansion box. 

The total hardware required to communi- 
cate with Radio Shack's hardware is the Ex- 



"Your data can travel the breadth 

of the electronic nation. You won't 

stay down on the farm for long after that." 



pansion Interface, RS-232 board, and tele- 
phone interface. 

The Microconnection, manufactured by 
the Microperipheral Corporation, is a direct- 
connect device. It comes with a modular 
plug to snap into a telephone outlet, rather 
than using audio coupling to the handset. It 
plugs directly into the edge card connector 
of either the keyboard unit or the expansion 
interface, and is complete as sold. 

The Lynx, made by Emtrol Systems, Inc., 
is also a complete direct-connect communi- 
cations box. Like The Microconnection, it is 
supplied with a cord and modular plug, and 
fastens to the keyboard or expansion inter- 
face. 

All three units come with familiar black- 
box power supplies. 

Advantages and Disadvantages 

None of these communications attach- 
ments is perfect, but for simple telephone 
applications, all are useful. Beyond that, 
the questions become more complicated. 

Most versatile of the three is the Radio 
Shack combination. It provides a full range 
of standard baud rates and other communi- 
cations parameters, as well as the best doc- 
umentation. It has the largest body of soft- 
ware (Radio Shack's and others') among the 
three units. 

Unfortunately, it's expensive. An expan- 
sion interface is required to support an 
RS-232 board, and that in turn is required to 
run the Telephone Interface. Simple soft- 
ware is provided, but full-featured commu- 
nication packages start at $50. The total tab 
can be higher than $650, not including the 
telephone bills. 

Next on the list is The Microconnection. 
Variable protocols are provided, but the 
baud rate is limited to a standard telephone 
rate of 300. It is the easiest to get up and 
running, and is provided with an excellent 
dumb terminal program and fine instruc- 
tions. Direct connection to the telephone 
line requires that you formally notify the 
phone company in some areas. The Micro- 
connection also provides a voice input for 
use in ham transmissions and other voice/ 
data combinations, and a standard RS-232 
output jack is included for talking to 
300-baud serial printers, etc. 

The available software pool for The Mi- 
croconnection was initially small, limited to 
that sold by its manufacturer. Their more 
sophisticated software package, which is 
an additional $50, has some bugs and is far 
from crash-free. Now, however, other com- 
mercial communications software is be- 
coming available in forms modified for use 
by The Microconnection (sometimes at an 
additional charge). All told, the device and 
software is an attractive alternative if your 
goal is straightforward telephone commu- 



nication. 

Finally, the Lynx also provides variable 
protocols and the single telephone rate of 
300 baud. It too connects easily, but the in- 
structions are poorly written and the pro- 
gram was fragile and crashed often during 
use. It is less sensitive to signals than either 
The Microconnection or Telephone Inter- 
face II, resulting in some garbled or lost 
data. It has no RS-232 output, limiting it ex- 
clusively to telephone use. 

Software written for the Radio Shack RS- 
232/Telephone Interface will generally work 
with the Lynx, because the Lynx is arranged 
to use the same output port number as the 
Radio Shack board. This results in an inter- 
esting problem— the Radio Shack board 
must be disconnected if the Lynx is to be 
used. Otherwise, confused signals and 
computer bus conflict will be the result, 
since both use ports 232, 233, 234, and 235. 
This means that if for any reason you have 
decided not to use the acoustically coupled 
Telephone Interface, but have nonetheless 
installed the Radio Shack RS-232 to drive a 
serial printer, you must not use it simulta- 
neously nor even have it connected when 
the Lynx is in place. This can be a serious 
drawback; keep a screwdriver handy. 

There is little difference in performance 
between the direct-coupled Microconnec- 
tion and the acoustical Telephone Interface 
II. The sensitivity of the latter is quite good, 
and the rubber earcups protect the unit 
from extraneous sounds. Striking or bounc- 
ing the unit (or tripping over the phone cord, 
my favorite hobby) will cause some minor 
data loss. 

The Microconnection discriminates very 
well between noise and signals, giving er- 
ror-free data with most reasonable tele- 



phone situations. 

A Tale of Two Cities 

The only problem I had with the unit 
might be unique, but if you live in an ar*a 
where the quality of telephone service is not 
high, this tale will be of interest. The Micro- 
connection, as with all devices made to at- 
tach directly to the phone lines, has an FCC 
serial number which must be provided to 
the telephone company by the user along 
with notice that the communications device 
is in place. , 

Not wanting to get involved with our tele- 
phone company, which is . i.rivate, strictly 
one-horse system. I connected the device 
without notifying them. Alas, the send/re- 
ceive situation was impossible. A phone 
call to the modem's manufacturer resulted 
in a complete and courteous walk-through 
on how to increase the device's sensitivity, 
as well as a 3000-mile measurement of the 
signal loss from tiny Roxbury to bustling 
Seattle. It looked bad. Even with a tweaked 
Microconnection, the data was garbled 
much of the time. 

A hesitant phone call to the telephone 
company resulted in two service calls and a 
stiff lecture about the required notification 
due them of the device and its serial num- 
ber. But $20 worth of useless data calls lat- 
er, the modem was still not doing the job. 
The Microperipheral Corporation was very 
helpful, but claimed the telephone com- 
pany was at fault; the phone company and 
its Neanderthal engineers wanted to take 
The Microconnection for examination, 
claiming it must be at fault. Nothing doing, 
said I to the latter request. » 

For some days there was a stalemate, un- 
til the Telephone Interface II arrived. Oddly, 




The Connection compared in size to the Exatron Stringy Floppy. 
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"But $20 worth of useless data calls later, 
the modem was still not doing the job. " 



it was more sensitive than The Microcon- 
nection under these adverse conditions, 
but still the lost data was more than I was 
prepared to expect. 
Finally the phone company admitted the 



truth: In a typical economy move, they had 
bought what they called "loading coils," at 
surplus, to balance the lines between Rox- 
bury and the home office eight miles to the 
north. These had not been installed, they 



said, because no brackets came with them, 
and both the coils and brackets were obso- 
lete. Perhaps in a year or two the situation 
would be corrected. 

The Public Service Commission then re- 




/ he oack panel of the Lynx has telephone connections, user pro- 
gramming switches, and originate answer switch. 



The front panel of the Lynx indicates carrier, and has voice 
data switch. 




TRS-80 PROGRAMS ON CASSETTE 

CLOAD Magazine for your Model I or III! 



Goleta. Calif. — You can get 7 or 8 programs on cassette, each month, 
that CLOAD directly into your TRS-80 Model I or III! 

A subscriber, too engrossed in trying to save the world from invading 
aliens (March. 1981 issue) to give his name, stated, "I receive a 30 minute 
cassette by First Class Mail each month containing some of the best games 
and educational programs I have ever played. Some are even in machine 
language! "Another CLOAD subscriber. Claudine Cload. could now 
"fit the computer into her schedule" thanks to the utilities and occasional 
disk programs she received from CLOAD. She was writing about it to all 
of the people on her mailing list (November. 1979 issue). 
Get the news firsthand. Get a subscription to CLOAD Magazine. 



The Fine Print: 

Overseas rates slightly higher — 

please write for them. 
Back issues available— ask for our list.* 
TRS-80 is a trademark of Tandy Corporation 
California residents add 6% to single copies 
and anthologies. Programs are for Level II 
1 6K , Model III 1 6K , and occasionally for disks. 
*24 Level I back issues also available. 



PRICES 

I year subscription , 
6 month subscription 

Single copies 

Anthology-volume I 
Anthology- volume 2 



Mastercard/Visa Welcome 




*42.00 
$23.00 
$4.50 
$10.00 
$15.00 



L_ • Magazine Inc. PO. Box 1448. Santa Barbara. CA 93102 ^502 (805) 962-6271 



©1981 
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"My monthly bill charges me an extra 
fifty cents for 'Miscellaneous Business Equipment.' ' 



ceived a polite note. A few days later, phone 
company engineers and installers were 
standing outside my home in light snow, 
pondering the problem. 

At last those lines (the first private lines 
in Roxbury, a fact of which I was very proud) 
were switched with an older (and properly 
balanced) party-line set. All four party lines 
had to be dedicated to my single telephone, 
because there were no other options for the 
company. I received credit for the unsuc- 
cessful data calls— but I also received an 
installation bill for The Microconnection, 
even though I did the installation myself. 
My monthly bill charges me an extra fifty 
cents for "Miscellaneous Business Equip- 
ment." 

A writer from Canada tells me installa- 
tion of non-phone-company equipment is 
even harder there, and he has no desire to 
fight for the multiple permits needed. 

Back to the Evaluation 

By this time, the Lynx had arrived. With 
the new lines in operation, I expected no 
problems, but data was lost on long dis- 




The back panel of The Connection has microphone connecting screws, RS-232 output, 
power and telephone cables. 



COLOR COMPUTER OWNERS! 
CLOAD INC. ANNOUNCES 



CHROMASETTE MAGAZINE! 

A monthly magazine-on-cassette for your 
Extended BASIC Color TRS-80! 



Goleta California — With 
CHROMASSETTE 
Magazine, Color Com- 
puter owners can now enjoy 
the variety, economy, and 
easy entry of programs that 
CLOAD subscribers have 
enjoyed for 3 years. 

CHROMASETTE 
Magazine gets rid of the 

.... , CHROMASETTE Magazine in its Prime State 

type-in-and-edit blues by 

putting a rainbow of ready-to-load programs on cassette, and sending 
them to you by First Class Mail each month. Educational, practical, 
utility, and game programs are delivered right to your mailbox. 




Put a rosy color in you and 
your computer's cheeks, 
stop reading these old 
cliches, and get a subscrip- 
tion lo CHROMASETTE 
Magazine. 

Please write for Foreign Rales and 
other info. 



$45.00 year. $25.00 6 months. $5.00 
single issue, or send a Blank Check 
and your account balance. Visa and 
MasterCard also accepted. 



Chrornasette Magazine P.O. Box 1087 Santa Barbara, CA 93102 ^ (805)963-1066 
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"The Microconnection is very compact, and created 
on two piggyback boards inside a small case." 




Inside the Telephone Interface II: holes and slot are for microphone and speaker, discon- 
nected in this photo. 



tance calls. The Microconnection and Tele- 
phone Interface II continued to work very 
well, so I conclude that the Lynx unit I re- 
ceived for evaluation was not as sensitive 
or discriminating in its signal reception. As 
evidenced by comments by those on the re- 
ceiving end, though, all three units transmit 
exceptionally well, with no data loss. 

There are two potential problems with da- 
ta transmission, one which pertains to all 
modems, the other exclusively to the Tele- 
phone Interface II. The first difficulty is the 
way in which some long-distance telephone 
calls handle the audio. One side of the line 



dominates the signal, blanking out the au- 
dio from the other side. This makes two-way 
transmission impossible, and if the pro- 
gram being used depends on sensing a 
"carrier" tone at the far end to operate, it 
will freeze or report an error. The only solu- 
tion to this is to dial again and hope to get a 
line capable of simultaneous transmission 
of two signals. I have had this problem 
mostly during peak calling periods. 

The other problem is that the acoustic 
connection may overload newer electronic 
telephones, or the operation of the comput- 
er may interfere with the expensive cordless 




The Lynx modem board shows loosely-spaced digital circuitry at top, compact audio cir- 
cuitry at bottom. 
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telephones being sold. A Radio Shack man- 
ager reports that the Telephone Interface II 
simply will not work with the electronic tele- 
phones in his area, where the phone com- 
pany is actively replacing its older electro- 
mechanical devices with sophisticated 
electronic ones. 

As for the cordless phones, the manager 
reports that, modem or not, even the pres- 
ence of an operating TRS-80 (which emits 
wide-band radio-frequency interference) 
will blot out the operation of any cordless 
phone in the vicinity. I have not had a 
chance to explore this, but recommend that 
readers with recent phone installations get 
an assurance from their Radio Shack man- 
ager that the equipment can be returned be- 
fore purchasing the complete RS-232/Tele- 
phone Interface setup. 

Inside 

The boards inside the three devices show 
clean work and high quality components. 
The Microconnection is very compact, and 
created on two piggyback boards inside a 
small case. Its circuit board is fiberglass, 
and the adjustment controls are stable, pre- 
cision devices. No circuit diagram is provid- 
ed with The Microconnection, making user 
adjustment (which is actually illegal with di- 
rect-connect phone devices anyway) impos- 
sible. Documentation of the hardware is 
weak, only briefly commenting on the use of 
the modem with serial devices and in voice/ 
data operation. User programming informa- 
tion is scanty, though the company will 
send it on request. 

The Telephone Interface II is also com- 
pactly designed, and all parts on its board 
are clearly labeled— a joy when trouble- 
shooting. The case is slim (only an inch 
thick), and color-coordinated with the rest 
of the TRS-80 system. A full circuit diagram, 
an extensive manual, and excellent descrip- 
tions of user programming are provided. 
Once again, Radio Shack provides the star 
documentation of the lot. 

My review copy of the Lynx is the only 
one of the three using a phenolic paper 
board, and its parts layout is not compact. 
Although the Lynx performs well, the wide 
spacing between parts, combined with a 
plastic case and the inexpensive circuit 
board material, make it a candidate for er- 
rors, and may explain the slight lack of relia- 
bility of this unit. (Later Lynx units have 
been produced with fiberglass boards, and 
reports indicate higher reliability.) The user 
documentation consists of a few illegible 
pages and a very brief description of the 
unit's operation. From my point of view, this 
documentation is entirely unsatisfactory. 

One feature common to all the units is 
the originate/answer option. When two mo- 
dems communicate, each must transmit at 
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. . . Andmy dad says GRAFTRAX80 
does better graphics than anybody. 

Epson. 



You might say it's the head of its class. GRAFTRAX 80 
gives you the highest resolution dot matrix in the world 
— up to 120 dots per inch horizontally and 216 dots per 
inch vertically. Which makes our MX-80 and MX-80 
F/T work more like a plotter than a printer. 

And that's just for starters. 

GRAFTRAX 80 more than doubles the features avail- 
able in an Epson MX-80 or MX-80 F/T. For instance, 
we've added nice little touches like an italic character 
set — which doubles the number of font types to 24. 
And with GRAFTRAX 80, you can change style, size 
and density anywhere in the line. And backspace the 
head. And use block graphics with any computer. And 
redefine all escape codes under software control. 

Up to now, you couldn't get some of these features at 
any price. With GRAFTRAX 80, you get 'em all. And 
more. Lots more. 



Best of all, we haven't forgotten all those people whc 
already own an MX-80 or MX-80 F/T. You own th< 
printer that set the standards all the others are follow 
ing. And you can install GRAFTRAX 80 PROMs your- 
self, for less than $100. And make the best even better 

You can see why w 

say GRAFTRAX 80 i 

the head of its clas; 

There's nothing else i 

its class. 



^ EPSOM 

FDOnw AMPRir.A INK 



EPSON AMERICA, IN( 



3415 Kashiwa Street • Torrance, California 90505 • (213) 539-9140 



If you're looking for 

the best prices 
in the U.S. A. on 




MICROCOMPUTERS 

We have consistently offered the 
TRS-80 line at savings up to 20%. You 

can save up to $1500 by buying 
from Computer Discount of America. 



ATARI 

MICROCOMPUTERS 




We have the full line of ATARI per- 
sonal computers and systems. 
Model II 

26-4002 64K. 1 disc $3385.00 

Model III 

26-1061 4K. Level I $610 00 

26-1062 16K. Level III $845.00 

26-1066 48K Level II 2-dnve/RS-232 $2115.00 
Color Computer 

26-3001 4K $ 329 00 

26-3002 16Kw/Ext Basic $ 499'oO 

EPSON 

MX70 Printer $ 375.00 

MX80 Printer $ 485.00 

MX80FT Printer $ 639.00 

Our savings are as big on expansion 
interfaces, printers, diskettes. Apple 
Computers. 0KIDATA Microline, 
C-IT0H Starwriter. Lexicon Modems 
— everything for your computer. 
We have the largest inventory in the 
Northeast, and most models are in 
stock, for immediate delivery. 
Our full price catalog or a price 
quote is as near as your phone. 



CALL TOLL FREE: 
800-526-5313 



Computer 



•jPfOTTn 



of America 



COMPUTER DISCOUNT OF AMERICA. INC. 
15 Marshall Hill Road. West Milford Mall 
West Milford. New Jersey 07480 
In New Jersey Call 201-728-8080 



"The Lynx, weakest of the three, still shows 
good circuit design and uses quality parts. " 



a different pitch. The custom is to call one 
the originator of the call, the other the an- 
swer side of the call. The Microconnection 
did not have this feature on its first model 
(reviewed for this article), but the present 
version contains an answer mode. 

In sum, the units are well designed, using 
parts of high quality. Only the Radio Shack 
unit uses crystal control, although The Mi- 
croconnection provides signals well within 
standard tolerance through use of preci- 
sion resistors, capacitors, and integrated 
circuits. The Lynx, weakest of the three, still 
shows good circuit design and uses quality 
parts. 

What to Do with Them 

All these modems provide access to tele- 
phone communications. Among the most 
popular telephone uses is connection to a 
large program and data base, such as The 
Source or Micronet. These services, for a 
fee, provide an enormous repertoire of pro- 
grams and information, including stock re- 
ports, powerful text editing programs, and 
substantial user storage. 

Using one of these services is like having 
a terminal on a large, powerful, time-shar- 
ing computer— which is exactly the case. 
The full computational and storage power 
of the machines is available to users of 
home computers like the TRS-80, Apple, 
etc.; by using a modem and a standard pro- 
tocol they are all capable of talking the 
same language. A TRS-80 becomes as pow- 
erful as a Control Data terminal. 

Other uses of the modems are to access 
free computer bulletin boards (a listing of 
over 250 is provided with The Microconnec- 
tion); exchange of original programs and in- 



formation; and accessing local time-shared 
computers. Local computers can provide a 
data base used by regional companies, 
meaning that engineers, scientists, sociolo- 
gists, and so forth, can continue their nor- 
mal work at home, far from their usual ter- 
minals. 

Banks now permit (and some are actively 
encouraging) banking at home; financial in- 
stitutions will feed updated Wall Street re- 
ports right to your living room or office. 
Western Union accepts mailgrams directly 
from the TRS-80 into a toll-free number. 

The future is being demonstrated in 
France: A program is being set up to provide 
all telephone customers with a data termi- 
nal to replace directory assistance. The 
telephone company suggests it will be fast- 
er and cost less than the present human op- 
erators. 

Modems capable of interfacing to the 
TRS-80 continue to appear. Each should be 
capable of error-free data transmission and 
reception, flexible user programming, and 
should be supported by a body of quality 
software. The Telephone Interface II, The 
Microconnection, and the Lynx are all up to 
this challenge. 

The Telephone Interface II, a Radio 
Shack product, can be expected to have 
continued support from both that company 
and independent software authors. The Mi- 
croconnection already has fairly good sup- 
port available for it, Including modifications 
to Radio Shack and other communications 
packages. The Lynx, along with its other 
weaknesses, has little more than manufac- 
turer support at this writing, although most 
communication programs written for the 
Radio Shack modem will work with it.B 




The Connection has precision trimmer controls (at top), and piggyback board connector 
(in center). 
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A MAJOR 

BREAKTHRU FOR 

Electronic Engineers 

Electronic Hobbyists 

Electronic Students 

Ham Operators 

A General DC-AC (steady state) Analysis 

of Any Circuit 

Will Analyze and Compute: 

• Node. Branch. Element, Voltages 

• Node. Branch. Element. Currents 

• Branch Power Dissipation 

• Magnitude and phase values and complete 
frequency response with graphic display 

• Modify any element in circuit for desired 
results 



A complete operational 

manual supplied 
comparable to I.B.M.'s 

E.C.A.P. - " Program 
•AC. Analysis Program 

$149.95 

•DC. Analysis Program 

$89.95 



H TRS80" is a trade mark ullhe Tandy Corp. E 
^Ll Business Machines lnc 

sS— Lilt ot Advertisers on page 354 




Do Not Send 



PUBLICATIONS for the trs-80 Model III 

Mystery of the ROM Mystery of the DISKETTE 

Mystery of the DOS $19.95 each 

Must additions to the computer library of the serious 
programmer as well as the casually interested. Written 
in a technical, yet easy-to-read and understandable style. 
Each book includes: 

• detailed tables of contents and indexes, alphabetical 
and numerical tables with numerous cross references 

• register setup going into routines 

• register results coming out of routines. 

• detailed explanations on all routines, structures, 
codes, etc.; and not just a few ambiguous comments 

• Numerous summaries for ease of book use 

Special ... all three $49.95 
SORT/CMD 

• multi-key (to 14 fields), Multi-tag (to 14 more fields) 

• sort any combination of variable type 

• integrates easily into any existing program 

$1 9.95 each Disk or non-disk. Model I or III; 32K or 48K 

PATCHES 

to allow operation of many Model I programs on the Model III 

• LM OFFSET/CMD, Superzap/CMD ? 

• RSM 2D/CMD 10K, 32K, 48K 3 

• Big Five Software Games (all games) 4 

$5.95 each Many more . send for brochure 1 

DISK DIRECTORY INDEX PROGRAM (Model m only) 

• Maintain a master directory listing and file all diskettes 

• Index size limited only by diskette space available 
and number of diskettes on which the index will be 

maintained. 

• Summary by file name, diskette, or extension. 

Direct/BAS $14.95 

Direct/CMD $24.95 (enhanced, more powerful, faster) 



Send check or money order (Kansas residents 
add 3% sales tax) to: Twenty-First Century Software 
1607 North Cochran Hutchinson, Kansas 67501 
Call 316 663-1047 for additional information. 




Registered trademarks or products ot 'Tandy Corp 'Appa'at 
•Small Systems Software. 'Big Five Software Company 
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GENERAL 



Why most compilers fail and what can be done about it. 



A Macroprocessor for 
Basic— Part III 



J. Alan Olmstead 

J. Olmstead Financial Engineering Systems 

3843 West St., Moritz Lane 

Phoenix, AZ 85023 



Computer optimizatiqn efforts cannot 
stop at producing Basic programs fast- 
er and with less programming manpower. 
Programming time may in fact be the least 
expensive portion of computer operations. 
Programming is a capital investment rather 
than an operating expense— the dollar 
value representing programming time is 
spent only once; modifications and exten- 
sions to the original program are merely 
add-ons to that original effort. But the pro- 
gram is run continuously; any inefficiencies 
built into it, or built into the computer or pro 
gramming language used, are expenses in- 
curred repeatedly for the program's life. 

Basic is the easiest high-level language 
to learn and to use ever designed. But it ex- 
acts a high price for that convenience every 
time a Basic program runs. 

Basic Inefficiencies 

The first thing to remember about Basic 
is that it doesn't exist. Basic is a syntactical 
concept that is applied in as many differ- 
ent ways as the various writers of Basic 
interpreter programs. Whether fixed in ROM 
or loaded from disk, the Basic interpreter 
runs the computer, never the Basic pro- 
gram. Accordingly, one must always think 
and speak in terms of a particular inter- 
preter. Several of the most common con- 
temporary interpreters include the North- 
star Horizon, IBM's late 5100 series, and 
Microsoft's TRS-80 Model I Basic, licensed 
to Radio Shack. 

Every interpreter has its own character- 
istics and bugs, but all share underlying 
similarities. Individual characteristics do 
not promote an understanding of the prob- 
lems involved in optimizing a computer pro- 
grammed in Basic. 

Basic programs are not really programs 

142 • 80 Microcomputing, September 1981 



at all, but rather, data files. A real computer 
program takes control of the computer's 
registers and is responsible for their suc- 
cessful manipulation. Basic programs have 
no way to take that control, which is re- 
stricted to interpreters, assemblers and 
compilers. 

The Interpreter 

A Basic program, considered as a data 
file, is a variable-length, record-sequential, 
memory-resident data file. In any sequential 
file, the first record is read first, the second 
is read second, and so on. The first line in a 
Basic program is always the start of the pro- 
gram, whereas an Assembly language pro- 
gram can begin execution at any chosen ad- 
dress. 

In addition to the Basic command line, 
there must be next-line pointers to help 
distinguish between the logical and the 
physical next line. Table 1 illustrates the dif- 
ference between the logical next line versus 
the physical next line pointers. 

In Method 1, subfield a is the line number 
of the Basic command line, compressed in- 
to machine code and composing two hexa- 
decimal bytes of memory. Subfield b is the 
Basic command line proper, with the Basic 
command words compressed into single- 
byte codes between decimal 128-255 for 
space economy. Subfield c is the end-of- 
record mark. Subfield d is the next-record- 
location pointer. 

In Method 2, subfield a is the line number, 
but subfield b is the length of the current 
Basic command line. It is shown here as 
two bytes, but is frequently restricted to one 
byte and, therefore, a maximum line length 
of 255 characters. Fields c and d are the 
same as in Method 1. 

When the program is first loaded into 
memory, the lines are usually physically 
and logically sequential from low memory 
to high memory. But, if a line should be edit- 
ed and accordingly made shorter or longer, 
it may no longer fit. If a new line is inserted, 
it definitely will not fit— interpreters do not 
shift the rest of the program upwards to 
make room. Instead, they append the new 
line onto the end of the program and adjust 
the next-record pointers of the previous 



and next lines to reflect the change. In 
some Basics, a periodic recompression of 
memory may take place. In others, when the 
end of memory is reached the interpreter 
flashes an ?OM error message. However, 
after saving and reloading the program, pro- 
gramming may continue for many more 
new lines. 

After editing, the physical lines are no 
longer logically sequential. In some Basics, 
the lines may not be physically reordered 
even after saving the program, unless the 
ASCII mode is requested, but many sys- 
tems do not offer the ASCII option. The pro- 
gram remains a mixed-up hodge-podge to 
be sorted by the interpreter. 

The physical and logical sequence is the 
same at load time for most lines; those con- 
taining GOTO, GOSUB, Then, Else, Resume 
and Return are exceptions, however. When 
the interpreter encounters these com- 
mands, it must abandon the next-record 
pointers and use some other method of 
locating the logical next record. Two meth- 
ods used to accomplish this are the sequen- 
tial and the "tree-structured" search for the 
named line number. 

The sequential search is the most unbe- 
lievable because it causes the interpreter 
program to begin at the physical beginning 
of the program and search in physical rec- 
ord sequence until the named record is 
found. Then program execution begins 
again. Even at high speeds, this method im- 
poses such a large time penalty on the user 
that he is forced to revert to bad program- 
ming practices for economy. 

The use of independent subroutines 
called by GOSUB commands saves much 
valuable space and programming time dur- 
ing program debugging. Since the average 
commercial applications program will con- 
tain between 30-90 such subroutines, the 
sequential subroutine search procedure 
can reduce program execution speed by 75 
percent. 

Incredible as it may seem, the TRS-80 
Model I disk drives, with a transfer rate of 
only 12,500 bytes per second, are faster 
than main memory, which is measured in 
microseconds. This is true only under the 
Basic interpreter, and particularly during 



"Basic is the easiest high-level 
language to learn and to use ever designed." 



execution of programs containing large 
numbers of subroutines. 

A "tree-structured" search for the first 
line of a subroutine is somewhat faster, but 
not enough to make the point inapplicable. 
For example, if the largest magnitude of 
line number was 9999, a table of addresses 
of the even-thousand line numbers would 
take only 20 bytes. If each of those line 
pointers in turn pointed to a table of ad- 
dresses of the even one-hundred line num- 
bers, the total size of the table would still be 
only 220 bytes, but the interpreter would 
always be within an average of five lines of 
the desired line number (assuming a line 
number increment of ten) after two table 
look-ups. The tree-structured search tech- 
nique is vastly superior to the straight se- 
quential search, but it is not fast enough to 
make a significant difference when at- 
tempting to optimize the computer's perfor- 
mance overall. 

These two illustrations identify signifi- 
cant sources of inefficiency in Basic pro- 
grams. The need for record management in- 
duces an inefficiency that accumulates 
during program execution. Since subrou- 
tines are executed repeatedly, the next- 
record lookup inefficiency tends to accu- 
mulate in geometric magnitudes. 

A compiler locates a source language 
record and generates from it the machine 
executable code. If the resulting program 
passes through a given line any number of 
times, the line is merely executed; compila- 
tion is performed only once. The interpreter 
is made up of two general groups of subrou- 
tines: the "parsing" logic and the execution 
logic. The term parsing refers to the struc- 
tural analysis of a series of symbols that 
collectively convey a complex concept. The 
Basic parser breaks the command line 
down to determine which of its precoded 
subroutines should be executed in what 
order. This process is quite time consum- 
ing; each line must be reparsed every time it 
is executed. 

Not only math applications suffer these 
inefficiencies; they are quite common in 
any byte-manipulating applications, such 
as word processing. 

How Data Is Stored 

An Assembly language programmer 
usually maps out a section of memory for 
data. During program execution, the data 
remains in that location. Most Basic inter- 
preters follow this pattern. Both explicit and 
implicit dimensioning cause a section of 
memory to be mapped out. For this reason, 
an implicitly dimensioned variable cannot 
be dimensioned again to a longer length. 

When a Basic program names data, it 
does so by assigning an ASCII name, such 



as A$ or A. When the data name is encoun- 
tered in the Basic program, the interpreter 
consults a data name table for a match and 
inserts new names if none is found. Along 
with the name, the interpreter stores the 
length of the data and the location in mem- 
ory where storage space has been found. If 
the data name is merely being DIMen- 
sioned, all the data-name table information 
is set up except the data address, because 
there is no data to address until an assign- 
ment (A$ = "DATA") is made. 

Numeric data is handled differently; for 
integer data, for example, the address entry 
in the table is the same number of bytes as 
would be needed to store the data itself. 
The functions are interchanged and the ad- 
dress portion of the table is initialized to 

"The need for record 

management induces an 

inefficiency that 

accumulates during 

program execution." 

zeros, which means that the data name is 
equal to the number zero. When a value is 
assigned ("A = 23"), the address portion of 
the table is changed to reflect the value, not 
an address. When a string data assignment 
is made, memory space is found, the data is 
stored, and the address bytes are updated 
to reflect the address of the data. 

A particularly good design job is 
reflected in Microsoft's use of the space 
taken up by the data literal as the same 
space for the data. Thus, the only result of 
the command A$ = "DATA" is that the table 
entry of A$ is updated to reflect the location 
of the D in DATA. The method is highly effi- 
cient for small memory-sized computers. 

Time-dependent functions if possible at 
all are possible only by rigging the TRS-80 
with cute tricks to get by. 

Typists must constantly watch the 
screen to ascertain that their keystrokes 
are not being ignored by the interpreter's ar- 
bitrary decision to value space over time. If 
control is ever returned to the interpreter, 
the communications service routine will 
usually not get it back in time to service the 
I/O port. 

The TRS-80 Model I computer has out- 
grown the Basic interpreter. 

Today nearly every conceivable peripher- 
al device is being interfaced to the world's 
most successful computer. In most cases, 
however, special Assembly language soft- 
ware must be acquired to access the pe- 
ripheral through the USR function. 



If the trend away from Basic (while pre- 
tending to be programming in Basic) con- 
tinues, sooner or later someone must ask, 
why bother with it at all? There is one very 
good reason: For commercial and business- 
oriented applications, it is a great language 
to use, delivering cost-per-line economy not 
possible with any other language. To im- 
prove the power of Basic while remaining as 
simple as Basic, we need a Basic compiler: 
a program that will accept Basic— even in- 
terpreter Basic— as a source, and create a 
pure Assembly language program from it. 

Why Basic Compilers Fail 

Even a working Basic compiler fails if it 
restricts the programmer's capabilities to 
those functions that are possible only in 
Basic. There are specific reasons for com- 
piler failure when their functions are re- 
stricted to translation of Basic. All the char- 
acteristics of Basic which we have identi- 
fied as inefficient derived because a Basic 
program is a data file rather than a real pro- 
gram; and that fact continues to dominate 
any version of Basic interpreter. To the ex- 
tent that a compiler attempts to emulate an 
interpreter, the chances of successful 
operation of the compiled output are so 
slim as to warrant the prediction that the 
compiler must, inevitably, fail. 

What is meant by the idea of emulating a 
compiler, versus being a real compiler? Out- 
put from a compiler is a computer program 
in every sense; it takes control of the com- 
puter's registers, and the responsibility for 
their successful manipulation. The regis- 
ters may contain only valid memory ad- 
dresses, modifiers of memory addresses, 
and one or two bytes of data currently being 
manipulated. 

When an Assembly language program 
says "GOTO 1000," it abruptly alters the 
contents of the program counter, which is 
the register pointing to the address of 
the next operation command to be execut- 
ed. When the program says 'A$ = "DATA" ', 
it is identifying the left-most byte addresses 
of the sending and receiving fields in prep- 
aration for an extended move. These are 
precise commands, meaning exactly cor- 
rect, every time. 

That a compiler works at all has always 
been a small miracle. The reason the Basic 
interpreter is able to accomplish program 
execution tasks from such general pro- 
gramming statements is that it enjoys the 
advantage of having both program instruc- 
tion and user's data at the same time. If pro- 
gram instruction is not precise, the data 
can be examined to fill in the gaps. By con- 
trast, compilers never have the user's data 
to provide clarity. Given the precision of the 
Assembly language program, detailed to 
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HOW LOW 

Can we Go?l 

8 Premium 
16K Dynamic rams: 

$19.95! 

These top quality, high speed, low power 
RAMs expand memory in TRS-80* l/ll/lll 
and Color Computers, Heath H89, Apple, 
newer PETs, etc. Backed by one year limited 
warranty. Add $3 for two dip shunts and 
conversion instructions for TRS-80* I. 

Why pay more. . .we stock the right parts 
at the right price. 



14151 582-0636.24 



(ompuPro 

BOX 2355, OAKLANO AIRPORT, CA 94614 



W5 



COMPILER 
WORKSTATION 

TRS-80 Model I and III 



Your BASIC program development 
could go faster. . . 

EDIT: Full-Screen BASIC editor with floating cursor and auto- 
repeat More than 30 commands and functions let you var- 
iously fih'd. change, insert, delete replace, replicate, copy, 
move or position BASIC text at the character, string, line or 
block level Developed in Britain by Southern Software Modi 
ill $40 00+ 1 50 shipping 

PACKER: (Cottage Software! Editing tool will unpack, shorten, 
-epack. renumber all or part of your BASIC text The UNPACK 
segment is very useful when preparing BASIC source pro- 
grams tor compilation by ACCEL2 Mod I. Ill $29 95+ 1.00 
shipping 

Then your BASIC program 
could go faster... 

ACCEL2: Compiler tor TRS-80 Mod I. Mod III Disk BASIC New 
functional improvements in place to give more easeot-use. 
juicker compilation of large programs better chaining of com- 
piled and non-compiled programs Size read-out helps you 
monitor code growth during compilation REM N0ARRAY option 
lets you use variable-bound arrays Professionals note Com- 
prehensive instructions show how to organize your compiled 
programs for resale on tape, ES/F wafer or disk No royalties! 

^Developed in Britain by Southern Software Specify Mod I or III 

5688 95 + $2 00 shipping 

TSAVE: Writes compiler output to independent SYSTEM tape 
$9 95 + $1 00 shipping 

EXEC: Command-List Processor tor TRS-80 Mod I Prepare 
execute, pass as many as nine parameters to lists of TRSD0S 
or NEWD0S commands and/or BASIC statements. Simplifies 
repetitive procedures such as power-up sequences, file set- 
ups, etc Compatible with ACCEL2 compiler disk output 
Developed in Britain by Southern Software $22 00 + $1 00 
shipping it 

m ^ 79 

U Allen Gelder Software 

M/C.VISA ■& Box 11721 Main Post Office 
CA add 6% t\ San Francisco, CA 94101 

jfe*i (415) 387-3131 



TRS-80, TRSD0S tm Radio Shack ES/F tm Exatron 



"In the context of compilers, 
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the last bit of the last byte, the chance of 
failure is a statistical certainty if the com- 
piler attempts to treat the Basic program in 
the same manner as did the interpreter. 

The Basic interpreter language available 
to the programmer contains no command 
words or symbols for conveying more pre- 
cise information. The compiler can do only 
two things: It can optimize its code, or it can 
simply take a stab and hope everything 
comes out all right. 

In the context of compilers, optimized 
code is a term meaning the opposite of 
what it says. The optimizing compiler 
throws in everything it can get hold of in 
order to be prepared for the coming on- 
slaught of user's data. It is not unusual for a 
compiler manual to state minimum equip- 
ment configuration requirements of at least 
128K. 

Some of this kind of optimization is in- 
evitable in all compilers (the Jofes Meta- 
Basic Compiler also has its share of it). As 
long as the programmer's source code re- 
mains insufficiently precise, the only alter- 
native is to include partial coding and hope 
it will be adequate. 

Two examples of this include numeric 
and string data. With an interpreter, you can 
define two integers, then divide them, and 
still end up with an integer result. The inter- 
preter does not tell the programmer that it 
sneaked in an intermediate stage of single 
or double-precision format in order to com- 
plete the division stage of the computation 
successfully. After compilation, the pro- 
gram fails. 

It fails because the compiler emulates 
the interpreter on the assumption that the 
evaluation of the arguments would take 
place when the data was presented. The 
compiler did not maintain a table of data 
types and consult that table for error- 
checking when the division command was 
encountered. As a result, the wrong code 
was included in the compiled output. 

With string data, the Basic interpreter 
program could perform input and output op- 
erations to and from data arrays at will. 
After compilation, the results are "unspe- 
cified," meaning, "Gee, guys, we don't 
know what it's going to do!" When the Print 
or LPRINT command is encountered by the 
compiler, it calls the wrong kind of code, to 
handle the transfer of array data instead of 
string data. 

These problems are not insurmountable, 
but it is unlikely that the many ways to cor- 
rect the problem will be contained in a 
single compiler program within a 48K user 
system, nor will they be discovered without 
extensive field testing. 

How could a redesign of compilers pro- 
ceed? The first step is to recognize the in- 



herent limitations of any compiler and not 
try to be all things to all people. More space 
in the compiler should be spent performing 
diagnostic analysis and using listing notes 
to indicate where potential problems may 
be shaping up. This space can be created 
by breaking the compiler up into several 
programs, each segment handling analysis 
of the same kind, then automatically chain- 
ing to the next segment without operator in- 
tervention. 

The second step should deal with the 
problem of lack of precision by giving the 
programmer the necessary tools by modify- 
ing the Basic language itself. A small exam- 
ple would be initializing the number of 
decimal points in precision variables: "A 
DEFBCD 3(10,10)" means "define a numeric 
variable called "A" in binary coded decimal 
format, but initialize it with three decimal 
positions; and make it an array of 10 vertical 
and 10 horizontal elements." 

MetaBasic 

A more precise (and vastly more flexible) 
Basic is what the Jofes compiler calls Meta- 
Basic. It is an intermediary into Assembly 
language, a half-way house for program- 
mers. 

First, it may be used in the original pro- 
gram instead of conventional Basic. Some 
of the commands are the same (GOTO, GO- 
SUB), some are similar (Open, Close) and 
some are completely different. For example, 
the MetaBasic command 'FLOOD A$ WITH 
255 " " is immediately obvious as an alter- 
native to 'A$ = STRING$(255," ")'. 

Second, in programs that already exist 
for which manual rewriting would be a 
labor-intensive task, the MetaBasic Pre- 
compiler converts interpreter Basic into 
MetaBasic automatically. In the process, it 
shows the default conditions it added as ex- 
press arguments. By reading the printed 
listing, which corresponds on a line-num- 
ber-tag basis to the original, the program- 
mer can see immediately where the com- 
piler may have gone wrong in its interpre- 
tation of the intended result. 

Finally, for the growing body of program- 
mers who use Basic for its economy and 
not because it is their only language, Meta- 
Basic will accept the full line of machine 
language commands. 

Compilers fail because they try to do too 
much and end up delivering too little. 
Perhaps it would be more accurate to say 
that they fail because they try to do too 
much of the wrong kind of functions. By 
changing priorities on what a compiler 
should be expected to do, a Basic compiler 
can in fact deliver far more than was 
previously anticipated. ■ 

Next month: more on MetaBasic. 
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TRS-80® SOFTWARE TRS " 80 ® 



MODEL III SOFTWARE 

26-1563 Scripsit I & III $79.00 

26-1566 Visicalc I S83.00 

26-1567 Visicalc III $83.00 

26-1552 General Ledger $90.00 

26-1553 Inventory Ctl $90.00 

26-1556 Payroll $180.00 

26-1555 Accts. Receivable. . . . $135.00 

26-1554 Accts. Payable $135.00 

26-1558 Bus. Mail List $90.00 

26-2201 Fortran I $90.00 

26-1562 Profile $72.00 

Plus many more 

COLOR SOFTWARE 

26-3050 Chess $36.00 

26-3051 Quaser $36.00 

26-3052 Pinball $27.00 

26-3053 Football $36.00 

26-3055 Checkers $27.00 

26-3057 Dino Wars $36.00 

26-3059 Backgammon -. ... $27.00 

26-3152 Typing Tutor $27.00 




MODEL II SOFTWARE 

26-4530 Scripsit II $265.00 

26-451 1 Visicalc II $265.00 

26-4512 Profile II $162.00 

26-4501 General Ledger $180.00 

26-4502 Inventory Mgmt $180.00 

26-4503 Payroll $360.00 

26-4504 Accts Receivable $270.00 

26-4505 Accts Payable $270.00 

26-4507 Mail List II $108.00 

26-4701 Fortran $270.00 

26-4703 Cobol $270.00 

Plus many more 

POCKET SOFTWARE 

26-3510 Real Estate $22.50 

26-351 1 Civil Eng $22.50 

26-351 3 Aviation $22.50 

26-3516 Bus. Statistics $18.00 

26-3517 Bus. Financial $18.00 

26-3518 Per. Financial $18.00 

26-3514 Math Drill , $13.50 

26-3515 Games ^$13.50 



ORDER TOLL free 1-800-84 1-0860 

CALL US - SAVE MONEY 

We carry the full line of TRS-80 Computers. All TRS-80 software, 
furniture, and accessories sold at discount. We stock most items to 
assure you fast delivery and save you money. 

WRITE FOR FREE CATALOG 



MICRO KlflftttiEEiriEMT SVSTEM5, IMC.'" 



No Taxes on Out Of 
State Shipments 



Immediate Shipment 
From Stock on Most Items 



DOWNTOWN PLAZA SHOPPING CENTER 

DEPT. # 4A 
115 C. SECOND AVE. S.W. 

CAIRO. GEORGIA 31728 

(912) 377-7120 Ga. Phone No. 

TRS-80 l« registered trademark or the Tandy Corp. 



Thousands of 
Satisfied Customers 



VISA And 
Mastercharge Welcomed 



,-Sm List ot Advertisers on page 354 
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For Your TRS-80* 

Mod I & III 
Mod I -$125.00 

®1980 by David Welsh 

Mod III -$175.00 

c 1981 by David Welsh 

There Is Nothing 
Even Close® 

The word processing system that is 
easy for the novices but has the power 
for professionals. 

Most used comment when anybody talks about Lazy Writer is "Easy to Use". 
Other Comments: 

• "What has moved the Mod I up to at least a triple-A league if not the true big leagues of writina 
is a modest priced word processor called Lazy Writer." 

• "All functions of Lazy Writer are well covered in its documentation, which ranks amona the best 
I've seen." 

Creative Computing, July 1981 

• "Now that I have a chance to use and compare Lazy Writer with my other two popular word 
processing programs, I am sorry that I was not aware of Lazy Writer some time ago." 

_____ C.H., St. Louis, MO 



For those of you who requested 

a spelling checker to use with Lazy Writer® 

Now available from 

CSCm SOFT SECTOR MARKETING, 
— Ml INCORPORATED .,„ 

MICRO PROOF 

Product of Cornucopia Software 

• EASY TO USE 

• 50,000 WORD VOCABULARY & EXPANDABLE 

• RECOGNIZES PREFIXES & SUFFIXES 

• REQUIRES ONLY 32K OF MEMORY & DISK 

. AFFORDABLE & AVAILABLE IN THREE FORMS: fully independent program to identify errors' 
independent program to identify and correct errors; or with a conversion proaram that 
will permit MICRO PROOF to operate from within. 



New Lower Price! Was Now Only 

TRS-MOD I or III Version $125.00 $89.00 

Correcting Feature $60.00 
Word Processing Corv 

version for Lazy Writer* $35.00 



Let MICRO PROOF 

Find Your Errors 

Before Someone Else Does! 



c x > 

MasterCard 



CO. D. - certified check MO. or cash only. Most orders shipped next day. All orders must have shipping included 
Please add 2% or S2.50. whichever is higher for shipping. Michigan residents, please add4% tax. Add extra $1 50 
tor C.O.D. Personal checks take 3 weeks to clear. All hardware must be prepaid. No hardware shipped collect 
Out of the country orders add $10.00 extra shipping, 

•Tf?S80 is a product of Radio Shack, division of the Tandy Corporation 



VISA 
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ALIEN DEFENSE 




By Larry Ashmun 



MOD III! with Sound 

ITS HERE! 

"If s more than just another 
machine language arcade 
game. 7 ' 

IT'S AN EXPERIENCE 

Super Fast 
1 or 2 Player 

MOD III ONLY 

Tape version $19.95 

Disk Version Coming Soon 




SEE OUR EXPANDED AD 

IN 80 US JOURNAL 

for more product information. 




Larry Ashmun Is Back . . . 
and Brings You . . . 

SUPER VADERS 

With Souna - Mod I & Mod III 
6 1981 Soft Seotof Marketing, inc 

The third in the evolution of the 
most popular space invaders games 
for Tandy machines. Now for 1 or 2 
players, 10 levels of play. 



Cassette (goes to disk) 



$19.95 



Ask for upgrade information for TRS-Super 
Invaders or invaders-Plus. 



MOD III ROM 
COMMENTED 

'1981 Soft Sector Marketing inc 

Only $22.50 
+$2.50 Shipping & Handling 

Not just a rehash of old information. 
Put detailed comments on the ROMS 
in the latest machine from Tandy. 

Now in its 3rd printing! 
Over 150 Pages! 



TAPE COPY 2 

D 1981 Soft Sector Marketing inc 

This program will load most any TRS-80 
500 Baud system tape (standard) Mod I 
speed) and load it into memory and save 
it at either 500 or 1 500 Baud on the Mod Hi 
NO KNOWLEDGE OF MACHINE LANGUAGE 
NEEDED Now it gives you a way to back 
up a machine language program that 
loads at the tower speed and makes 
cassette loading into your new Mod III a 
much faster ana more reliable process. 
Works with Mod l* & Mod ill. 



Only 



$14.95 



MASTER CONTROL 

For the Color Machine 

1981 Soft Sector Marketing, Inc. 
Requires 16K 



iBIUOBflBHRlH 

■ a a a aaaaaaacoc 
iliiiBBiaBiaii 

■BBBDDDDIH HO 



jt our other Color Machine programs! 




FEATURES: 

1. 50 preprogrammed command keys, standard and 

extended commands. 

2. Direct control of motor, trace, and audio. 

3. Relocatable machine code. 

4. Automatic line numbering, starting point and incre- 
ment alterable. 

5. Programmable custom key. 

6. Direct Run button. 

7. Keyboard overlay for easy program use. 

8. Easy entry of entire commands into the computer and 
display. 

9. Full instruction manual. 

Cassette $24.95 



Outside Michigan 
Order Line Only 

800-521-6504 



SOFT SECTOR MARKETING, 

INCORPORATED 

6250 MiddJebelt 
Garden City, Michigan 48135 



Questions & 
Michigan Orders 

313-425-4020 



TUTORIAL 



Which one is best for you? 



All About Sorts-Part II 



Len Gorney 

Box 91 R.D. 5 

Clarks Summit, PA 18411 



The Shell sort technique was initially 
developed by Shell and later expanded 
by R.M. Frank and R.B. Lazarus (see 
bibliography). This is an interchange sort- 
ing technique where several passes 
through the original list of items reduces it 
to a more nearly sorted list. The final pass 
usually reverts to that of a bubble sort, 
since it is the bubble sort which can most 
quickly handle nearly sorted items. 

A particularly vexing problem connected 
with the Shell sort involves the parameter 
which determines the distance (D) between 
items to bd compared. In our previous sort- 
ing examples, we always compared adja- 
cent items or a single item with every other 
item in the list. 

The Shell sort, on the other hand, choos- 
es some distance (D) between items, and 
these two items are then compared. To 
avoid becoming involved with the mathe- 
matics, we will simply calculate the initial 
value of the distance parameter as being 
equal to one-half the number of items to be 
sorted; that is, D = N/2. (Lorin offers a read- 
able examination of the Shell sort, as well 
as a method for calculating the distance pa- 
rameter.) 

To accurately determine the maximum, 
average and minimum number of compari- 
sons and exchanges involved in a Shell 
sort, a lot of information must be available 
regarding the distance parameter value. It 
is this single parameter which determines 
the overall effectiveness of the Shell sort. 

Program Listing 1 and Table 1 are the pro- 
grammed routine and sample outputs for 
our Shell sort routine. Tracing the items as 
they are sorted may clear any misconcep- 
tions regarding the actual operation of this 
technique. 

Quick Sort 

One reason for the slowness of the bub- 
ble sort is the many comparisons and ex- 
changes made between adjacent items. To 

148 • 80 Microcomputing, September 1981 



speed up the sorting process, the distance 
between compared items should be in- 
creased to a value whereby comparisons 
and exchanges are made between items 
some distance apart. The quick sort proce- 
dure uses this technique to offer a speedier 
sorting algorithm. The distance parameter 
(D) is also used by the Shell sort. 

The quick sort routine begins with a sim- 
ple operation and proceeds by using stacks 
to sort the items. Let us begin with the se- 
lection of what is referred to as the pivot val- 
ue of the quick sort sorting technique. 

The quick sort routine initially estimates 
the median value of the items to be sorted. 
Based on the median value, the list is bro- 
ken into two groups; one group contains 
those keys which are less than the median 
value while the other group consists of 
those keys which are greater than the me- 
dian value. The median value is placed be- 
tween two groups. 

For example, the following list is initially 
broken into two groups by taking the first 
key value as the median of the keys con- 
tained in the list. This list— 5 2 7 8 13 7— 
will be used as our list of items to be sorted. 
The assumed median value will be the value 
given as the first key in the list, the value 
five. The original list is now broken into two 
groups: the left group containing keys less 
than the assumed median; and the right 
group consisting of keys greater than the 
median, 2 1 3 and 7 8 7. 

Inserting the assumed median value be- 
tween the two groups gives us the following 
list: 2 13 5 7 8 7. Each group is now sorted 
separately by the quick sort technique. 

The method used by the quick sort to 
make a choice of a median value runs the 
gamut from a random number generator, 
calculating the actual median value of the 
keys, estimating the median of the list, or 
simply choosing the first (or any) key as the 
assumed median value of the keys. We will 
employ this last method as it is the sim- 
plest. 

After a median or pivot value is chosen, 
the remaining keys are broken into two 
groups. Keys less than the pivot are placed 
in locations beainnino with thp first lora. 



tion of this list, while keys greater than the 
median are placed in locations beginning 
with the Nth location. At the end of this ini- 
tial distribution phase, the last remaining 
position is the location for the chosen pivot 
value. The pivot value chosen determines 
the subsequent efficiency of the algorithm. 
If the worst case is chosen (the smallest or 
the largest key in the list), the sizes of the 
two groups would be equal to zero and 
N - 1. If the pivot value is. in fact, the actual 
median value of the keys in the list, the two 



ORIGINAL ITEMS 
PASS #1 ITEMS 
PASS #2 ITEMS 
PASS #3 ITEMS 
PASS #4 ITEMS 
PASS #5 ITEMS 
PASS #6 ITEMS 
PASS #7 ITEMS 
PASS #8 ITEMS 
PASS #9 ITEMS 
PASS #10 ITEMS 
PASS #11 ITEMS 
PASS #12 ITEMS 
PASS #13 ITEMS 
PASS #14 ITEMS 
PASS #15 ITEMS 
PASS #16 ITEMS 
PASS #17 ITEMS 
PASS #18 ITEMS 
PASS #19 ITEMS 
PASS #20 ITEMS 
PASS #21 ITEMS 
PASS #22 ITEMS 
SORTED ITEMS 
COMPARISONS = 



8 

5 

5 

5 

5 

b 

2 

2 

' 

I 

1 2 

1 2 

1 

1 

1 

1 

1 

1 

1 

I 

I 

1 

1 

1 



4 3 5 

4 3 8 

4 3 8 

4 3 8 

4 3 8 

4 1 8 

4 1 8 

4 1 8 

5 8 

5 8 

5 8 

5 8 

5 a 

5 
5 
5 
5 
5 
4 

4 
4 



3 4 



3 4 5 6 
3 4 5 6 



9 
9 

9 

9 

B B 

a a 

B 9 



29 EXCHANGES = 13 



Table 1. Shell Sort Sample Output 



ORIGINAL ITEMS 
PASS #1 ITEMS 
PASS #2 ITEMS 
PASS #3 ITEMS 
PASS #4 ITEMS 
PASS #5 ITEMS 
PASS #6 ITEMS 
SORTED ITEMS 



8 

8 

1 

1 

1 

G 1 

1 

1 



6 1 
6 1 
B 9 
B 9 
8 9 
B B 
B 8 
B B 



COMPARISONS = 33 EXCHANGES = 12 

Table 2. Quick Sort Sample Output 



"When the size of the items becomes prohibitively large. . . 

rather than physically move the entire item to a sorted list, 

the linked list sorts provide pointers to the sorted keys of the items. " 



groups will be equal in size. Our choice 
should cause the size of the groups to fall 
somewhere between these two extremes. 

After completing the initial distribution 
phase, a stack structure saves (pushes) a 
group of keys as subsequent sorting phas- 
es are processed. Eventually these stacked 
groups are unstacked (POPped) and pro- 
cessed accordingly. When the stack is final- 



ly emptied of all the keys, the list is in its 
final (sorted) condition. 

Program Listing 2 is the programmed 
routine which accomplishes the quick sort; 
Table 2 represents sample output as the 
process sorts the items. 

Linked List Sorts 

Our previous sorting techniques arranged 



1000 


DIM A(10) 


1010 


N = 10 


1020 


FOR X = 1 TO 4 


1030 


CLS: 




PRINT-ORIGINAL ITEMS "; 


1040 


FOR K = 1 TO N 


1050 


READ A(K) : 




PRINT A(K); 


1060 


NEXT K 


1070 


GOSUB 1170 


1080 


C = 0: 




E - 0: 




GOSUB 1180 


1090 


PRINT: 




PRINT-SORTED ITEMS "} 


1100 


FOR K = 1 TO N 


1110 


PRINT A(K) ; 


1120 


NEXT K 


1138 


PRINT: 




PRINT-COMPARISONS =" ;C; "EXCHANGES ="jE: 




GOSUB 1170 


1140 


NEXT X 


1150 


END 


1160 


DATA 0, 1, 2, 3, 4, 5, 6, 7, 8, 9: 




DATA 9, 8, 7, 6, 5, 4, 3, 2, 1, 0: 




DATA 8, 0, 9, 4, 3, 5, 7, 2, 6, 1: 




DATA -7, 3, -9, -7, 0, 6, 6, 4, 5, -1 


1170 


FOR T ■ 1 TO 1000: 




NEXT T: 




RETURN 


1180 


• 




SHELLSORT. 


1190 


i 




DISTANCE PARAMETER (D) DETERMINATION. 


1200 


D = INT ( N / 2 ) : 




pp = 


1210 


FOR P = 1 TO N-D 


1220 


■ 




COMPARE THE J(TH) ITEM AGAINST THE ITEM D DISTANCE AWAY. 


1230 


J = P: 




EE - 


1240 


C >= C + 1: 




IF A(J) <= A(J+D) THEN 1290 


1200 


D = INT ( N / 2 ) : 




PP = 


1210 


FOR P = 1 TO N-D 


1220 


• 




COMPARE THE J(TH) ITEM AGAINST THE ITEM D DISTANCE AWAY. 


1230 


J = P: 




EE = 


1240 


C = C + 1: 




IF A(J) <= A(J+D) THEN 1290 


1250 


■ 




EXCHANGE ITEMS. 


1260 


T = A(J): 




A(J) = A(J+D) : 




A(J+D) = T: 




J = J - D: 




E = E + 1: 




EE = E 


1270 


• 




LOOP BACK TO COMPARE AS LONG AS POINTER J IS VALID. 


1280 


IF J > THEN 1240 


1290 


■ 




TAKE SNAPSHOTS. 


1300 


PP = PP + 1: 




PRINT: 




PRINT-PASS l";PP; "ITEMS " ; 


1310 


FOR KK = 1 TO N 


1320 


PRINT A(KK) ; 


1330 


NEXT KK 


1340 


GOSUB 1170 


1350 


NEXT P 


1360 


D = INT ( D / 2 ) : 




IF EE = THEN 1380 


1370 


IF D > THEN 1210 


1380 


RETURN 


1390 


END 




Listing 1. Shell Sort Routine 



the items in the list by using simple keys 
and moving the entire item. In the ex- 
amples, the items consisted solely of the 
key. This simple assumption cannot always 
be made, however. For example, the usual 
key in a mailing label sort is often the zip 
code: the keys (zip codes) are compared and 
the entire item (name, address, city, state 
and zip code) must be moved into its proper 
location in the sorted list. Obviously, mov- 
ing this much data takes quite a bit of time. 

When large items must be moved, anoth- 
er efficiency measure is the time required 
not only to sort the items but also to move 
them. When the size of the items becomes 
prohibitively large, a more efficient sorting 
technique is usually required to save time. 

Rather than physically move the entire 
item to a sorted list, the linked list sorts pro- 
vide pointers to the sorted keys of the 
items. To produce a sorted output list, the 
programmed routine (usually the mainline 
program) simply uses an array which con- 
tains pointers to the keys of interest. These 
pointers are sorted so they point to the re- 
spective keys of the items. 



Bayesian 

Investment 

Services 

Send for free catalog 
discussing TRS-80 
programs available for 
evaluating: 

Options & Futures 

Stocks & Bonds 

Convertible 

& Other Hedges 

Portfolio Position 

Tax Positions 

Market Timing 

Write or call: 
Bayesian ,.m 
Investment 
Services 

Dept. H3 

757 Santa Rosita 

Solana Beach, CA 92075 

(714)755-6225 



y'See List of Advertisers on page 354 
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"How do we get from the initial condition of the pointer 

array to its final condition? The answer 

involves a bit of magic as well as a good deal of coding. " 



ust ol items to be sorted 


9 


-7 


3 





-7 




Pointer array 


1 


2 


3 


4 


5 



Fig. 1. Linked List Sort Item List 



List of items to be sorted 


9 


-7 


3 





7 




Pointer array 


2 


5 


. 4 


3 


1 



Fig. 2. Linked List Sort Final Array 

Assume that Fig. 1 represents the list of 
items we wish to sort and the array which 
holds the pointers to this list of items. (We 
will use a short list of items and short item 
length to demonstate the mechanics of a 
linked list sort.) The original list of items will 
remain in the same order throughout the 
sorting process. The array which holds the 
pointers will change from its initial condi- 
tion to its final (sorted) condition during the 



sort. The values contained in the pointer ar- 
ray represent the subscript into the list of 
items to be sorted. 

In its initial condition, the pointer array 
assumes that the list of items to be sorted 
is in sorted order. In other words, P(1) = 1, 
which means that the value associated with 
P(1) points to the subscript which is the 
smallest item in the list: If P(1) = 1, then 
A(P(1))-9. The second yalue in the pointer 
array, P(2) = 2, points to the next smallest 
item in the list to be sorted; that is, 
A(P(2)) = - 7. The values in the pointer array 
do not represent a sorted arrangement of 
items to be sorted. The initial condition of 
the pointer array simply assumes that the 
list of items to be sorted is sorted. 

Fig. 2 represents the final condition of 
the pointer array and list of items to be 
sorted. Using the pointer array value as the 
subscript value into the array of items to be 
sorted, we may make the following judge 
ment: 



A(P(1)) = A<2) = -7 

A(P(2)) -- A(5) - 7 

A(P(3))=A(4)= 

A(P(4» = A(3) = 3 

A(P(5)) = A(1)= 9 



How do we get from the initial condition 
of the pointer array to its final condition? 
The answer involves a bit of magic as well 
as a good deal of coding. 

Our primary examination of linked list 
sorts will revolve about two techniques. The 
first uses the technique just described, 
while the second uses a somewhat differ- 
ent approach. 

Vector Sort 

The first linked list sort is called a vector 
sort, and uses the technique of providing 
pointers to the items in the list to be sorted. 
Program Listing 3 consists of a mainline 
program and the vector sort subroutine 
which produces the sample output in Table 



1U00 DIM A{10), MI(10), MXU0S 


1010 N = Id 




1020 FOR X = 1 TO 4 




1030 CLS: 




,»y PRINT 'ORIGINAL ITEMS 


" ; 


1- # FOR K - 1 TO N 




ll'jtf READ A(K) : 




PRINT A(K) ; : 




MI(K) - B: 




MXflt) ■ B 




1B6B NEXT K 




1B70 GOSUB 1170: 




PRINT 




1080 C = B: 




E - B: 




GOSUB 11BB 




1B9B PRINT: 




PRINT'SORTED ITEMS 


" ; 


110B FOR K - 1 TO N 




111B PRINT A(K) ; 




112B NEXT K 




1130 PRINT: 




PRINT-COMPARISONS «" 


;C; -EXCHANGES - 


GOSUB 1170 




1140 NEXT X 




115 END 




1160 DATA 0, 1, 2, 3, 4, 5, 


6, 7, 8, 9: 


DATA 9, 8, 7, 6, 5, 4, 


3, 2, 1, 0: 


DATA 8, 0, 9, 4, 3, 5, 


7, 2, 6, li 


DATA -7, 3, -9, -7, 0, 


6, 6, 4, 5, -] 


1170 FOR T - 1 TO 1000: 




NEXT T: 




RETURN 




1180 • 




QUICKSORT. 




1190 BP = N: 




TP - 1: 




X • 0: 




Y - B: 




P «t | 




1298 GOSUB 1510: 




GOSUB 15 20 




1210 ' 




TAKE SNAPSHOTS. 




1228 P = P + 1 




1238 PRINT-PASS •■ ;P; -ITEMS 


*; 


1240 FOR KK ■ 1 TO N 




12SB PRINT A(KK) ; 




126B NEXT KK 




127B GOSUB 117B 




128B PRINT 




1298 IF TP >- BP THEN 1488 




13B0 NM ■ A(TP) 




1310 IF TP =■ BP THEN 136B 




1320 C - C + 1 




1330 IF A(BP) < NM THEN 


A(TP) - A(BP) : 




E ■ E + 1: 




GOTO 1340 



";E: 



1340 
1350 



ELSE BP - BP -1: 
GOTO 1310 
IF TP - BP THEN 1368 

ELSE C -■ C + 1 
IF A(TP) > NM THEN A(BP) = A(TP) 
E = B + li 
GOTO 1310 
ELSE TP = TP * 1 : 
GOTO 1340 



1381 
139C 

1401 

1411 
142C 
143S 

: ut 

1456 

1460 

1470 



1491 
1561 



A(TP) = NM: 
E = E + Is 

NB = TP - 1: 

NT « TP + 1 

GOSUB 1530: 

F - NB - TP: 

GOSUB 15 40: 

NX * BP - NT 

IF F > NX THEN 14 3 

M - TP: 

TP - NT 
IF TP < BP THEN GOSUB 1510: 

GOSUB 1520 
BP - NB: 
TP = M 

IF TP >- BP THEN 1500 
ELSE 1470 
LS = BP: 

BP - NB 
GOSUB 1510: 
GOSUB 15 20 
TP = NT: 
BP « LS 

IF TP >= BP THEN liBB 
GOSUB 151B: 
GOSUB 1520: 
GOTO 1210 
GOSUB 1530: 
GOSUB 1540 

IF Y = THEN RETURN 
GOSUB 1530: 
GOSUB 1540: 
GOTO 120B 
IF X = N THEN PRINT-WRONG WAY": 
STOP 
ELSE X - X ♦ 1 : 
MI(X) = TP: 
RETURN 
IF Y = N THEN PRINT"WRONG WAY - : 
STOP 
ELSE Y = Y 



MX(Y) 



1: 
BP: 



1530 IF X = 



1540 IF Y = 



RETURN 
B THEN RETURN 

ELSE TP = MI(X) : 
X - X - 1: 
RETURN 
THEN RETURN 

ELSE BP = MX(Y) : 
Y - Y - 1: 
RETURN 



Listing 2. Quick Sort Routine 
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3. The vector sort requires extra storage for 
the pointer array (P) equal to the number of 
items in the list to be sorted. 

The vector sort proceeds generally in the 
same manner as our previously examined 
sorting techniques, the major difference be- 
ing that no exchanges are made within the 
list of items to be sorted. The pointer array 
is adjusted as the positions of the keys are 
determined relative to the pointer array. 
Table 3 can be traced to see the operation 
of this routine. 

Merge Sort 

The second linked list sort is a type of 
merge sort which requires more extra stor- 
age than the vector sort. This disadvantage 
is somewhat diluted in that the merge sort 
takes less time to execute than the vector 
sort. The determining variable in the selec- 
tion of either of these two linked list sorts is 
time versus storage.- It is up to the user to 
decide which linked list sort to use for the 
particular application at hand. 

Fig. 3 shows the final condition of the 
variable used in the merge sort. Follow the 
pointers to determine the order of the items 
to be sorted. 

The variable S2 points to the subscript of 
the items to be sorted where the smallest 
items resides. According to Fig. 9, the vari- 
able S2 is equal to 2, therefore, A(S2) = A(2) 
= -7. To determine the next sorted item, 
use the pointer array (P) in the following 



8 9 4 3 
8 9 4 3 
8 9 4 

4 8 9 

4 

4 
4 



3 

3 



3 



ORIGINAL ITEMS 

PASS #1 ITEMS 

PASS #2 ITEMS 

PASS #3 ITEMS 

PASS #4 ITEMS 

PASS #5 ITEMS 

PASS m ITEMS 

PASS #7 ITEMS 

PASS m ITEMS 

PASS #9 ITEMS 

SORTED ITEMS 

COMPARISONS = 35 EXCHANGES = 27 

Table 3. Vector Sort Sample Output 



2 3 4 5 7 
2 3 4 5 6 



2 6 1 

2 6 1 

2 6 1 

2 6 1 

2 6 1 

2 6 1 

9 2 6 1 

8 9 6 1 

7 8 9 1 



0123456789 
0123456789 



ORIGINAL ITEMS 
PASS #2 ITEMS 
PASS #3 ITEMS 
PASS #4 ITEMS 
PASS #5 ITEMS 
PASS #6 ITEMS 
PASS #7 ITEMS 
PASS #8 ITEMS 
PASS #9 ITEMS 
PASS #10 ITEMS 
SORTED ITEMS 



8 9 4 3 5 

8 

8 9 

4 

3 4 

3 4 



8 9 



5 8 9 



8 9 
7 8 9 



3 4 5 7 

2 3 4 5 

023456789 

0123456789 

0123456789 



COMPARISONS = 26 EXCHANGES = 9 



table 4. Merge Sort Output Sample 



The merge sort requires more storage space than 
the vector sort, but it takes less time to execute. 



manner: Since A(S2) = A(2), the next small- 
est item will be at P(2). The subscript of the 
array A is used to gain access to the value 
stored in the adjacent pointer array P. P(2) 
= 5, therefore, A(P(2)) = A(5) = -7, the next 
smallest of the items to be sorted. Subse- 
quent items can be found by the following: 

A(S2) = A(2) = -7 
A(P(2)) = A(5)= -7 
A(P(5)) = A(4)= 
A(P(4)) = A(3) = 3 
A(P(3)) = A(1)= 9 

The last condition (P(1) = 0) means that 
the list of items to be sorted is exhausted, 
since no item resides in A(P(1)) = A(0). 

Listing 4 is mainline program and the 
merge sort subroutine for the second linked items to be sorted. 



list sort. 

We have only scratched the surface of 
sorting techniques; use the oibliography if 
you want to gain a deeper understanding of 
these and other sorting routines available 
to the microcomputerist. 

The routines in this article were success- 
fully run on a TRS-80 Level II with 16K mem- 
ory. The memory requirement is not impor- 
tant, since the sorting lists contain only 10 
items. Modifying line numbers 1000 and 
1010 will allow for larger lists to be sorted: 

1000 DIM A(x), S(x), Ml(x), MX(x) 
1010 N = x 

where x is equal to the size of the list of 



List of items to be sorted 


9 


-7 


3 





-7 




Pointer array 





5 


1 


3 


4 




Variable Starter (S2) = 2 



Fig. 3. Merge Sort Array Final Condition 



Professional software 



TRS-80* MODEL II 



BASIC CROSS REFERENCE 



NOW A' -JLABLE! 



• HND WHERE NAMtS ARE USED EAST 

• CAN YOU DELETE THAT LINE' HND OUT' 

• DO YOU HAVE DEADCODINC 

> WAN1 A NICE PROGRAM LISTING WITH 
DATE & TIME IN HEADING 



• SAVE HOURS' 

• PARALLEL/SERIAL PRINTERS 

• SEVERAL OPTIONS 

• 6/8 LPI VARIABLE 

LINE WIDTH & PACE DEPTH 



$59.99 



+ POSTAGE & 
HANDLING 



DOCUMENTATION ONLY $1000 
DEDUCTIBLE ON PURCHASE 



DISK SORT 

• MENU DRIVEN 1 

• RANDOM FILES 1 

• CHAINS lO SYSTEM 1 
OR BASIC PROGRAMS 

BASIC COMPILER 



• YOU DON'T HAVE TO BE A PROGRAMMER TO USE IT! 
EASY TO USE • EASY TO INSERT INTO 
FAST' |OB STREAM FOR $69.99 



+ POSTAGE & 
HANDLING 



• SPECS SAVED 
ON DISK 



NON-STOP RUNNING' 



DOCUMENTATION ONLY J1000 
DEDUCTIBLE ON PURCHASE 



• EASY TO USE 

• AUGMENTED WITH OUR 
DOCUMENTATION 



• WRITTEN BY MICROSOFT 

$350.00 



+ POSTAGE & 
HANDLING 



• TRSDOS®/BASIC COMPATIBLE ' 

• FASTER THAN BASIC BY UP TO 
JO TIMES 

TRS-80"" &TRSDOS 8 ARE REGISTERED GOOD-LYDDON DATA SYSTEMS ^218 

TRADEMARKS OF TANDY CORP 5486 RIVERSIDE DR., CHINO, CA. 91710 MASTER CHARGE Of VISA accepted. 



VISA/MC Order Line Only (except Mich.) 800-253-4358 ext. 100 

FINDISK-II The ultimate in automatic disk indexing with exclusive features Model! $20.00 

AUTOMATICALLY create INDEX of programs or data from all your disks, print disk LABELS, print 
alphabetized MASTERLIST. do fast SEARCH, add DESCRIPTIONS. Also automatically: detect DATA or 
SYS disks, PURGE disks and index of old files, and UPDATE from revised disks only. 
SOLAR-I The critical calculations for passive design. . . Model! $30.00 Model-II $45.00 

INPUT: any latitude, orientation, slope, roof overhang, storage type, building loss, OUTPUT: solar angles, 
shading, time, heat gain/loss, percent solar, fuel use Print report by hour, month, year in presentation format 
RIA-II Complex Real Estate Investment Analysis Model-I $30.00 Model-II #45.00 

Analysis for investor or homeowner using Elwood method. INPUT Project costs, loan and tax data, 
expenses, depreciation rate. OUTPUT: Cap rate/value, mortgage payments, before/after tax cash flows, return 
(IRR), profit/gain from sale over any time series. 
DEPRECIATE-I Manage a list of depreciable items Model-I $15.00 Model-II $20.00 

Tracks long list of depreciable items with varying purchase dates, depreciation rates, or per cent business use. 
Update any time Print tax form. Used by many CPAs. 

STRUCT-I Graphic design of steel /wood beams and moment transfer Model-I $15.00 

INPUT: span /cantilever, uniform/point loads, beam material. OUTPUT, with screen graphics beam moment 
& shear diagrams. Print job report with diagram, stresses, and required beam sizes. 

Min 32K. On disk (Modi one drive order tape). Add $1.00 postage (Mich add 4% tax) VISA/MC 
f88 DOCUMAN SOFTWARE BOX 387- A KALAMAZOO, Ml 49005 (616) 344-0805 



sSee List of Advertisers on page 354 
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"Since the mainline program presented uses 

only four sets of data. . . the program 

is quite useless except for illustrative purposes. 



Line numbers 1020 through 1060 repre- 
sent the common mainline program of the 
routines. Since the mainline program as 
presented uses only four sets of data as in- 
put to the items to be sorted, the program is 
quite useless except for illustrative pur- 
poses. The. sorting subroutines are com- 
pletely independent of any mainline pro- 
gram except for the passing of the follow- 
ing arguments: 

• The array A which holds the items to be 
sorted. 

• The variable N which is the number of 
items to be sorted. 

• The variable C which is the number of 
comparisons. 

• The variable E which is the number of 



ation of the subroutines. Thoroughly read- 
ing the code should provide you with the in- 
formation required for modifications to the 
sorting subroutines. ■ 
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caoi icm iyca. 

Variables C and E may be deleted from 




1000 DIM A(10) , V(10) 




the subroi 'tines without affecting the oper- 




1010 N = 10 

1020 FOR X - 1 TO 4 

1030 CLS: 

PRINT'ORIGINAL ITEMS *j 
1040 FOR K = 1 TO N 






, 


1050 READ A(K) i 




1000 . .1 A(i0) , V(10) 


PRINT A(K) ;: 




1010 N * 10 


V(K) = K 




1020 FOR X = 1 TO 4 


1060 NEXT K 




1030 CLS: 


1070 GOSUB 1170 




PRINT'ORIGINAL ITEMS '; 


1080 C ■ 0: 




1040 FOR R - 1 TO N 


E - •: 




1050 READ A(K) : 


GOSUB 1180 




PRINT A(K) j: 


1090 PRINT: 




V(K) - K 


PRINT'SORTED ITEMS "; 




1060 NEXT K 


1100 PRINT A(S2) ;: 




1070 GOSUB 1170 


J = V(S2) 




1080 C = 0: 


1110 FOR K - 2 TO N 




E = 0: 


1120 PRINT A(J) j: 




GOSUB 1180 


J » V(J) 




1090 PRINT: 


1130 NEXT K: 




PRINT'SORTED ITEMS 


PRINT: 




1100 FOR K - 1 TO N 


PRINT'COMPARISONS -' ;C; "EXCHANGES -" 


E; 


1110 PRINT A(V(K) ) ; 


GOSUB 1170 




1120 NEXT K 


1140 NEXT X 




U30 PRINT: 


1150 END 




PRINT'COMPARISONS ■" ;C; "EXCHANGES -";E: 


1160 DATA 0, 1, 2, 3, 4, 5, 6, 7, 8, 9« 




GOSUB 1170 


DATA 9, 8, 7, 6, 5, 4, 3, 2, 1, •: 




1140 NEXT X 


DATA 8, 0, 9, 4, 3, 5, 7, 2, 6, 1: 




1150 END 


DATA -7, 3, -9, -7, 0, 6, 6, 4, 5, -1 




1160 DATA 0, 1, 2, 3, 4, 5, 6, 7, 8, 9: 


1170 FOR T - 1 TO 1000: 




DATA 9, 8, 7, 6, 5, 4, 3, 2, 1, 0: 


NEXT Tj 




DATA 8, 0, 9, 4, 3, 5, 7, 2, 6, 1: 


RETURN 




DATA -7, 3, -9, -7, 0, 6, 6, 4, 5, -1 


1180 ' 




1170 FOR T => 1 TO 1000: 


MERGE LINKED LIST SORT. 




NEXT T: 






RETURN 


1190 S2 - 1: 




1180 ■ 


V(l) - • 




VECTOR LINKED LIST SORT. 


1200 FOR P - 2 TO N 
1210 C « C + 1: 




1190 FOR P « 1 TO N-l 


IF A(P) O A(S2) THEN V(P) - S2: 




1200 J = P 


S2 » P: 




1210 ' 


PT » S2: 




COMPARE ITEMS VIA POINTER ARRAY (V) . 


E =■ E + 1: 
GOTO 1260 




1220 C = C ♦ 1: 


1220 ID - V(S2) : 




IP A(V(J)) <- A(V(J+1)) THEN 1270 


TS - S2 




1230 ' 


1230 IP ID = THEN 1250 




EXCHANGE ITEMS. 


1240 C - C + 1: 

IF A(P) > A (ID) THEN TS = ID: 




1240 T - V(J) : 


ID - V(ID) 




V(J) ■= V(J+1) : 


GOTO 1230 




V(J+1) = T: 


1250 V(TS) = P: 




E > E ♦ 1: 


V(P) - ID: 




J = J - 1 


E = E ♦ 1 




1250 ' 


1260 ' 




LOOP BACK TO COMPARE AS LONG AS POINTER J IS VALID. 


TAKE SNAPSHOTS. 




1260 IF J X THEN 1220 


1270 PRINT: 




1270 ' 


PRINT'PASS I'jP; "ITEMS *; 




TAKE SNAPSHOTS. 


1280 PRINT A(S2)» 
1290 J = V(S2) 




1280 PRINT: 


1300 FOR KK - 2 TO N 




PRINT-PASS l';P( "ITEMS "; 


1310 PRINT A(J);t 




1290 FOR KK = 1 TO N 


J - V(J) : 




l'*00 PRINT A(V(KK) ) ; 


IF J ■= THEN 1330 




1310 NEXT KK 


1320 NEXT KK 




1320 GOSUB 1170 


1330 GOSUB 1170 




1330 NEXT P 


1340 NEXT P 




1340 RETURN 


1350 RETURN 




1350 END 


1360 END 




Listing 3. Vector Sort Program 


Listing 4. Merge Sort Program 
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HAVE WE GOT 





Ticket Information 

Send $5 per person with the name of the show 
you will attend to National Computer Shows. 
824 Boylston Street. Chestnut Hill. Mass 02167 
Tel 617 739 2000 Tickets can also be purchased 
at the show 



THE 



YOU IN 81 & 82 

Attend the biggest public computer shows in the country. 
Each show has 100.000 square teet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry, government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including, IBM. Wang. DEC. 
Xerox, Burroughs. Data General. Qantel, Nixdorf, NEC. Radio 
Shack, Heathkit, Apple, RCA. Vector Graphic, and Commo- 
dore Pet. Plus, computerized video games^obots, com- 
puter art, electronic gadgetry. and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
^ pie who don't know a program from a memory disk. 

A Don't miss the Coming Of The New Computers - 

Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chiU 
dren under 12 when accompanied by.an adult 

THE THE 

MID-WEST MiD-fi l Isih i I 5 - 

COHFUTER 
SI4QW 

WASHINGTON, DC 
DC Armory/Starpiex 

2001 E CAPITAL ST SE 

(ECAP ST EXIT OFF 1 295 

-KENILWORTH FRWY) 

ACROSS FROM RFK 

STADIUM 

THURS-SUN 

SEPT 24-27, 1981 

1 1 AM TO 7 PM WEEKDAYS 

1 1 AM TO 6PM WEEKENDS. 



CONFUTEF^ 
SHOW 



CHICAGO 
McCormick Place 

SCHOESSLING HALL 
23rd & THE LAKE 

THURS-SUN 
SEPT 10-13, 1981 

1 1AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



COMFLTf EF 
SHOW 

BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 

OCT 15-18, 1981 

1 1 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



THE 

SOUTHEAST 

COHFUTEF 

SHOW 

ATLANTA 
Atlanta Civic Center 

395 PIEDMONT AVE NE AT 
RALPH McGILL BLVD 

THURS-SUN 
OCT 29-NOV 1,1981 

1 1 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



THE 

SOUTHEFN 

CFUFORNIH 



-=_? = en 
SHOW 

LOS ANGELES 
LA Convention Center 

I 201 SOUTH FIGUEROA 

THURS-SUN 
MAY 6-9. 1982 

I I AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 
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TECHNIQUE 



A Basic program for rotating 3-D figures. 



Rotation 



Bruce Yellin 

19 Marine Avenue 

Brooklyn, NY 11209 



701 

I guess my obsession with three dimen- 
sional figures all started years ago when I 
was a computer science major in college. 
Being impressed with photographs of auto- 
mobile engineers designing next year's 
cars on a graphic CRT. and dreaming of ro- 
tating the starship enterprise on a video 
screen, I set out to develop a digital com- 
puter system capable of transforming three 
dimensional objects into two dimensional 
representations. As a frustrated mathema- 
tician in school, I knew that my dream could 
only be realized once I had a Ph.D. in 
mathematics and a $30,000 graphics com- 
puter at my disposal. But I decided to give it 
my best shot anyway! 

My first attempt at displaying a 3-D ob- 
ject was on a UNIVAC 1 106 computer using 
a hardcopy terminal and Fortran. Al- 
though my ideas seemed to work, a time- 
shared computer and continuous forms 






Fig. 1. The Cube as it is Traditionally 
Depicted 
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would hardly do the job. 

When my own 16K Level II TRS-80 arrived, 
my obsession with 3-D returned. I had my 
Masters Degree in Computer Science and 
was using my LA 36 Decwriter II for hard- 
copy by utilizing an RS-232 serial output 
driver from Small Systems. I was "armed to 
the teeth" for the challenge. A month later, 
after many sleepless nights, I proudly pro- 
claimed that 3-D lives in Brooklyn, N.Y.! 

Why Cubes? 

Now, let's get down to business. I've 
selected a cube because it is the simplest 
of regular figures to construct. It also has 
many interesting properties when rotated. 
All of us have probably drawn one when 
doodling, (see Fig. 1.) In its most recogniz- 
able form, you see six squares touching 
each other on all four sides. It is the easiest 
polyhedron to conceptualize and digitize 
compared to other members of the polyhe- 
dra family. (I will be explaining just how you 
digitize a cube a little later on.) 

Try to imagine a cube coming to life. You 
can see three sides very plainly with the 
other three sides hidden from view (see Fig. 
2). Turn the cube to the right and you should 
be visualizing Fig. 3. Keep turning and you 
have Fig. 4. And now if you look at the cube 
head-on, five sides are hidden and all you 
should be able to see is the remaining side 
(Fig. 5). 

As you are aware, a cube is a three dimen- 
sional figure. Instead of squares and the 
X-Y rectangular coordinate system you are 
most familiar with, for example, in the 
dimensions of length and height, we must 
briefly discuss the added dimension of 
depth. These three dimensions represent a 
method of locating a given point in space 
(rather than in a plane using X-Y coor- 
dinates) in terms of its distances from three 
mutually related perpendicular lines or 
axes. In layman's language: (x.y.z) = 
(length, height, depth). The Z axis is respon- 
sible for giving a shape its realism (for ex- 
ample, cartoons generally lack realism be- 
cause those figures are flat or X-Y images 



without the dimension of depth). A cube has 
depth (see Fig. 6). 

Now, the X-Y-Z system may still sound 
very foreign to you. And you might be won- 
dering what the word "digitize" really 
means. Let's try to tie together some loose 
ends. 

In the digitization of a solid object, we try 
to assign values from the X-Y-Z system to 
the object. Fig. 7 displays the X-Y-Z axes in 
dashed lines and the cube is drawn in solid 
lines. The lower rear corner of this unit cube 
(the length of each side is one) is at the 
origin (0,0.0)— point 1. Point 2 shows dis- 
tances of one from the origin on the X-axis 
and from both the Y and Z axes. Point 3 
shows distances of one from the X and Y 
axes and zero from the Z axis. Point 4 is the 
same as point 2 except for the Y axis. Now 
point 5 gets interesting— a zero distance 
from the X axis, but one from the Y and Z 
axis (the line connecting points 4 and 5 has 
a depth of one unit). Point 6 has a depth of 
one from the origin. Point 7 is like point 5. 
Point 8 shows a distance of one from all 
three axes. And since we can see that each 
point differs from the three points connec- 
ting it (for example, point 3 is connected by 



Fig. 2. The Solid Cube as Viewed from the 
Right Side 



Your best 

Model l/lll 

peripheral buy 

is a modem. 



Considering expanding your TRS-80 
Model I or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit: 

• Computer-to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A tar more sensible first 
step in expanding than, say, joy- 
sticks, or a voice box, or a printer. 
And, therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you. A world of thousands 
of computers and computer people 
just like you, in homes and busi- 
nesses around the block and across 
the country. A world you tap through 
your telephone. 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 




The new LYNX for TRS-80 Model I and Model 
III. It's the latest innovation from the people who 
are making data communications affordable. It's 
the best first step you can take in expanding. It 
makes your microcomputer a whole new animal. 



Your best 

Model l/lll 

modem buy 

is LYNX. 



The new LYNX is the ideal modem 
for your Model I or III. That's because 
it's the key element of a total direct- 
connect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures: 

• SINGLE PRICE: $299.95! 

• Compatible with both Model I 
and III. 

• No separate purche is re- 
quired. 

• One-year warranty. 

• Auto dial/auto answer. 

• Works with any software, in- 
cluding ST-80 by Micklus. 

• Active ctear, break, and "con- 
trol" key*£. 

• Half or full duplex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $100! 




DLYivnco 



• 278 



123 LOCUST STREET LANCASTER. PENNSYLVANIA 17602 
Phone 717/291-1116 

TRS-80 is a trademark of the Radio Shack Division of Tandy Corporation. 
FCC Registration Number. A909KE-68171-DM-N 



Call one of these LYNX handlers today— TOLL FREE: 



ADVENTURE INTERNATIONAL 
Longwood, FL 
800/327-7172 

THE PROGRAM STORE 
Washington, DC 
800/424-2738 

- Sm Ust of Advrtlaen on pagi 354 



ADVANCED COMPUTER PRODUCTS 

Irvine, CA 

800/854-8241 

STEVENS RADIO SHACK 
Phoenixville, PA 
800/345-6279 



TSE HARDSIDE 
Milford, NH 
800/258-1790 

SIMUTEK 
Tucson, AZ 
800/528-1149 



80 Microcomputing, September 1981 • 155 




"Now that I've given your mental CPU an 'Excedrin-80' 
headache, let me explain. . . how we rotate a cube." 



points 2, 4 and 8) by one unit and the figure 
rests on three perpendicular axes, we in- 
deed have a cube. Another way to demon- 
strate this is to note that each side of the 
figure is itself a square of equal size. 

Rotation 

Now that I've given your mental CPU an 
"Excedrin-80" headache, let me explain just 
how we rotate a cube. Rotation is accom- 
plished by viewing the figure from different 
(X,Y,Z) coordinates. Instead of turning the 
cube, you are placed at different locations 
from which to view it. In essence, the cube 
isn't turning, but you are moving around the 
cube— a simulation of rotation. 

The study of cubes and their rotation has 
its roots in solid analytic geometry. From 



the myriad of formulas and calculations in 
this field, I've identified two major steps 
needed before rotation of a cube (or any 
other 3-D object) can occur. First, a new set 
of viewing points must be established such 
that the figure will look as though it were on 
a gimbal and spinning freely. To accom- 
plish this, we freeze the X and Y coordi- 
nates, say at 50 each, and just manipulate 
the Z coordinate. This will yield maximum 
control of the figure and a rotated cube that 
is quite appealing to the eye. The new Z 
value is assigned values that differ by an 
order of magnitude (exponentiation) be- 
cause they produce very interesting plots. 
Secondly, the (X,Y,Z) coordinates used for 
viewing must be translated to (x,y) terms. To 
accomplish the feat, these equations are 
used: 



x=arctan(Y/X) 
y - arctan(ZZX) 




The new points (x,y), created as follows, are 
used for plotting on your video screen: 

x = Y'sin(x') - X'sm(x') 

y= - X*co8<x')'sin(y) - Y"sin(x')'sin(y) + Z'cos(y') 

Using the coordinates from Fig. 7 and the 
algorithm above (having been derived from 
solid analytic geometry texts), we construct 
Table 1. If we plot the new (x,y) points, we 
would get the cube in Fig. 7 drawn on the 
X-Y axis. If you can visualize the point 
(30,30,30), the cube would look exactly as 
depicted in Fig. 8 when plotted on your CRT 
or on graph paper. 

Not Done Yet 

But even these figures are lacking 
something. Somehow all those lines, even 
to my imagination, look like a transparent 
etching rather than a solid cube. 



Fig. 8. The View of the Solid Cube from the Fig. 4. The View of the Solid Cube from the Fig. 5. The View of the Solid Cube from 
Front and Top Left Side Head-On 
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"Program Listing 2 is the tightest Basic code 
I've ever written. It is fully optimized and undocumented." 



How would the figure look with the hid- 
den lines removed— just like a solid cube as 
illustrated In Figs. 2, 3 and 4! Next, how do 
we tell the Z-80 CPU to ignore the surfaces 
of the cube that our human eyes can't see? 

The trick lies in the distance formula. As 
it turnsout, the point farthest away from the 
viewing point (for example, (30,30,30)) is the 
vertex or corner that can't be seen. At- 
tached to that vertex are lines, and without 
that vertex, the lines can't be drawn. Hence, 
they disappear! When Fig. 7 is viewed, for 
example, from (30,30,30) the distances to 
each of the verticies are shown in Table 2 
when: 

distance = square root|(p1 -X)"2 + 
(p2-Y)**2 + (p3-Z)"2] 



Fig. 6. The Representation of the X-Y-Z Co- 
ordinate System 



where p1, p2 and p3 are the coordinates you 
wish to view the cube from. Point 1 is the 
farthest away from (30,30,30) with a dis- 
tance of 51.96 units. Since it is not seen, line 
segments 1-2, 1-4, and 1-6 are not drawn. 
(The result, a solid cube with hidden lines 
removed (Fig. 2.).) 

Ready At Last 

Two versions of the same program are 
presented in this article. Program Listing 1 
is fully documented and somewhat unopti- 
mized. It takes about 10 seconds to display 
the cube without hidden lines and nine sec- 
onds to display the cube with hidden lines. 
Program Listing 2 is the tightest Basic code 
I've ever written. It is fully optimized and un- 
documented. I would be hard pressed to cut 
the execution time by one more second with- 
out direct machine language assistance. A 
50 percent improvement in execution time 
is observed with Listing 2; the complete cube 
takes about five seconds and the hidden line 
cube takes slightly longer to draw. Need- 
less to say, Listing 1 takes up much more 
MOS memory than Listing 2. Although List- 
ing 2 looks totally different from 1, the 
overall logic for the two programs is identi- 
cal. I've reduced the number of vertice con- 
nections needed to draw the cube, taken 
out all remarks, removed blank spaces, op- 
timized the loops, and used many other 
techniques which I've imbedded into the 
code. 

Enter the program of your choice, CSAVE 
it, then simply type Run. Three prompts are 
issued. Please Enter The Viewing Coordi- 
nates (X Y Z)? to which you enter the coordi- 
nates, separated by commas, of the point 



the cube is to be viewed from — for example, 
30,30,30. Hardcopy Required (Y/N)? asks for 
a Y if a permanent copy of the cube is de- 
sired. The Auto Rotation (Y/N)? feature will 
spin the cube on its Z axis giving you seven 
different views while it is rotating. 

Just sit back and be patient for a few 
seconds. Right before your eyes, the cube 
will be drawn. Actually, the plotting of the 
(x,y) coordinates using the Set statement is 
occurring. If you requested a hardcopy, dots 
are printed representing a pixel value of 
(off) and a "#" where a pixel is lit (or 1). (See 
the hardcopy of a cube being rotated in fig- 
ures 9a-f.) This paper image is designed for 
a 132 character by 66 line printout. 

Looking Closer 

After you've spent an hour or two display- 
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Fig. 7. A Fully Labeled Unit Cube Resting 
on the X-Y-Z Axis 
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"A flowchart is a part of the 

documentation package for any software effort." 



ing various cubes, you'll be ready to in- 
vestigate the flowchart for a more in-depth 
treatment of the algorithms used. 

A flowchart is a part of the documenta- 
tion package for any software effort. It can 
either be very detailed or at a higher (or 
macro) level. Flowcharts use various sym- 



bols to represent different logical steps, 
decisions, and actions. Fig. 10 contains 
many of the common flowcharting symbols 
accepted by the data processing communi- 
ty. 




Fig. 8. The cube displayed on the XY axis. 



( ) 






A TETflRTfrAL POINT IN A 
FLOWCHART -START, STOP, 
HALT, T>ELAY, ENTRY, RETURN 
OR INTERRUPT 



ANY PROCESSING FUNCTION; 
DEFINED OPERATIONS CAUS- 
ING CHANGE IN VALUE, FORM, 
OR LOCATION OF INFORMA- 
TION 



GENERAL I/O FUNCTION; 
INFORMATION AVAILABLE 
FOR PROCESSING (INPUT), 
OR RECORDING OF PRO- 
CESSED INFORMATION (OUT- 
PUT) 



A DECISION OR SWITCHING- 
TYPE OPERATION THAT DE- 
TERMINES WHICH OF A 
NUMBER OF ALTERNATIVE 
PATHS IS TO BE FOLLOWED 



ARROWHEADS AND FLOW 
LINES IN LINKING SYM- 
BOLS, THESE SHOW OPER- 
ATIONS SEQUENCE AND 
DATA FLOW DIRECTION 



CONNECTOR: EXIT TO, OR 
ENTRY FROM ANOTHER 
PART OF THE CHART 



ONE OR MORE NAMED 
OPERATIONS OR PROGRAM 
STEPS SPECIFIED IN A 
SUBROUTINE 



Fig. 10 Basic Flowcharting Symbols 
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BLOCK 



The flowchart in Fig. 11 is at macro level 
for program 1. 1 have idertified seven blocks 
worthy of a brief discussion. Block one de- 
fines the working array A to be eight rows of 
five columns. (You'll need to know this if 



(3-D cubes J 



DEFINE 
ARRAY 
A(8,5) 



READ 

VERTICES 

AND CONNECTORS 

FROM DATA STMT 



/INPUT: 

/VIEWING COORDINATES/ 
lHARDCOPY P 
'HIDDEN LINES ? 
'ROTATION ? 



YES 




LOOP USING 
Z 

SET X,Y TO 
VALUE 



CONVERT 

VIEWING COORDINATES 

TO XY COORDINATES 



CALL HIDDEN 
LINE REMOVAL 
ROUTINE IF 
REQUESTED 



COMPUTE NEW 

XY COORDINATES 

BASED ON 

VIEWING COORDINATES 



CALL 

PLOTTING 

ROUTINE 



CALL 

HARDCOPY 

IF REQUESTED 




RESTORE 

INPUT 

VALUES 



( STOP J 

Fig. 11 Macro Flowchart of Program Listing 1 



"The object of this method is not to 
calculate distance, but to find the hidden vertex." 



you change from six-sided figures.) Eight 
rows are needed for eight verticies. Column 
one is for the X coordinate, column two for 
the Y coordinate with the Z coordinate in 
column three. Column four is used for the 
logical connection of the (X,Y,Z) vertice to 
the other adjacent vertice (i.e. the row 
number for connection purposes). Column 
five serves the same purpose as column 
four except that it contains the second row 
number/connection. 

Block two sets up a Do loop if auto rota- 
tion is desired. The X and Y coordinates are 
set at 50 and values for Z of - 1000, - 100, 
-10, 0, 10, 100, 1000 are calculated by 
multiplying the sign of ZQ by 10, all raised to 
the ZQth power where ZQ ranges from mi- 
nus three to three in increments of one. The 
B$ variable is required for the program to 
know about the existence of the ZQ loop. 

The (x,y) coordinates to view the figure 
are obtained in block three as follows: 

L = ATN(Y/X):M=ATN(Z/X) 

where ATN is the arc tangent function. (This 
block involves some complicated mathe- 
matics and is beyond the scope of this arti- 
cle.) 

Block four is activated if hidden line 
removal is desired. Removal of those lines 
hidden from sight is accomplished by using 
the distance formula. Its form for (X,Y,Z) 
coordinates in program 1 is: 

G = SQR((A(D,1)-X^2 + (A(D,2)-Y)t2 + (A(D,3) - Z)t2 ) 

where A(D,1), A(D,2) and A(D,3) are the coor- 
dinates of each vertice and X, Y and Z repre- 
sent the coordinates of the viewing point. 

This method, utilizing the square root 
function and exponentiation is very slow. 
An alternate way to find the vertice farthest 
away from the viewing coordinate is: 

(1)G = ABS(A(D,1)-X) + ABS(A(D,2) - Y) + 
ABS(A(D,3)-Z). 

This equation is faster to execute than 
the distance formula with its exponentia- 
tion and square root. The object of this 
method is not to calculate distance, but to 
find the hidden vertex. Table 2 shows that 
point 1 is the farthest from (30,30,30) with a 
distance of 51.96 units. Equation (1) would 
result in a distance of 90 units from 
(30,30,30)— (note: this equation is not to be 
construed as a distance formula) while 
point 8 (a distance of 50.22 units) measures 
87 units. Both methods yield identical logi- 
cal results— point 1 is a vertice that is hid- 
den from sight in the cube. Note that more 
than one point may be hidden from view, 
but the program does not take this into ac- 
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count. The second or third point is redun- 
dant and merely causes the same line to be 
drawn again. 

Block five computes the new (x,y) coor- 
dinates through: 

A1=A(I,1) 

(2)A(I,1)= -ATSIN(L) + A2-SIN(L) 

(3)A(I,2)= -ATCOS(L)-SIN(M) - A2'SIN(LrSIN(M) 

+ A(l,3)'COS(M) 

A1 is used because A(l,1) gets modified in 



equation (2) and the unmodified A(l,1) is re- 
quired in equation (3). These new coordi- 
nates are now ready for plotting. 

The routine to plot (x,y) point is the object 
of block six. The Y-intercept form of the 
straight line equation is used. 

(4)M=(Y0-Y1V(X0-X1) 
(5)BZ = Y0-WX0 

(X0,Y0) and (X1 ,Y1) are the end points for the 
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Table 


1. 


The x and y values 


resulting 


from 


the cube 


being 


viewed 


from 


(30,30,30) 
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and 


/' both equal 
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Model 488-80B For Model 1 Operation 



JEL 



Model 488-80C For Model 3 Operation 



IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1 or 3, Level 2 or DOS with 
a minimum of 16K. 

488-80B or 488-80C $325. 

+ shipping, insurance 4 tax 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING LABORATORIES ^2 91 

11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3205 

'Trademark of Tandy Corp. 

There is no affiliation between Scientific Engineering 

Laboratories and Tandy Corp. or Radio Shack. 



'TRS-80 8. OTHER NEEDS HLLED FOR LESS* 



+ + + COMPATIBLE DISK DRIVES WITH POWER SUPPLY AND CASE-90 DAY WARRANTY 

• 40 TRACK (102.400 BYTE/DISK) DISK DRIVE WITH PS ANDCASE. MODEL I & III 

• 8 IN DRIVE & PS /CASE $689 WITH P S./CASE FOR 3 DRIVES 

• 80 TRACK (204.8K BYTE) 

• 4-DRIVE CABLE $28 ' • 10 DISKS-5 IN. @ $24-8 IN @ $36 HARD CASE $3 & 5 



$295 
$829 
$399 



BASE 2 PRINTER $599 



EPSON MX - 80 PRINTER - CALL MICROLINE 80 PRINTER $369 
MICROLINE82$549 CABLE ( 



fr$25 
$829 



• CENTRONICS 739 $799 

• LEEDEX 12 IN B&W MONITOR $114 LEEDEX 12 IN B&G MONITOR $138 ^ 

• APF 10 IN B&W MONITOR memory ^FT (200 NANO) $16 
•300BAUDMODEM,ORIG/ANS,$115.ANDUP + + + + ♦ + + + ,6K MEMORY SET 200 O.^ 

•16K MODEL II RADIO SHACK SYSTEM $849 JJ p/RFQR 

• APPLE, ATARI. RADIO SHACK HARDWARE/SOFTWARE D'SCOUNTED A/R A7P G/L P/R FOR 
tmo or SSO a. (MODEL 1) & $329 or $80 ea. (MODEL 2). APPLICATIONS INTERACT & ARE COMPLETE & 
SSttS'oNA Tu RUN ON OTHER COMPUTERS THIS IS A SPECIAL INTRODUCTORY ^ 

A?KF?R FREEZER WITH OUR LOW PRICES - DEALER INQUIRIES INVITED MASS RESIDENTS ADD 
5V , TAX-FOB TEWKSBURY- FREIGHT EXTRA 
M/C VISA OR CHECK ACCEPTED TRS-80 IS A REG TRADEMARK OF TANDY CORP ^ ,05 



_OMNITEK SYSTEMS 



.1899 MAIN ST., TEWKSBURY, MASS. 01876 CALL 617/851-4580 
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"A paper image of the screen 

is produced by utilizing the Point command." 



line to be plotted. Equation (4) is the formula 
for calculating the slope of a line and equa- 
tion (5) calculates the Y1 value for plotting 
given (XO.YO) and an incremented point be- 
tween XOand X1. 

The Set command is used for plotting 
with the center of the TRS-80 CRT screen 
being (64,24). When the XO value is not equal 
to X1 (i.e., a non-vertical line), the 'DO R' Do 
loop calculates the incremental value be- 



tween XO and X1, which is then multiplied 
by the slope. The Y intercept and the screen 
center values are then added in: 

SET(M*R + BZ + 64, R + 24) 

If XO equals X1 , a vertical line is needed. R 
gets an increment value between YO and Y1 
and SET(R + 64, XO + 24) is used. 

Block seven contains the hardcopy rou- 



Program Listing 1 

10 REM ROTATION OF THREE DIMENSIONAL OBJECT BY BRUCE A. YELLIN 
20 REM THIS LISTING IS FULLY DOCUMENTED AND IS NOT ORIENTED 
30 REM TOWARDS OPTIMIZED CODE. 
40 REM FOR THE FASTEST EXECUTIUON SPEED, USE LISTING #2 

95 REM **************************** 

96 REM * * 

97 REM * INITIALIZE VARIABLES * 

98 REM * * 

99 REM ***$************************** 

100 DIM A(8,5) : 
101 
102 
103 

110 FORI=l TO 8: 
111 

120 READ A(I,1), A(I,2), A(I,3), A(I,4), A(I r 5) 
130 NEXT I 
140 CLS 



REM ARRAY A HAS ROOM FOR 8 
REM VERTICIES OF 3 COORDINATES 
REM EACH AND 2 CONNECTION 
REM NUMBERS 

REM ENTER OBJECTS' VERTICIES & 
REM AND CONNECTIONS 



********* 



******* 



***** 



PROMPT FOR VIEW AND OPTIONS 



********* 



********** 



******** 



REM AUTO ROTATION REQUIRED, SET 
REM UP LOOP ZQ FOR VALUES SO 



195 REM 

196 REM 

197 REM 

198 REM 

199 REM 

200. INPUT "PLEASE ENTER THE VIEWING COORDINATES (X Y Z)";X,Y,Z 
210 INPUT "HARDCOPY REQUIRED (Y/N)";A$ 
220 INPUT "ARE HIDDEN LINES DESIRED (Y/N)";B$ 
230 INPUT "AUTO ROTATION (Y/N)";C$ 

295 REM *************************** 

296 REM * * 

297 REM * SET UP AUTO ROTATION LOOP, CONVERT VIEWING POINTS * 

298 REM * AND HIDDEN LINE SUBROUTINE * 

299 REM ********** 

300 IFC$="N"THEN 340: 
301 
302 
303 
304 
305 
a306 
307 
308 
309 

310 FOR ZQ= -3 TO 3 
320 3«^SGN(ZQ)*10[ABS(ZQ) 
330 X450:Y=50 
340 IF &m THEN X=0. 000001: 
350 L=ATN(X/X): M=ATN(Z/X): 
COORDINATES 

360 IF B$="N" GOSUB 1100: 
361 

395 REM ********** 

396 REM * 

397 REM 

398 REM 

399 REM 

400 FOR 1=1 TO 8 
410 A1=A(I,1) 

420 A(I,1)= -A1*SIN(L) + A(I,2)*SIN(L) 

Program continues 



REM 


X 


Y 


Z 


REM 


50 


50 


-1000 


REM 


50 


50 


-100 


REM 


50 


50 


-10 


REM 


50 


50 





REM 


50 


50 


10 


REM 


50 


50 


120 


REM 


50 


50 


1000 



REM PREVENT DIVISION BY ZERO 

REM CONVERT VIEWING 

REM HIDDEN LINE REMOVAL ROUTINE 
REM IF REQUESTED (Y=LINES DESIRED) 



COMPUTE NEW SET OF X,Y COORDINATES 



********* 



tine. A paper image of the screen is pro- 
duced by utilizing the Point command. If a 
pixel is not lit, the point of that pixel returns 
a zero. The "." is printed for a blank space 
(0) and a "#" if the pixel is on. I designed this 
little routine with a full width printer in mind 
(such as my LA 36 Decwriter II). If your print- 
er can't produce plots of 128 characters 
across, you'll have to modify this routine to 
suit your needs. 

Attached to block seven is a small circle 
representing the Next ZQ statement used 
by the auto rotation calculation. If this op- 
tion was selected, the looping takes place; 
otherwise the program halts. 

The eight vertices necessary for the 
cubes construction are contained in the 
data statements in lines 2010-2080 of Pro- 
gram 1. Each of the statements corre- 
sponds to the form of: 

X, Y, Z, first connection, second connection. 

Connection simply means which two data 
statements the vertice is connected to. For 
example, (0,0,0) is given by 2010 data 
0,0,0,2,3 and is connected to the vertex in 
line 2020 (2) and to the vertex in line 2030 (3). 
Fig. 9a-f shows this very clearly. In turn, 
each vertex is linked to two other vertices 
for example, (0,1,0) connects to (1,1,0) and 
(0,1,1). 

If you are observant, you'll notice that a 
vertex in a cube is connected by three other 
vertices, not just two. But only two are re- 
quired by this program. This is true as long 
as the first and second connection num- 
bers are used only twice by the entire set of 
eight data statements. (Because the hidden 
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"Let me also mention that any number 

can be used as a coordinate as long as 

the chosen value remains constant throughout the cube. . . " 



lines are not drawn when the option is se- 
lected, lines can be eliminated from the 
cube if they are improperly linked.) Take a 
moment and notice the data statements 
procedure for connecting the vertices. 

Let me also mention that any number can 
be used as a coordinate as long as the cho- 
sen value remains constant throughout the 
cube (for example, (0,20,0), (20,20,0), etc.). In 
fact, drawing units of one will lead to a 
distorted plot on the TRS-80's low resolu- 
tion CRT. I prefer units of 20 because it 
allows better resolution and also fits on the 
screen (whose height is only 48 pixels). 
However, be my guest and try your own set 
of vertices — experimentation is half the 
fun! 

The cube is slightly distorted when 
displayed on the CRT. To understand why, 
let's examine the size of a TRS screen. The 
area used on the 12 inch monitor measures 
7.25 inches across and six inches down. Di- 
vide these measurements by 128 pixels 
across and 48 down. A pixel measures ap- 
proximately 0.056 inches by 0.125 inches. 
These rectangular shaped pixels result in a 
greatly distorted plot of a line in most 
cases. For example, the plot of a line from 
(0,0) to (47,47) results in an angle of line to 
horizon of over 70 degrees while it should be 
only 45 degrees. In terms of a cube, the 
sides then become flatter than they really 
are. (After all, the TRS-80 isn't a $30,000 
graphics computer.) The hardcopy also has 
some distortion, although it is not as great 
as on the CRT. 

Other drawbacks include the fact that 
Basic is extremely slow. However, it would 



Progra 


m continued 








430 


Ml, 2)- 


-Al*COS(L)*SIN(M) - A(I,2)*SIN(L)*SIN(M) + A(I,3) 


*CO£ 


(K) 








440 


NEXT I 








495 


REM * * * 


* * * 


* * * * 


***************** 


496 


REM * 






* 


497 


REM * 


PLOT X,Y < OORDI NATES ON SCREEN * 


498 


REM * 






* 


499 


REM * * * 


* * * 


* * * * 


***************** 


500 


CLS 








510 


PRINT@0 f X; Y; 


5; 




520 


FOR 1=1 


TO 8 






530 


IF I = 


G2 THEN 580 




540 


X0 = A(I,1) 






550 


Y0 = A(I,2) 






560 


IF A(I 


4) <> 


G2 THEN 


XI = A(A(I,4) ,1) : Yl = A(A(I,4),2): 


GOSUB 90 








570 


IF A(I 


5) <> 


G2 THEN 


XI = A(A(I,5),1): Yl = A(A(I,5),2): 


GOSUB 90 








580 


NEXT I 








595 


REM * * * 


* * * 


* * * * 


***************** 


596 


REM * 






* 


597 


REM * 




HARDCOPY REQUESTED ? * 


598 


REM * 






* 


599 


REM * * * 


* * * 


* * * * 


***************** 


600 


IF A$="Y" 


GOSUB 


800 




695 


REM * * * 


* * * 


* * * * 


***************** 


696 


REM * 






* 


697 


REM * 


\ 


VAS AUTO 


ROTATION IN EFFECT? * 


698 


REM * 






* 


699 


REM * * * 


* * * 


* * * * 


***************** 


700 


IF C$="N" 


THEN 


STOP 




710 


RESTORE: 






REM REINITIALIZE VERTICIES & 


711 








REM CONNECTIONS, END ZQ LOOP 


720 


FOR 1=1 


TO 8 






730 


READ A(I,1) , 


A(I,2) , 


A(I,3) , A(I,4) , A(I,5) 


740 


NEXT I 








750 


NEXT ZQ 








760 


STOP 








800 


REM * * * 


* * * 


* * * * 


***************** 


801 


REM * 






* 
Program continues 
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If You've Written an 
Outstanding Program- 
We'd Like to Publish It! 

We're looking for EDUCATION 

Programs: 

SPECIAL EDUCATION/ AID 

TO THE HANDICAPPED 

MULTI-MEDIA COMPUTER INSTRUCTION 

TEACHER-AUTHORING LANGUAGES 

MANAGEMENT TRAINING 

SIMULATIONS 

Earn money while helping others. 
Write for our free Programmer's 
Kit today! 

INSTANT SOFTWARE, INC. ^2 

Submissions Dept. 

Peterborough. NH 03458 



MODEL III 
TREASURE HUNT 

FIND THESE: 

Relocating macro assembler, linking 
loader, symbolic debugger, text editor, 
print spooler, interactive editor/assem- 
bler, disk-disassembler, command 
processor, disk exam/modify, disk 
utilities 

ALL FOR $99.00 

CIUe: »%•**« 

PDS " 413 

ALLEN ASHLEY 

395 SIERRA MADRE VILLA 

PASADENA, CA 91107 

(213)793-5748 

Also: Cross assemblers for 8048, Z-8, 1802, 3870, 
S-2000, COP-400 — $75.00 each. Call for details. 



of not being able to read the digital 
tape counter without changing 

positions every time? 
— Then try the 

DATA VIEW 

designed to position the 
recorder at the proper 
angle for effortless view 
ing of the counter. 

Constructed of durable translucent acrylic 
in a beautiful smoked gray tint with slip 
resistant padded feet. Only 8.95 each 

TO ORDER: Send check or money order for| 
8.95 + 2.00 for shipping and handling. 
California residents add 6% sales tax. 

REMTRON ^499 

P.O. Box 2280 

Santa Clara. CA 95055 

Dealer Inq. Invited NO COD'S 
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STARSHIP SIMULATOR 

and 

COMBAT GAME 

Real-time action graphics place you at starship 
controls, displaying continuous 3D motion thru 
stars! 

Screen and instruments updated 30 times each 
second! 

Accurate celestial navigation thru galaxy with 
both XYZ and Spherical Coordinates! 

Ultimately realistic, this search and destroy 
simulation begins where ordinary games end! 

TRS-80 MODEL 1 LEVEL II 16K 

BOSEN ELECTRONICS ^416 

445 E. 800 N. Spanish Fork, UT 84660 

(801)798-9553 

$24.95 

MasterCard, VISA, Check, Money Order, COD. 




Now for a "^■^^^^ W J small in- 
vestment you can ^^^^(r have the 
power and accuracy of the computer in 
your job costing. We have developed pro- 
grams to run on the Radio Shack TRS-80 
Model il Computer which produce the follow- 
ing reports:. 

• Comolete Job Cost Reports 

• Job Scheduling 

• Work !n Ptocess Report 

• On-line Job Status Inquiry 

• Operation Productivity Report 

• Material Usage Summary 

• Employee Charge Out Summary 

The program prompts the operator through 
every step in plain and simple English. Only a 
few hours of Instruction and preparation are 
needed begin use. It's ideal for the small 
company with 5 to 50 employees. 

The price is $495.00 for the program and 
complete instructions. A set of sample reports 
aie available for $19.95 which is applicable 
toward purchase. 

DkimBysteikis 

^439 

Suite 208 404-455-6549 

2957 N. Dekalb Drive 

Doraville. GA 30340 

or 

P.O. Box 6555 Macon, GA 31208 

912-745-5822 



Progran 


continued 




802 REM * 


HARDCOPY ROUTINE - DESIGNED FOR 132 BY 66 FORMAT 


* 


803 REM * 




* 


804 REM * 


************************* 


* 


805 LPRINT 


X; Y; Z: LPRINT 




810 FOR I 


= TO 47 




820 


FOR J = TO 127 




830 




IF POINT(J,I)=0 THEN LPRINT ".";: ELSE LPRINT ' 


*"; 


840 


NEXT J 




850 


LPRINT 




860 NEXT I 






870 FOR I 


= 1 TO 16 




880 


LPRINT 




890 NEXT I 






899 RETURN 






900 REM * 


************************* 


* 


901 REM * 




* 


902 


REM * 


PLOTTING ROUTINE 


* 


903 


REM * 




* 


904 


REM * 


************************* 


* 


910 


IF X0 


=X1 THEN 980: REM IF DIVISION BY ZERO, USE 




911 




REM Y FORMULA WITH X CONSTANT 


920 M=(Y0- 


iri)/(X0-Xl): REM SLOPE FORMULA 




930 


BZ=Y0- 


1*X0: REM EQUATION OF A LINE 




940 


^OR R 


= X0 TO XI STEP SGN(X1-X0) 




950 


SET(M*R+BZ+64,R+24) 




960 


NEXT R 






970 


RETURN 






980 


FOR R 


= Y0 TO Yl STEP SGN(Y1-Y0) 




990 


SET(R+64,X0+24) 




1000 


NEXT 


R 




1010 


RETURN 




1100 


REM * 


************************ 


* * 


1101 


REM * 


HIDDEN LINE REMOVAL SUFROUTINE 


* 


1102 


REM * 


CALCULATE THE FARTHEST VERTICE FROM VIEW POINT 


* 


1103 


REM * 




* 


1104 


REM * 


************************ 


* * 


1110 


G1 = 






1120 


FOR D 


= 1 TO 8 




1130 


G=SQR((A(D,1)-X) [2 + (A(D,2)-Y)[2 + (A(D, 3) -Z) [ 2) 




1140 


IF 


3>G1 THEN G1=G: G2=D 




1150 


NEXT 






1160 


RETURN 




1995 


REM* 


************************* 


* * 


1996 


REM* 




* 


1997 


REM* 


THE FORM OF THE DATA STATEMENTS ARE : 


* 


1998 


REM* 


X, Y, Z, CONNECTION #1, CONNECTION #2 


* 


1999 


REM* 


******************.****** 


* * 


2010 


DATA 


0, 0, 0, 2, 3 




2020 


DATA 


0, 0, 20, 1, 5 




2030 


DATA 


0, 20, 0, 6, 5 




2040 


DATA 


20, 0, 0, 1, 7 




2050 


DATA 


0, 20, 20, 3, 8 




2060 


DATA 


20, 20, 0, 4, 8 




2070 


DATA 


20, 0, 20, 4, 2 




2080 


DATA 


20, 20, 20, 7, 6 




3000 


REM * 


************************ 


* * 


3010 


REM * 


LIST OF VARIABLES USED AND THEIR MEANING 


* 


3020 


REM * 




* 


3030 


REM * 


A( , ) USED FOR BUILDING/ STORING THE CUBE 


* 


3040 


REM * 


I FOR LOOPING PURPOSES 


* 


3050 


REM * 


A$ HARDCOPY RESPONSE 


* 


3060 


REM * 


B$ HIDDEN LINE RESPONSE 


* 


3070 


REM * 


C$ AUTO ROTATION RESPONSE 


* 


3080 


REM * 


ZQ FOR LOOPING PURPOSES IN AUTO ROTATION* 


3090 


REM * 


X X COORDINATE 


* 


3100 


REM * 


Y Y COORDINATE 


* 


3110 


REM * 


Z Z COORDINATE 


* 


3120 


REM * 


L ARC TANGENT (Y/X) 


* 


3130 


REM * 


M ARC TANGENT (Z/X) 


* 


3140 


REM * 


Al TEMPORARY HOLDING VARIABLE 


* 


3150 


REM * 


X0 X COORDINATE (FROM) 


* 


3160 


REM * 


XI X COORDINATE (TO) 


* 


3170 


REM * 


Y0 Y COORDINATE (FROM) 


* 


3180 


REM I* 


Yl Y COORDINATE (TO) 


* 


3190 


REM * 


J FOR LOOPING PURPOSES 


* 


3200 


REM * 


M SLOPE 


* 


3210 


REM * 


R FOR LOOPING VALUE 


* 


3220 


REM * 


D FOR LOOPING PURPOSES (HIDDEN LINES) 


* 


3230 


REM * 


G DISTANCE FORMULA 


* 


3240 


REM * 


Gl LONGEST DISTANCE VALUE 


* 


3250 


REM * 


G2 POINTEr TO LONGEST DISTANCE VALUE 


* 


3260 


REM * 




* 


3270 


REM * 


************************ 


* * 
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This is . . . 




Your last chance 

to get 80 MICROCOMPUTING for only $18 a year. 



August 1, 1981 the price of 80 Microcomputing is going up. The cover price will be $2.95 and 
the subscription rate will be $25 for one year. But you still have a chance to renew or 
subscribe at the old rates .... send in the card (if the cards are gone, a photocopy of the 
coupon will do) before October 1, 1981 and you can get 80 Microcomputing at the old rates. 

You get more information for your TRS-80* from 80 Microcomputing than from any other 
single source. One of the numerous (we've been averaging thirty a month) programs from each 
issue put to use can easily pay for the subscription price. Even at $25.00 a year. But beat the 
price increase and continue to get the hundreds of pages of reviews, articles, programs, and 
applications for only $18.00. 
Remember after October 1, 1981 no 
previous offers to 80 Microcomputing 
at a price less than $25.00 will be 
accepted. So send in the card today. 



r 



Yes, 



I want another year of 80 Microcomputing at the low price of $18.00 



Bill me 



Bill my VISA AE 



MC 



Check enclosed 




Wayne Green Inc., Peterborough NH 03458 



Name __ 
Address 
City 



Card* 



Signature 



State 

Expire Date 

Interbank ■ 



Zip 



Offer expiree October 1. 1961 



If you am renewing, 

the number from your address '.abe'. would be helpful 



Canadian 1 year only US funds »30 00 Foreign 1 year only US funda *28 00 

80 Microcomputing • PO Box 981 . PwrrdngdaJe MY 11737 319B8 



! 



sSee List ot Advertisers on page 354 
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80" SHROUDS 




module of 
fiberglass 



■Other Models 
*LNW UEM\-CASE..$32.50 

*LNW SHROUD $27.50 

* "80" SHROUD $24.50 

Add $2.5$'shippmg & handling 
N. Y.S. residents add 7% sales tax 

.-358 

SYRACUSE R&D CENTER 

Box 125, Dewitt, N.Y. 13214 

"Specializing In Electronic Packaging" 



FULL SCREEN TEXT EDITORS 
FOR THE TRS-80* 



Now there are products that will allow you to program 
Ike the professionals do II you enjoy the sophistica 
tion ot writing your own programs then you are in tor a 
'eai treat-when you use our editors Features include 
fun screen display, complete control Over scrolling 
and cursor movement, character change insect de 
lete. insect, delete, copy, move lines or blocks of lines 
renumber, global find and change 
BASIC editor runs from tape or disk Once loaded a 
single command invokes our extended edit mode with 
powers and abilities far beyond those ot conventional 
editing 1 Advanced features include user definable 

macro keys and the powerful program restructuring 
tool SELECTIVE RENUMBER 

EDTASW editors are compatible with EOT ASM source 
tape files Disk version includes patch to run Radio 
Shack" EDTASM from disk 1 An products are shipped 
on tape tor level 2 machines and include a comprehen 
sive owner's manual 

The Text Editor for BASIC Order mOlO 20 24.95 

The Text Editors tor EDTASM Source Files 

Tape Version Order (M010-30 24.95 

Disk Version (Req. 32K and up) Order #1010 31 34.95 

New: XBUG sell-relocating debugging tool with 
multi-speed single step facility. 

Order #1020-10 



S19.95 

B 

m tsr 



Sena cneck or money order (no CODsl to 
It ordering by credit card, please include a 
information on credit card 

ni I COMPUTER 
/J/J APPLICATIONS 
L(/ M UNLIMITED t M 

A Div ol CAU Inc 
PostOllice Box 214. Dept 181 Rye. New York I0S80 



N Y. State residents please add applicable sales tax. 
Please allow 4-6 weeks delivery. Dealer inquiries invited 
'Radio Shack and TRS-80 art raglatarad Uadamarka of 
L. Tha Tandy Corp. . in7 
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"There are an infinite number of shapes to draw 
and an infinite number of ways to look at them." 



prove to be a difficult program in Z-80 as- 
sembly language. Also, due to the distor- 
tion by the CRT, I've found that rotation with 
just the Z axis works better than any other 
axis or combination of axes. 

Expansion of this program is necessary 
to speed it up and allow for other shapes to 
be drawn. Three areas can be identified for 
further investigation. First, smaller inter- 
vals should be used in the auto-rotation 
routine. This would make the cube rotate 
with more fluidity. Next, machine language 
should be part of the code, helping to speed 
up the plotting and allowing the cube to be 
turned faster. Finally, other polyhedra 
should be tried. Unfortunately, this will 
probably lead to the use of a matrix manipu- 
lation method for representation and an en- 
tirely different program logic. 



I've just scratched the surface of a very 
technical, yet beautiful subject. There are 
an infinite number of shapes to draw and an 
infinite number of ways to look at them. For 
those with adventure in their hearts, having 
the program rotate rectangles should pro- 
vide some viewer excitement. A step be- 
yond rectangles are pyramids, but I dare not 
hazard a guess as to what they look like 
when rotated! 

A text, Principals of Interactive Computer 
Graphics by William Newman and Robert 
Sproull (McGraw Hill, 1973) deals with this 
subject and others in great detail. If I had 
read this book years ago, these rotating 
cubes would undoubtedly have approached 
the quality of those produced on fine graph- 
ics computers. After all, the TRS-80 can't be 
too far behind. ■ 



10 DEFINT I,X,Y,J,W,E,R,K,G,D:E=60:W=25:DIMA(8,5) 

20 FORI =1T08:READA( 1,1) ,A(I,2) ,A(I,3) ,A(I,4) ,A(I,5) :NEXT 

50 CLS 

60 INPUT "PLEASE ENTER THE VIEWING COORDINATES (X Y Z)";X,Y,Z 

70 INPUT "HARDC0PY REQUIRED (Y/N)";A$ 

71 INPUT "ARE HIDDEN LINES DESIRED (Y/N)";B$ 

72 INPUT "AUTO ROTATION (Y/N)";C$ 

75 IFC$="Y"FORZQ=-3TO3:Z=SGN(ZQ)*10[ABS(ZQ) :X=50:Y=50 

80 IFX=0 L=SGN(Y)*1.5708:M=SGN(Z)*1.5708:GOTO90 

85 L=ATN(Y/X) :M=ATN(Z/X) 

90 IFB$="N"GOSUB 90 

100 SL=SIN(L) :SM=SIN(M) :CL=COS (L) *SM:Cm=C0S (M) :A4=SL*SM 

130 F0RI=1T08 

135 IFI-G2THEN A1=A(I,1) : A( I , 1) =A( I , 2) *SL-Al*SL+W: A( I , 2) =A( I , 3) * 

CM-A1*CL-A(I,2)*A4+E 

140 NEXT 

200 CLS:PRINT@0,X;Y;Z 

210 FORI=1TO8:IFG2=ITHEN240 

215 X0=A(I,1):Y0=A(I,2) :J=A(I,4) 

225 IFJ-G2 THEN X1=A( J, 1) : Yl=A( J, 2) :GOSUB700 

230 J=A(I,5) :IFJ=0ORJ=G2THEN240 

235 Xl=A(J,l) :Y1=A(J,2) :GOSUB700 

240 NEXTI 

250 GOSUB500 

260 IFC$="Y"THENRESTORE:FORI=lT08:READA(I,l) ,A(I,2) ,A(I,3) ,A(I,4 

) ,A(I,5) :NEXTI,ZQ 

270 STOP 

500 IF A$="N"RETURN 

503 LPRINT X;Y;Z:LPRINT 

505 FORI=0TO47 

510 FORJ=0TO127 

520 IFPOINT(J f I)THENLPRINT"#"; : ELSE LPRINT"."; 

530 NEXT: LPRINT: NEXT 

540 F0RI=1T016: LPRINT: NEXT:RETURN 

700 IFX0-X1THEN720 

710 FORR=Y0TOY1STEPSGN(Y1-Y0) :SET(R,X0) :NEXT:RETURN 

720 M=(Y0-Y1)/(X0-X1):BZ=Y0-M*X0 

730 FORR=X0TOX1STEPSGN(X1-X0) :SET(M*R+BZ , R) :NEXT:RETURN 

900 G1=0 

910 FORD=lT08:G=ABS(A(D,l)-X)+ABS(A(D,2)-Y)+ABS(A(D,3)-Z) : IFG>G1 

THENG1=G:G2=D 

920 NEXT: RETURN 

2000 DATA 0,0,0,3,0 

2010 DATA 0,0,20,5,1 

2020 DATA 0,20,0,6,0 

2030 DATA 20,0,0,1,7 

2040 DATA 0,20,20,8,3 

2050 DATA 20,20,0,4,8 

2060 DATA 20,0,20,2,0 

2070 DATA 20,20,20,7,0 

Program Listing 2 



NOBODY KNOWS MORE ABOUT 

ADDING MEGABYTES TO YOUR 

TRS-80 MODEL II* THAN 

AMERICAN SMALL BUSINESS 

COMPUTERS 



THE CAMEO CONNECTION 

The Cameo 10 Million Cha 
racier Disk Drive Subsystem 
(pictured in foreground) Is A 
5 Megabyte Fixed, 5 Mega- 
byte Removable Cartridge 
Type Disk Drive. Advan 
tages To This Unit Are Ease 
ot Backup For Data and Pro 
gram Files and Low Cost By 
Attaching A Multiplexor Unit 
Several Model lis Cen Be 
Attached To The Cameo Disk 
Drive. For Further Pricing. 
Availability, and Operating 
Systems Options. Call or 
Write to American Small 
Business Computers and ask 
for the CAMEO CONNEC 
TION. 




THE CORVUS CONNECTION 

The Corvus Disk Drive Sub 
system (center of picture) Is 
Available in 5. 10. and 20 
Million Char*:ter Capacities. 
The Corvu -vstem Is The 
Ultimate In The Sealed 
"Winchester, All Fixed" 
Type Dnv. % The Corvus Is 
Designed U Operate In The 
Harshest Environments Such 
As Factories. Oil Rigs. Etc 
Backup Of Data Is Accom 
p I 'shed Via Optional MIR 
ROR Backup Device Where 
by Data Is Written Onto A 
Standard Video Tape Record 
er. A Great Number ol 
Model H's May Be Attached 
To The Corvus Via An 
Optional CONSTELLATION 
Multiplexor. For Further 
Pricing, Availability, and 
Operating Systems, Call Or 
Write to American Smail 
Business Computers and Ask 
for the CORVUS CONNEC- 
TION. 



THE AMERICAN SMALL BUSINESS COMPUTERS MINI-WINCHESTER SPECIAL 

The M IN 1-5 (being held by Corporate President Robert Webster) Is American Smell Business Computer's Very Own 
Disk Subsystem. The MINIS Offers Approximotoly 5 Million Cherecters of Information Storege end is Besed On the 
Famous Seagale Technology ST 506 Micro Winchester Drive. Now You Cen Own State Of The Art Technology At An 
Affordable Price - Only $3580 - Which Includes Drive, Controller Electronics, Power Supply, Cebinet, Cebles, Docu- 
mentetion end Opereting System Software . 



DEALER INQUIRIES INVITED 
AMERICAN SMALL BUSINESS COMPUTERS .- 

•TM TANDYCORPORATION 

918 825-4844 



118 SOUTH MILL ST. 



PRYOR, OK. 74561 



xs 



AMERICAN 



118 SO. MILL ST • PRYOR, OK 74*61 
PHONE (918) 829-4844 



ALL LiSTtD PHiCfcS AHL CASH DISCOUNTED WE ACCEPT MC VISA. AND COO (REOUIRES CERTIFIED CHECK. CASHIER S CHECK OR 
CASH) FOR CHARGE ORDERS PLEASE ADD 3% FOR COD SERVICE. PLEASE ADD 5V SHIPPING AND HANDLING ARE FREE ON ALL 
ORDERS OKLAHOMA RFSlDEN T S PLEASE AD0 4% SAIESTAX 



72k EXPANSION INTERFACES 



SPECIAL OFFERING 

Due to a very special purchase. American 
Business Computers is able to offer a limited 
number of Radio Shack" Expansion Inter- 
faces at the lowest price ever 

AmeriJ.-i Business Computers guarantees 
Expansion interfaces to be Brand New - 
with original documentation and in perfect 
working condition 



J59 



95 




NEW PRODUCT FOR THE COLOR COMPUTER.. /PACKET MAN" BY GREG ZUMWALT 

In this exciting new adventure for the Color Computer*, you attempt to "eat" the dots and escape from the three 
I .- rminchkins who are always chasing you This game was written in machine code to take full advantage of the 

color computer' s capabilities Only $25.00 

MOON I .ANDF.R FOR THE COLOR COMPUTER By Greg Zumwatt .. Onfy $14 95 *sx 



OTHER STUFF & ODDS - AND - ENDS 



PAPER FOR YOUR PRINTER 
9 12 x 11 Tear off perforations 

and you have an 8 1/2 x 11 "cut sheet" 
3200 sheets of 15 pound paper |39 95 



CONTINUOUS ENVELOPES 
\ ii Fold Envelopes with traCtOI p«r- 
forations down either side Envelope 
size with perfs 4 1 2x11" 

PRICE 59.95 per 1000 

Price includes shipping 

in Continental U S. ,. 



• NOTICE • 

BY THE TIME YOU 

READ THIS, WE 
SHOULD HAVE OUR 

DIRT CHEAP 

MINI DISK DRIVES 

AVAILABLE FOR THE 

MOD III - 

PRICE: Less than 

$599.95 



DISGUSTING ! ! 



That's what we think 
about the price of 
most good "Fetter 
Quality" Printers Our 
5tarwriter is Bidirec 
iional and out "specs" 
the others hands 

down 

$1450°° 



SL 




J 



ATTENTION: 

CORVUS OWNERS 



American Business Computers NOW 
offers a fully compatible TRSDOS" 
operating system Our System, called 
CORDOS. runs all 10 MB. Revision B 
Corvus drives The Program in this 
package contains a Master Program 
which will convert a user ' s operating 
system disk (Version 2.0) to an en- 
hanced system capable of the fol- 
lowing 

Completely transparent use of 
the Corvus Hand Disk Drive 
Conipiete compatibility with 
existing programs 
-All utilities (except Format and 
Backup, which should not be 
used) will operate normally. 

Price $300.00 with manual 

DEALER INQUIRIES INVITED- 
CORDOS Author Andy Frederickson 
"TM of Tandy Corporation 
"TM of Corvus Systems 
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SMALL BUSIN 
COMPUTERS 





118 SO. MILL ST. • PRYOR. OK 74561 • (918) 825-4844 



•TM TANDY CORP 



SUPERPRINTER 

THE EPSON 

MX-80 




This is the new Epson MX-80 dot matrix printer It does just about everything you could 
ask a printer to do-quicKiy. quietly, reliably. In tact, lor OEM installations, the MX-80 may 
be the single best , all-around printer you can buy But that ' s not the best reason to buy it 

The MX-80 prints bidirectionally at 80 CPS in a user-defmed choice ot 40, 80, 66 or 132 
columns And it that's not last enough, its logical seeking function minimizes print head 
travel time The MX-80 prints 96 ASCII 64 graphic and eight international characters with a 
tack-sharp 9x9 matrix For a long time Epson printers are known lor reliability and the 
MX-80 is no exception But that s not the best reason to buy it. either. 

The print head has a lite expectancy ot up to 100 x 10 characters , and when it wears out, 
lust throw it away. A new one costs less than $30 and the only tool you need to change it is 
attached to the end ol your arm The MX-80 is compact, weighs only 12 lbs., and the whole 
unit, including the two stepper motors controlling carriage and paper feeding (unctions, is 
precisely controlled by an internal microprocessor. But even that isn't why you should 
specify the MX-80 

The best reason is this, because Epson 
makes more printers than anyone else In IF YOU BUY AN MX-80 AND DON'T 
the world, we can attord to sell each one CHECK OUR PRICE — YOU PAID TOO 
lor a little less MUCH! 

AW...WHAT THE HECK 

RAM Memory Chips for the TRS-80 



lOKIDATA MICROLINE 80 
PRINTER — $>99 00 

The Microime is built on a rugged cast alumi- 
num base to withstand the rigors of continuous 
business use It is driven by two motors and 
win run all day with no duty cycle limitations 
Microime printers use a dense 9x7 dot pattern 
to produce crisp, clean copies, first copy to last 
The seven pms m the head are tired' using 
energy stored in tension members This tech- 
nology permits the use ol short, low maas pins 
made with an extremely hard alloy Thfr ead 



It is the pol'Cy of American 
Business Computers to offer 
merchandise at the lowest 
price possible Several 

months back, we began sell- 
ing RAM Memory Chips for 
the TRS-80 for $45.00 
per set Someone else sc 3 
chips tor $44 00 We sold 
ihem for $38 00 They sold 
them for $37.95 So we say 
AW WHAT THE HECKi" 
Lel's see the other guys 
beat th s price. 



$19 



95 



PER 16K SET 



These chips are brand new 
"4116 s" These 200 nano- 
second chips are fully 
compatible with all TRS-80 
products Instructions for 
insertion are included, how- 
ever the dip shunts required 
for converting a 4K Mode I 
to a 16K Model I are not 
included at this low price. 



* CHECK IT OUT! • 

EPSON MX-8O1-T 

That's right - MX 80FT 
The FT on the end means Fr:< 
and Tractor The Fantastic MX-80 
Printer is now available in a version 
which will accept letterhead-type 
paper AND tractor type paper. Call 
or write (or our (as always) un- 
believable low price. 
Also available MX 70 and MX 100 ,> 



• RETROFIT YOUR* 
MX-80 TO AN MX-80FT 

ADD A PLATEN TO YOUR MX-80 
TO ALLOW USE OF LETTER- 
HEADS OR ROLL PAPER $69.95 



DIRT CHEAP ...$275 

But Highly Reliable Yes. our Mini Disk Drives have an estimated 
8000 Power-On Hours Mean Time Between Failure (That's 8 
Hours A Day. 5 Days A Week, for 3 85 YEARS) Our drives also 
feature a lead screw head positioner • not a cheap band type 
positioner If you purchase a Mini Disk Drive with a band type 
positioner, you are buying an INFERIOR PRODUCT! If you have 
any doubts about our drives, our ONE YEAR Warranty should 
convince you that we know this unit is the best drive at the best 
price on the American market This is one example where you can 
pay less and get more 



•TRS-80MODEL I VERSION 
Complete with Power Supply & Cabin 




7 






■See L/sl ot Advertisers on page 354 
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REVIEW 



A look at some advanced utilities for the serious hacker. 



Software Tools for the Craftsman 



Remodel and Proload 
Infinite Basic 
Racet Computes 
Orange, CA 

Maurice M. Small, Ph.D. 
University of Missouri 
5400 Arsenal St. 
St. Louis, MO 63139: - 



Any. programmer knows that TRS-80 
Level II Basic has limitations, primarily 
its lack of renumbering, merge and append 
functions. It is also difficult to add new 
statements and commands to the language. 
Finally, Level II Basic is an interpreted rather 
than a compiled language. This discour- 
ages a structured programming approach, 
making it difficult for even experienced pro- 
grammers to understand a long program 
several months after it was written. Three 
utilities available today all but eliminate 
these limitations. 



Remodel & Proload 

Remodel & Proload by Racet Computes 
of Orange, CA, comes in three versions 
(16K, 32K and 48K), loads into the top of 
memory with the System command, and is 
approximately 3K long. Also included are 
two well-written user's manuals which 
document the utility in a straightforward 
manner with text and examples. The pro- 
gram comes on a high-quality cassette (two 
copies on the same side), loads without 
hitch (in six months of frequent use I have 
yet to experience a loading problem), and 
can be easily transferred to disk or stringy 
floppy. 

Remodel (REnumber MOve DELete) gives 
complete freedom in renumbering any por- 
tion of a Basic program (or the entire pro- 
gram) and in moving or deleting sections of 
Basic code (either a line or a complete sub- 
routine) at will. 

About the only restriction on this free- 
dom is that Remodel and Proload will not 
execute a command to overwrite an exist- 
ing line. For example, if you tried to move a 
section of code into an area where it would 
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overlap other lines (e.g., move lines 10 and 
20 between lines 30 and 31) Remodel and 
Proload will give you an error message 
(Range Bad Redo) and return you to the in- 
put state. 

This procedure could be accomplished, 
though, if you renumber line 30. 

The command format is simple and 
straightforward, and it returns to the com- 
mand input state after executing each com- 
mand. This is convenient for executing a 
series of commands. Exit and reentry are 
also uncomplicated: Simply depress the 
Break key (return to Basic) or type ? USR (0) 
(reenter Remodel and Proload). The other 
side of the cassette contains two copies of 
just Remodel. Since Remodel alone takes 
about 1K less room than the combination, 
load this side of the tape when memory 
space is at a premium. 

With Remodel and Proload you can 
develop a library of data statements or 
string literals (1000 A$= "in capital 
letters"). Since Proload allows partial or 
complete loads, loading programs from 
tape, and appending or merging them with a 
program in memory, you can effortlessly 
pass data statements and even USR rou- 
tines (if the USR routines are stored in 
data/string literal statements) between pro- 
grams. This method is considerably faster 
than using Input #—1 and Print #—1 
statements. 

Possibly of even greater importance, 
Remodel and Proload encourages struc- 
tured programming. The program is divided 
into two major parts: a control section con- 
sisting of a loop which calls in sequence the 
relevant subroutines via GOSUB state- 
ments, and a list of subroutines which make 
up the body of the program. Proload creates 
a library of useful general and special- 
purpose routines which can then be ap- 
pended or merged into your application pro- 
gram as needed. Not only does this simplify 
debugging and greatly increase your pro- 
gramming productivity, but with proper 
documentation it also makes your pro- 
grams more readable and understandable. 

I can now create long and complex pro- 
grams in much less time than it took to 
write, type in and debug many shorter sub- 



routines in the library. Remodel and Proload 
has increased my productivity at least 
threefold. 

Infinite Basic and Extensibility 

Infinite Basic comes in two versions (cas- 
sette and disk) on a high-quality cassette, 
and includes two well-written and complete 
manuals. Infinite Basic has a system mod- 
ule (basic interface, system routines and 
linking loader) as well as several applica- 
tion modules (Infinite String— 50 new string 
functions, Infinite Matrix— 30 new matrix 
functions, and Infinite Business— selling 
separately for $29.95 but requiring Infinite 
Basic and providing 20 additional func- 
tions). 

Obviously with so many functions avail- 
able not all of them are loaded into RAM at 
once. The user must first select the func- 
tions for a particular application program, 
and, with the systems module, create a ma- 
chine language load module containing 
these desired functions. This load module 
can reside at almost any memory location. 
It is then saved separately on cassette, disk 
or wafer. When reloaded the load module 
provides the desired functions. The Infinite 
Basic functions run considerably faster (at 
machine language speed) and are more 
compact than similar Level II Basic subrou- 
tines. Moreover, the machine language load 
modules can be stored in Basic statements 
(data, string, string literals and dummy REM 
statements). Thus, the modified load mod- 
ule can be selectively loaded and saved by 
Proload (like Basic subroutines) as well as 
becoming a permanent part of the user's 
application program. 

Infinite Basic Functions 

The Matrix Input/Output group— the 
Matrix Read and Write Tape as well as the 
Matrix Data Read and Restore state- 
ments—are extremely efficient because 
they operate on entire blocks or arrays. This 
speeds up data (string and/or numeric) in- 
put and output at least twofold. 

The statement format allows you to 
specify the number of elements to be 
operated on, a block number permitting on- 
ly selected parts of the data tape to be read 



by a subsequent Matrix Read Tape state- 
ment, and the cassette number (0 or 1). 
Similarly the Matrix (data) Element Read 
and Restore statements, which operate on 
data statements, are considerably faster 
than their Level II counterparts. They allow 
you to specify the number of data elements 
to be read in addition to the Basic state- 
ment (line) number, where any subsequent 
read will begin. 

The Infinite Basic Matrix package also 
contains a generalized subroutine Call and 
Return function. These functions, as in For- 
tran, permit you to temporarily specify vari- 
able names corresponding to those used in 
a subroutine and are very useful, for exam- 
ple, if you have a subroutine to sum the data 
from several different arrays. 

The Infinite Basic String package uses a 
number of functions to compress and de- 
compress strings and data from eight bits 
per character to four, five, six, or seven bits 
depending on the type of character involved 
(numeric, alphabetic, alpha/numerics and 
alpha/numerics containing lowercase char- 
acters respectively). Also included are func- 
tions which pack and unpack character 



"In a nutshell, Infi ie Basic 

confers upon your Level II ROMs 

a considerable degree of extensibility. " 



strings by special encoding of repeated 
characters. 

Appropriate use of these functions often 
lets you store a lot more data in memory 
than you could otherwise. String transla- 
tion functions (a character-by-character 
translation of one string into another), 
string manipulation functions (justification, 
truncation, packing, shifting, rotation, dele- 
tion and insertion), as well as others, are 
supported. 

The Absolute String Manipulation func- 
tions enable you to manipulate strings di- 
rectly without the considerable overhead in- 
herent in the use of the Basic MID$, LEFTS, 
or RIGHTS statements. For example, con- 
sider: 10 A$= "ABCD..GHIJ" 20 A$ = 
LEFT$(A$,4) + "XX" + RIGHT$(A$,4). Line 20 
creates three separate strings (LEFTS part, 
LEFTS + "XX", and the final result) in the 
string storage area. 

By allowing you to directly manipulate 
strings, the Infinite Basic functions (such 
as &STIN-String Insert) all but eliminate 
string reorganization problems, which oc- 
cur because garbage collection routines in 
the Basic monitor must take time out to 



eliminate some of the overhead produced 
by string manipulation in order to make 
room for new text. 

Finally, the sorting functions of Infinite 
Basic are extremely powerful, flexible and 
fast (30 times faster than the fastest sorts 
in Basic). 

Infinite Basic provides to the Level II or 
Disk Basic user a wide range of powerful 
functions (100 in all if you purchase Infinite 
Business). This is like having a library of 
tested, well-documented and highly opti- 
mized machine language user routines. 

Since the Infinite Basic functions are 
called by Basic-like statements, you don't 
have to use the awkward and slow USR 
command every time you need a new func- 
tion. Furthermore, you add just the Infinite 
Basic enhancements that you need, making 
for efficient use of memory. 

In a nutshell, Infinite Basic confers upon 
your Level II ROMs a considerable degree of 
extensibility. For me this has often 
eliminated the need to resort to Assembly 
programming when my application pro- 
gram required specialized, extremely fast 
subroutines. ■ 



SAVE^UP TO $600.00 NOW 
on TRS-80" Computers & Accessories 

With This Coupon 

Now you can own a great little computer at a great big dicount off the manufacturer's 
list price. For home or office use the Radio Shack line of computers is first in quality, 
performance and price. 

• FREE SHIPPING in the 48 continental contigious states. Model 

• NO SALES TAX collected on out-of-state orders 

• CONVENIENT ORDERING Call us TOLL FREE. 
•FREE COMPLETE PRICE LIST available upon request. 




Catalog Charge 

Number Description List Price By Phone 

Radio Shack- TRS-80 Model II 

26-4002 64K 1-Disk Model II 3,899.00 3,579 30 

Radio Shack' TRS 80 Model III 

26-1062 Model III 16K 999.00 865.00 

26-1066 Model III 48K 2.495.00 2,243.50 

Radio Shack* TRS-80 Color Computer 

26 3001 4K Color Computer 399.00 359.10 

26-3002 16K Color Computer 599.00 539.10 

Atari* CX 2600 Video Computer System 180 00 164 95 

Pioneer VP 1000 LaserDisc Player CALL FOR PRICES 

Mattel Electronics* Intelli vision " Home Video System CALL FOR PRICES 

Magna vox- Odyssey 2 Home Video System CALL FOR PRICES 

Magna vox" Magna vision Videodisc Player CALL FOR PRICES 



Cashier's 
Check Or 
Money Order 

'3,299.00 

865.00 
•2,149.00 

359.10 
539.10 
164.95 



Cash Price 
You Save 

600.00 

134.00 
346.00 

39.90 
59.00 
15.05 



Pan American 
Electronics. 



CALL TOLL FREE 800-531-7466 • (Operator 49) • Texas & Principal Number 512/581-2766 • Telex 767339 

Dept. 49 • 1117 Conway Avenue • Mission, Texas 78572 
NEW BRANCH 

2912 N. Main, Fort Worth, Texas 76106 * Phone Number 817-625-6333 • Telex 794836 



TRS-80 is a Trademark of Tandy Corp. 'With this coupon only! Prices subject to change without notice. 
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TUTORIAL 



Change the image of Level II Basic by adding to its lexicon, 



New Words for Basic 



Alan Neibauer 
11138 Hendrix Street 
Philadelphia, Pa. 19116 



If you've ever run into some of the extend- 
ed Basic features and were unable to find 
them in your Level II manual, don't give up. 
This happened to me while working on the 
DEC computer at LaSalle College in Phila- 
delphia. I noticed some strange statements 
peeking at me from my neighbor's terminal, 
but once I saw how they worked I knew 
there had to be a way to use them on my 80. 

Change 

Since, there were a few nice programs 
that I wanted to try on my own machine, I 
started working out appropriate subrou- 
tines. The first add statement I encountered 
was Change. This usually takes the form: 
Change X$ to X. " 

This establishes the array X(n..len n) 
assigning to each array element the ASCII 
value of each letter in the string. For exam- 
ple, if the string Micro is changed through 
the Change A$ to A statement, an array A 
with six elements is established. Elements 
A(1) to A(5) are assigned the ASCII codes for 
the letters M I C R O. In this case, the array 
is 77, 73, 67, 82, 79. What about the sixth ele- 
ment? The zero subscript A(0) is assigned a 
number equal to the length of the string. In 
this case A(0) = 5 (or in Level II, A(0) = 
Len(A$). Program Listing 1 demonstrates 
how this would appear in a short program 
converting a string to its ASCII equivalent 
and printing the resulting array. 

This Change statement also works in re- 
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verse: Change A to A$. This converts the 
ASCII codes back to letters and restuctures 
the original string. However, the zero sub- 
script is untouched and usually is con- 
verted into an individual program line. Pro- 
gram Listing 2 demonstrates this reversal. 

By combining the ASC and MID$ func- 
tions, you can use a short subroutine when- 
ever Change is called for. By converting 
each string element to its ASCII code and 
assigning this code to an array element, the 
Change function can be simulated on the 
TRS-80. The same holds true for the rever- 
sal. Through the CHR$ function, you can 
convert the ASCII back to its letter 
equivalent and print the entire string. (See 
Program Listing 3.) 

The actual Change subroutines are lines 
1000-1030 and 2000-2030. This sample pro- 



gram requests a string to be changed. The 
first subroutine converts A$ into the array A 
assigning ASCII values to each array ele- 
ment, returning to the program body and 
printing the results. Line 1000 allows us to 
loop only the number of times needed to 
change each element of the string. These 
elements are pulled apart by the MID$ func- 
tion on line 1010 and assigned ASCII codes. 
Line 1030 takes care of the zero subscript. 
When the program is sent to the second 
subroutine, the Change A to A$ function is 
simulated. Line 2000 establishes the 
number of loops. Line 2010 converts each 
array element (remember— an ASCII code) 
and assigns it to a string array X$. In line 
2020, each temporary X$ array is added or 
linked to form a new string, B$. When the 
loops are completed, the final B$ contains 



'NEIBAUER, ALAN *ITS STILL BASIC. * 

'a$=-S? C RO- ™ E CHANGE FUNCTI0N " » 0ES N0T RUN ON TRS-80!!! 1 
CHANGE A? TO A 
FOR X=l TO A(0) 
PRINT A(X) ; 
NEXT 

Program Listing 1. The Change Function. 



5 'NEIBAUER, ALAN *ITS STILL BASIC * 

6 'FIGURE 2, SIMULATION OF CHANGE A TO A$-D0ES NOT RUN ON TRS-80 
111! 

10 CHANGE A TO A$ 
20 FOR X=l TO A(0) 
30 PRINT A$(X) ; 
40 NEXT 

Program Listing 2. Change A to A$. 



the original input string A$. This is printed 
in line 120. 

From now on, the Change function 
shouldn't scare you away from useful pro- 
grams. Program Listing 4 demonstrates 
this useful idea in a simple children's game, 
Hangman. 

image 

Another statement is Image. Image, how- 
ever, is simply a method of formatting a 
Print Using statement in an individual pro- 
gram line. This could appear as: 

100 PRINT USING 200.A 

200 :AREA IS ##.## SQ. MILES. 

In this case, line 200 specifies the Print 
Using format and is referred to in line 100. 
While Level II Basic does not recognize the 
Image statement, it does recognize strings. 
The lines above can easily be converted to 
TRS-80 language by assigning the format 
line 200 to a string and making reference to 
that string in the Print Using line. Of course, 
the format string would come first: 

90 A$ = "AREA IS ##.## SQ. MILES." 
100 PRINT USING A$,A 

If you run across any Image statements, 
simply convert the Image lines (those start- 
ing with the colon) into strings and replace 
the Image line numbers referred to with the 
appropriate string. 

Matrices 

Finally, some extended Basics make 
great use of multi-dimensional arrays, call- 
ed matrices. While the Level II manual sug- 
gests a number of useful array/matrix 
manipulation subroutines, these won't help 
if you come across a Mat Read or Mat Print. 



"From now on, the Change function shouldn't 
scare you away from useful programs." 



However, there is nothing in Mat 
statements the TRS-80 cannot handle. 

The Mat Read statement reads from data 
a multi-dimensional array. For example: 

10 DIM A(3,3) 
20 MAT READ B 
30 MAT PRINT B; 



40 DATA 1,2.3.4,5,6,7,8,9 

would read and print the following matrix: 



We can do the same thing in our own 
Basic, however, it takes a few mere lines. In 



5 'NE I BAUER, ALAN *ITS 


STILL BASIC 


* 


6 'FIGURE 3 LEVEL 2 SIMULATION 


OF 


CHANGE 


10 'CHANGE SUBROUTINES 


- FIRST 


IS 


CHANGE A$ TO A 


30 INPUT A$ 








40 GOSUB 1000 








50 FOR X=l TO A(0) 








60 PRINT A(X) ; 








70 NEXT 








7 5 PRINT 








80 'NEXT IS REVERSAL - 


CHANGE A 


TO A$ 


90 'OUTPUT B$ = INPUT 


A$ 






110 GOSUB 2000 








120 PRINT B$ 








130 END 








1000 FOR X=l TO LEN(A$) 






1010 A(X)=ASC(MID$(A$, 


x,D) 






1020 NEXT X 








1030 A(0)=LEN(A$) 








1040 RETURN 








1999 END 








2000 FOR X = l TO A(0) 








2010 X$(X) =CHR$(A(X) ) 








2020 B$=B$+X$(X) 








2030 NEXT X 








2040 RETURN 








Program Listing 3. Leve 


// Simulation 


of 


Change. 



OMNITERM 

What is OMNITERM? 

OMNITERM is a professional communications package for the TRS-80 that allows 
you to easily communicate and transfer files or programs with almost any other 
computer We've never found a computer that OMNITERM can't work with. It's a 
complete package because it includes not only the terminal program itself, but also 
conversion utilities, a text editor, special configuration files, serious 
documentation and serious support 

Why do I need it? 

You need OMNITERM if you need to communicate efficiently with many different 
computers, or if you want to customize your TRS-80 for use with one particular 
computer You need OMNITERM to SOLVE your communications problems once 
and for all 

What do I get? 

The OMNITERM package includes the OMNITERM terminal program, four 
conversion utilities, a text editor, and setting files for use with popular computers 
such as CompuServe, the Source, and Dow tones — just as samples of what you can 

jmdbergh Systems 



The ULTIMATE TRS-80 Terminal Package 



do for the computer you want to work with The package includes six programs, seven 
data files, and real documentation a 76-page manual that has been called "the best in 
the industry." And OMNITERM comes with real user support We can be reached 
via CompuServe, Source, phone, or mail to promptly answer your questions about using 
OMNITERM 

What do I need to use OMNITERM? 

A Model I or Model III TRS-80. at least 32K of memory, one disk, and the RS-232 
interface OMNITERM works with all ROMs and DOSes. and will work with your 
special keyboard drivers 

What will it do? 

OMNITERM allows you to translate any character going to any device: printer screen, 
disk, keyboard or communications line, giving you complete control and allowing you to 
redefine the character sets of all devices It will let you transfer data and run your 
printer while connected for a record of everything that happens OMNITERM can 
reformat your screen so that 80. 32 or 40 column lines are easy to read and look neat on 
youi TRS-80 screen It even lets you get on remote computers with just one keystroke 1 
The program lets you send special characters, echo characters, count UART errors 
configure your UART. send True Breaks and use lower case It accepts VIDEOTEX codes 
giving you full cursor control. It will even let you review text that has scrolled off 
the screen' Best of all. OMNITERM will save a special file with all your changes so you 

49 Beechmont St.. Worcester, MA 01609 (617)799-2217 so^tcasis 



can quickly use OMNITERM for any 
one of many different computers by 
loading the proper file It's easy to use- 
since it's menu driven, and gives yoj a 
full status display so you can examine 
and change everything 

"OMNITERM has my vgte as the top 
TRS-80 terminal program available today'' 
Kilobaud Microcomputing, lune 1981 
pages 16-19 

OMNITERM is S95 (plus shipping if 
COD) Call tor 24 hour shipment Manual 
alone J15. applied toward complete pack- 
age Visa, M/C, and COO accepted MA 
residents add 5% tax Dealer inquiries 
invited 

Contact Lindbergh Systems for your 
custom programming needs. We are 
expert at writing software to work with 
YOUR hardware, in assembler, high-level 
language, or Forth. 

CompuServe 70310261 TRS-80 is a '" ol Tandy Corp 
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TRS-80™* Models 1 & 3 

SOFTWARE 

SYSTEM DIAGNOSTIC $99.95 

Tests every component of your TRS-80 
for proper operation: ROM, RAM. Video 
Display. Keyboard. Line Printer, Cassette 
Recorder, Disk Drives, RS-232 Interface. 
Continuous or monitored operation. 

SMART TERMINAL $69.95 

The intelligent telecommunication pro- 
gram that enables 'your TRS-80 to be 
used as a timesharing terminal. Automatic 
transmission to and from another com- 
puter. Control keys, break key, lower 
case, cassette and disk files compatible 
with both Electric Pencil - " and Scripsit 
programs. 

MONITOR |3 ( $39.95 

Disassembler, memory display, move, 
search, verify, modify, read and write 
machine language cassettes, object code 
re'ocator. hexadecimal arithmetic, 
'• . lbolic disassembly output. 

MONITOR #4 $49.95 

Same as Monitor #} but adds disk file and sec- 
tor input/output. RS-232 communications. 

PENCIL PATCH $19.95 

Fixes the Electric Pencil" Model 1 ver- 
sion so that it runs on the Model 3. (You 
must already own the Model 1 version.) 

GRAPH PRINT $19.95 

Creates formatted print-out on the 
Epson MX-80 printer. Enhanced print 
modes print quality text surrounded by 
graphic border. Editing, disk save/reload, 
text entry, error testing. 

Send S.A.S.E. for P£fcE Catalog. 

HOWE SOFTWARE 

14 Lexington Road, NewCity, NY 10956 
TRS-80 is a registered trademark of the 

Radio Shaik division of Tandy C orp. ^ '03 



r HARD DISK FOR ^ 

TRS-80* 

MODELS I & III 

$2495 

• 5 megabyte formatted capacity 

• Controller, case, power supply, and cable 
included 

• Software interface 

• LOW PRICE 

NOW is the time to upgrade your Mod I or III 
to incorporate the latest technology in 
reliable mass data storage. We are able to 
bring you Winchester disk drives for this 
fantastic price due to quantity purchases and 
high technology design. EVERYTHING need- 
ed to add a "Winnie" to your system is 
provided. 
FEATURES: 

• Seagate ST506 5.25 inch disk drive 

• 5.0 Mbits/sec transfer rate 

• 3 msec track-to-track access time 

• 8.33 msec latency 

• 32 256-byte sectors per track 

• 4 read /write heads 

• Winchester controller 

• Read/Write/Format macro-commands 

• Automatic CRC checking 

• Sector interleave capability 

• "Bad Block" mark and detection 

• Software interface to disk BASIC 

• Complete documentation 

• Cooling fan 

• 90 day warranty 

ACT NOW to take advantage of this special 
offer. $2495 is the TOTAL price including 
shipping via UPS in the continental United 
States. 

Order [specify MocM I or III] from: 

PSM Inc. 

P.O. Box 1877 

Kettering, OH 45429 ^66 

Charge Cards & COD's WELCOME! 

Ohio residents add sales tax, 

^ 'TRS-80 is a trademark of Tandy Co. a 



"You might want to try your own 

hand at taming foreign Basic statements." 



our Basic, each row must be read by column 
and printed, then the next row, and so on. 
While this takes a little longer (see Program 
Listing 5), useful programs having Mat 
Read and Mat Print statements need not be 
tossed aside. 
You might want to try your own hand at 



taming foreign Basic statements. The Level 
II manual tells how to simulate the Instring 
function found on some computers. But it 
doesn't go into user-defined functions or 
margin statements— two perfect places to 
start working up your own extended Basic 
subroutines.! 



'SIMULATE CHANGE D$(I) TO D 



5 'NE I BAUER', ALAN *ITS SILL BASIC....* 

6 ' FIGURE 4 -HANGMAN PROGRAM 
10 RANDOM 

20 DIM D$(100) ,D(10) 
25 CLEAR 200 
3 FOR D=l TO 10 
40 READ D$(D) 
50 NEXT D 
60 I=RND(10) 
70 GOSUB 1000 
80 FOR Q=l TO D(0) 
90 K(Q)=ASC("-") 

100 NEXT Q 

120 PRINT@832, "GUESS A LETTER"; 

130 INPUT A$ 

140 A=ASC(A$) 

150 FOR J=l TO D(0) 

160 IF AOD(J) THEN 180 

170 K(J)=A 

180 NEXT J 

185 PRINT@ 47 8," 

190 FOR Q=l TO D(0) 

210 PRINT CHR$ (K(Q) ) ; 

220 NEXT Q 

230 GOSUB 1500 'SIMULATE CHANGE D TO B$ 

240 IF B$OD$(I) THEN B$ = "":GOTO 120 

250 PRINT @832,"GOOD WORK! YOU GUESSED THE WORD" 

500 DATA THIS, IS, THE, LOCATION, FOR, WORDS, TO, BE, GUESSED, END 

1000 FOR X=l TO LEN(D$(I)) 

1010 D(X)=ASC(MID$(D$(I) ,X,1)) 

1020 NEXT X 

1030 D(0)=LEN(D$(I) ) 

1040 RETURN 

1050 END 

1500 FOR X=l TO D(0) 

1510 Y$(X)=CHR$(K(X)) 

1520 B$=B$+Y$(X) 

1530 NEXT X 

1540 RETURN 

Program Listing 4. Hangman. 



5 'NEIBAUER,ALAN *ITS STILL BASIC * 

6 'FIGURE 5 - SIMULATION OF MAT/MAT READ 
10 FOR R0W=1 TO 3 

20 FOR COL=l TO 3 

3 READ B( ROW, COL) 

40 PRINT B( ROW, COL) ; 

50 NEXT COL 

60 PRINT 'FORCES CARRIAGE RETURN 

70 NEXT ROW 

80 DATA 1,2,3,4,5,6,7,8,9 

Program Listing 5. 
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THE NEW LAREDO LS525. 

WHEN YOU'RE READY 

TO GET DOWN TO BUSINESS. 



Laredo Systems, Inc. introduces the 
LS525 five megabyte rigid disk memory 
system for TRS80 Models I and III. 
Laredo's LS525 rounds up a Seagate 
ST506 Drive, LDOS Operating System by 
Logical Systems, and Laredo's own LSI 




500 Series Controller into a single-board 
controller that emulates the famed IBM 
3370 disk system, complete with: 
• Improved read/write/seek access time 
through full block buffering and variably 
tuned interleave. 



• On-board data separator, micro-code 
diagnostics and write-precompensation. 

• Increased disk media reliability and 
data integrity with automatic defect block 
allocation and extended ID fields. 

• Versatile CPU compatibility provided by 
separate host adaptor. 

Introductory Offer To TRS80 Users. 

Now through October 1 , 1981 buy the 
LS525 for the OEM/dealer price of 
$2990, a savings of $760 off the usual 
suggested retail price of $3750. 

LDOS Operating System 
with manual and diskette 
available for $149. 



For more information about the LS525 

Memory System and the LSI 500 Series 

Controller, contact: 

Laredo Systems, Inc. ^26 

669 Giraudo Drive, San Jose, CA 951 1 1 

(408) 629-2283 




kirado yfetam> Inc. 



'See List ot Advertisers on page 354 
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UTILITY 



An assembly language program to delete spaces and remarks. 



The Memory Expander 



Tim Kenealy 
1235 Folks tone Ct. 
Wheaton, IL 60187 



Many people are lucky when it comes to 
programming the TRS-80. Many peo- 
ple are not and receive OM errors. If you 
type your programs with many spaces and 
remarks, you might get some too. 

Described in this article is an assembly 
language program that deletes spaces and 
REMs in a Basic program. It will not delete 
spaces inside quotes or in data lines. This 



42E9H I7I29 DEC. 



will reduce a program's size, saving mem- 
ory, and the program will run faster. 

Basic Program Storage 

Before I can explain my program, there is 
some information on program storage in 
memory to be learned. Look at Fig. 1. The 
Basic program storage buffer starts at 
42E9H, or 17129 decimal. Each line is stored 
one after the other. After the last line in the 
program, the variable chart starts. 

Now look at Fig. 2. Each line has four 
bytes preceding the actual data of the line. 
The first two bytes are the LSB and MSB of 
the pointer to the next line. If X = the LSB of 
the pointer and Y = the MSB, then X + 



VARIABLE CHART 



: ' .- 



LINE I 



LINE 2 



LAST LINE 



SIMPLE 
VARIABLES 



ARRAYS 



Fig. 1 Basic Program Storage. 



END ZERO 


THESE ZEROS 




LINE POINTER 








END PROGRAM 








END ZERO 
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Fig. 2. Basic Line Storage. 
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256(Y) will give you the start address of the 
next line. 

The last two bytes of the beginning four 
is the line number (least significant byte 
first). The above formula will give you the 
line number. 

After the four byte overhead, the actual 
data comes. All Basic reserved words have 
a one byte code. This code can be found in 
the Level II manual. All other characters are 
stored as their ASCII equivalent. After the 
line is complete, a zero follows. Then the 
next line starts. After the end zero of the last 
line, two more zeros mark the end of the pro- 
gram. 

After the program, the variable chart 
starts. The first part is made up of simple 
variables, and the second part is made up of 
arrays. Addresses 16633-16638 decimal 
hold the pointers to these charts. 

What the Program Does 

To have a successful space and REM 
deleter, the program must delete the 
spaces and remarks and push everything 
together. My program takes one line at a 
time, places it in a buffer, reduces it and 
brings it back into the Basic buffer. 

Let's go through the program step by 
step. In the beginning, the screen is cleared, 
and a message is displayed on the screen. 
BUFF1 and BUFF2 are two-byte buffers. 
BUFF1 always points to where in memory 
the current line stored in the work buffer will 
be replaced. BUFF2 points to where the 
next line up in memory is. 

BUFF1 is initialized at 42E9H, because 
that's where the basic buffer begins. BUFF2 
is initialized in lines 170-180. At line 190, HL 
is set at 42E9H, the first byte of the first line. 

Starting at line 210, the line to be reduced 
is put in a work buffer. The first four bytes 
are put in with an LDIR, because that is the 



"When the Assembly program is finished. . . 

all spaces and remarks will be gone, but spaces 

in quotes and data lines will still be there." 



overhead and may contain zeros. From 
lines 240 to 300, the rest of the line is put in 
the work buffer. 

Now the line is reduced. BC is set at zero, 
since it is used later. HL is loaded with the 
first byte after the line overhead. 

The first byte is checked for a 147, the 
code for REM, because if the line is deleted, 
the line number will be left, unless the pro- 
gram deletes it too. 

Starting at line 360, a series of checks are 
made of the byte. When the final zero is 
found, the line is totally reduced. If none of 
the checks are true, HL is incremented, and 
the next byte is checked. 

Let's go through each routine. At line 510 
is the data routine. The C register is loaded 
with a one to tell the program that it's in a 
data line. That way, no spaces will be 
deleted while C equals one. HL is incre- 
mented, and the next byte is checked. 

At line 540 is the colon routine, which is 
used only to get out of a data line. First, the 
routine checks if the line is in data form (if C 
register is one). If it is not, then the matter is 
dropped. HL is incremented, and the next 
byte is checked. 

If the program is in a data line, the B reg- 
ister is checked for a one. This means that 
the colon is in quotes. If it does equal one, 
then the program goes back to the checking 
routine. 

If C is a one, and B is a zero, then the data 
line is over. C is loaded with zero to tell the 
program that there is no more data. 

Starting at line 630 is the quote routine. 
All it does is load B with zero if it's one or 
load B with one if it's zero. B equals one if 
the line is in quotes at the time. HL is incre- 
mented and the next byte is checked. 

At line 710 is the space routine. First, the 
routine checks if the space is inside quotes, 
using the B register. If so, then HL is incre- 
mented and the next byte is checked. 

If the space is not in quotes, then the 
routine checks to see if it is in a data line. If 
it is, HL is incremented and the next byte is 
checked. 

If neither is true, then the space must be 
deleted. HL is saved on the stack and load- 
ed onto IX. Lines 820 to 880 delete the space 
by pulling all following bytes back one slot, 
demolishing the space. HL is then restored, 
and the program goes back to the checking 
routine. 

At Iine910 is the REM routine. Since most 
programs have a ":REM" at the end of a line, 
the colon must be deleted also. HL is decre- 
mented to point to where the colon would 
be. The test is made and if it is a colon, the 
routine goes back to see if there is another. 
When all colons are found, the program 
places a zero to mark the end of the line. 
When the end zero is encountered in the 
checking routine or at the end of the REM 



routine, the program goes to line 970. 

When the program gets to line 970, the 
Basic line is totally reduced- BUFF1 points 
to where in memory this line will be re- 
placed. BUFF2 points to where the next line 
in memory begins. 

First, the line is copied back into memory, 
the overhead with an LDIR and the rest from 
lines 1010 to 1070. After the line is re- 
copied, DE is incremented to point to where 
the next line will start when it's reduced. 

Now, HL is loaded with the first byte of 
the current line. The bytes at (HL) and 
(HL+1) are the pointers to the next line. 
Since the line has been changed, the point- 
ers must be set. That is done at lines 1 100 to 
1120. 

HL is loaded with the address of where 
the next line starts in memory. The first two 
bytes of the line would be the pointer. If 
these two bytes are zeros, the program is 
over. 

HL is incremented to point to the MSB of 
the pointer. I only check that byte for a zero, 
because it alone wouldn't be zero unless 
the program was over. 

At line 1 180, BUFF1 is set up for the next 
line. Then BUFF2 is set up, one byte at a 
time. HL points to the first byte of the next 
line, and everything is all set to reduce a 
new line. At line 1260, a jump is made to 
reduce the new line. 

At line 1270 is the Allrem routine. This 
loads DE with the address stored in BUFF1 . 
Then the program goes back to line 1130 to 



test for the end of the program, and so on. 
The program goes to line 12j- when the 
whole Basic program is reduced. The two 
ending zeros are placed. Then lines 1350 
1370 set up the variable chart. Finally, the 
program jumps back to Basic at line 1380. 

How to Use the Program 

Type in the program with the editor/as- 
sembler. The program, as is, is for 16K. It is 
fully relocatable, though. For4K change the 
ORG and End addresses to 4DF2H. For 32K, 
change them to 0BDF2H. For 48K, 0FDF2H. 

When you're ready to use the program, 
power up the computer. Answer the Mem- 
ory Size question with 19953 for 4K, 32241 
for 16K, 48625 for 32K, and 65009 for 48K. 

Type "SYSTEM (enter)". Then type the file 
name you used. After loading is finished, hit 
the Break key. Now you can type in or load a 
Basic program. 

When you are ready to delete spaces and 
REMs from the program, type "SYSTEM", 
then type a / followed by the starting ad- 
dress. For 4K, the address is 19954. For 16K, 
it's 32242. For 32K, the address is 48626, 
and for 48K, 65010. 

When the assembly language program is 
finished, List your program. All spaces and 
REMs will be gone, but spaces in quotes 
and in data lines will still be there. 

One final note: If a whole line is a remark 
but you used the apostrophe, a line number 
will remain with nothing after it. Just look 
through your list, and delete those lines.B 



Program Listing 1. 



7LF2 


00100 




ORG 


7DF2H 






7DF2 CDC901 


00110 




CALL 


1C9H 


; CLEAR SCREEN 




7DF5 21E17E 


00120 




LD 


HL,MSSG 


.•MESSAGE 




7DF8 CDA728 


00130 




CALL 


28A7H 


; DISPLAY IT 






00140 


;SET UP i'~ 


AND BUFF2 






7DFB 21E942 


00150 




LD 


HL,42E9H 


; BASIC BUFFER 




7DFE 22FD7E 


00160 




LD 


(BUFFI) ,HL 


;SAVE IN BUFFI 


- 


7E01 2AE942 


00170 




LD 


HL, (42E9H) 


;LINE POINTER 




7E04 22FF7E 


00180 




LD 


(BUFF2) ,HL 


;SAVE IN BUFF2 




7E07 21E942 


00190 




LD 


HL.42E9H 


; BASIC BUFFER 






00200 


; COPY 


BASIC LINE INTO INPUT/OUTPUT BUFFER 




7E0A 11017F 


00210 


COPY 


LD 


DE, BUFFER 


; STORAGE BUFFER 




7E0D 010400 


00220 




LD 


BC,4 


;4 BYTES 




7E10 EDB0 


00230 




LDIR 




;TRANSFLR THEM 




7E12 7E 


00240 


MORE 


LD 


A, (HL) 


;BYTE TO TRANSFER 




7E13 12 


00250 




LD 


(DE) ,A 


; TRANSFER IT 




7E14 B7 


00260 




OR 


A 


;IS IT ZERO? 




7E15 2804 


00270 




JR 


Z,DONE 


;GO IF DONE 




7E17 23 


00280 




INC 


HL 


;BUMP — 




7E18 13 


00290 




INC 


DE 


; POINTERS 




7E19 18F7 


00300 




JR 


MORE 


;GET NEXT BYTE 




7E1B 010000 


00310 


DONE 


LD 


BC,0 


; INITIALIZE BC REG. 




7E1E 21057F 


00320 




LD 


HL,BUFFER+4 


;PAST 4 BYTES 




7E21 7E 


00330 




LD 


A, (HL) 


;BYTE TO CHECK 




7E22 FE93 


00340 




CP 


147 


;LINE ALL REM? 




7E24 CAC97E 


00350 




JP 


Z, ALLREM 


;TO ROUTINE 




7E27 7E 


00360 


CHECK 


LD 


A, (HL) 


•BYTE TO CHECK 




7E28 FE88 


00370 




CP 


136 


;IS IT DATA. LINE? 




7E2A 2816 


00380 




JR 


Z,DATA 


;TO ROUTINE 




7E2C FE3A 


00390 




CP 


3 AH 


;IS IT A COLON? 




7E2E 2817 


00400 




JR 


Z, COLON 


;TO ROUTINE 




7E30 FE22 


00410 




CP 


22H 


;IS IT A QUOTE? 




7E32 2822 


00420 




JR 


Z, QUOTE 


;TO ROUTINE 




7E34 FE20 


00430 




CP 


20H 


;IS IT A SPACE? 














Program continues 
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Need o solution for 




Floppy Disk Lube 



Just THR66 drops can: 

• Prolong useful disk life. 

• Increase head life. 

• Allow ini^ilizotion of "problem" 
disks. 

• Save 'unbootable' disks. 

• Reduce 'glitching' problems. 

• Cut nuisance problems. 



$4.00 



FIOPW DISK IUB€ - x /i oz. 
WITH APPLICATOR. 

Add $1 .50 shipping and handling. Ohio 
residents odd S x /i% soles tax 



DOSUJBRe, inc. 

Cleveland. Ohio 44110 



SWPAC 

WILL MAKE YOUR 

STATISTICAL LIFE 

EVEN EASIER FOR 

ONLY $185, 

BUT NOT FOR LONG .. . 

On Oct. 1, 1981 the price goes up to 
$285. That's still a small price for statis- 
tical analyses comparable to main- 
frame SPSS and SAS. The new, im- 
proved StatPac, designed specifically 
for the Model I or III TRS80, includes 
easy-to-read printouts and more statis- 
tics, including: 

• frequency analysis 

• crosstabs & chi-square 

• correlation & linear regression 

• multiple linear regression 

• descriptive statistics 

• t-test 

• analysis of variance 

• management reports 

Buy the complete 3-disk program for 
only $185 until Oct. 1. After that it is 
$285. The extensive user's manual is in- 
cluded or may be purchased separately 
for $30. MasterCard and VISA accepted. 

For more information and a free 

16-page brochure write or call: 

612/866-9022 

Walonick Associates ^363 

5624 Girard Ave. So. 

Minneapolis, MN 55419 



Program continued 



7E36 

7E38 

7E3A 

7E3C 

7E3D 

7E3F 

7E40 

7E42 

7E44 

7E45 

7E47 

7E48 

7E4A 

7E4C 

7E4D 

7E4F 

7E51 

7E53 

7E54 

7E56 

7E57 

7E59 

7E5B 

7E5D 

7E5F 

7E61 

7E62 

7E64 

7E65 

7E67 

7E69 

7E6A 

7E6C 

7E6D 

7E6F 

7E71 

7E72 

7E73 

7E75 

7E78 

7E79 

7E7B 

7E7E 

7E81 

7E83 

7E85 

7E86 

7E88 

7E89 

7E8A 

7E8C 

7E8E 

7E8F 

7E91 

7E95 

7E98 

7E9B 

7E9D 

7E9E 

7E9F 

7EA0 

7EA2 

7EA3 

7EA4 

7EA6 

7EA7 

7EAA 

7EAB 

7EAC 

7EAD 

7EB0 

7EB1 

7EB2 

7EB3 

7EB5 

7EB9 

7EBC 

7EBD 

7EC0 

7EC1 

7EC2 

7EC5 

7EC6 

7EC9 

7ECD 

7ECF 

7ED0 

7ED1 

7ED2 

7ED3 

7ED4 

7ED5 

7ED8 

7EDB 

7EDE 

7EE1 

7EFC 

7EFD 

7EFF 

00FF 

7DF2 

0000I 



282C 

FE93 

284C 

B7 

2852 

23 

18E5 

0E01 

23 

18E0 

79 

FE01 

2007 

78 

FE01 

2802 

0E00 

23 

18D1 

78 

FE01 

2804 

0601 

1802 

0600 

23 

18C3 

78 

FE01 

2003 

23 

18BB 

79 

FE01 

28F8 

E5 

E5 

DDE1 

DD7E00 

B7 

280A 

DD7E01 

DD7700 

DD23 

18F0 

El 

189F 

2B 

7E 

FE3A 

28FA 

23 

3600 



00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 

00730 

00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 



DATA 
COLON 



NODATA 
QUOTE 



SECOND 
CONT 

SPACE 

I NDATA 
OUT 



LOOP 



DONE 2 
REM 



ED5BFD7B 00970 FINISH 
21017F 00980 



010400 

EDB0 

7E 

12 

B7 

2804 

23 

13 

18F7 

13 

2AFD7E 

73 

23 

72 

2AFF7E 

23 

7E 

B7 

281A 



00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 



MORE2 



FINIS 



ETC 



ED53FD7E 01180 
2AFF7E 01190 



7E 

32FF7E 

23 

7E 

32007F 

2B 

C30A7E 



01200 
01210 
01220 
01230 
01240 
01250 
01260 



ED5BFD7E 01270 ALLREH 
PRGEND 



18DE 01280 
AF 01290 

12 01300 

13 01310 

12 01320 

13 01330 
EB 01340 
22F940 01350 
22FB40 01360 
22FD40 01370 
C3CC06 01380 
44 01390 MSSG 
00 01400 
0000 01410 
0000 01420 

01430 
01440 
TOTAL ERRORS 



BUFFI 
BUFF2 
BUFFER 



JR 
CP 

JR 

OR 

JR 

INC 

JR 

LD 

INC 

JR 

LD 

CP 

JR 

LD 

CP 

JR 

LD 

INC 

JR 

LD 

CP 

JR 

LD 

JR 

LD 

INC 

JR 

LD 

CP 

JR 

INC 

JR 

LD 

CP 

JR 

PUSH 

PUSH 

POP 

LD 

OR 

JR 

LD 

LD 

INC 

JR 

POP 

JR 

DEC 

LD 

CP 

JR 

INC 

LD 

LD 

LD 

LD 

LDIR 

LD 

LD 

OR 

JR 

I NC 

INC 

JR 

INC 

LD 

LD 

INC 

LD 

LD 

INC 

LD 

OR 

JR 

LD 

LD 

LD 

LD 

INC 

LD 

LD 

DEC 

JP 

LD 

JR 

XOR 

LD 

INC 

LD 

INC 

EX 

LD 

LD 

LD 

JP 

DEFM 

NOP 

DEFW 

DEFW 

DEFS 

END 



Z, SPACE 

147 

Z,REM 

A 

Z, FINISH 

HL 

CHECK 

C,l 

HL 

CHECK 

A,C 

1 

NZ, NODATA 

A,B 

1 

Z, NODATA 

C,0 

HL 

CHECK 

A,B 

1 

Z, SECOND 

B,l 

CONT 

B,0 

HL 

CHECK 

A,B 

1 

NZ,OUT 

HL 

CHECK 

A,C 

1 

Z, I NDATA 

HL 

HL 

IX 

A, (IX) 

A 

Z, DONE 2 

A,(IX+1) 

(IX) ,A 

IX 

LOOP 

HL 

CHECK 

HL 

A,(HL) 

3 AH 

Z,REM 

HL 

(HL) ,0 

DE, (BUFFI) 

HL, BUFFER 

BC,4 

A,(HL) 
(DE) ,A 

A 

Z, FINIS 

HL 

DE 

MORE2 

DE 

HL, (BUFFI) 

(HL) ,E 

HL 

(HL) ,D 

HL, (BUFF2) 

HL 

A, (HL) 

A 

Z, PRGEND 

(BUFFI) ,DE 
HL,(BUFF2) 
A, (HL) 

(BUFF2) ,A 

HL 

A,(HL) 

(BUFF2+1) ,A 

HL 

COPY 

DE, (BUFFI) 

ETC 

A 

(DE) ,A 

DE 

(DE) ,A 

DE 

DE,HL 

(16633) ,HL 

(16635) ,HL 

(16637) ,HL 

6CCH 

'DELETING SPACES 




255 
7DF2H 



;TO ROUTINE 

;IS IT A REM? 

;TO ROUTINE 

;IS IT ZERO? 

;T0 ROUTINE 

;BUMP POINTER 

; CHECK NEXT BYTE 

;SET POINTER 

;BUMP POINTER 

;NEXT BYTE 

;LOAD A WITH POINTER 

;IN DATA LINE? 

;NOT IN DATA LINE 

;LOAD A WITH POINTER 

; INSIDE QUOTES? 

; INSIDE QUOTES 

;OUT OF DATA NOW. 

;BUMP POINTER 

; CHECK NEXT BYTE 

,-LOAD B ONTO A 

; SECOND QUOTE? 

;TO ROUTINE 

; FIRST QUOTE 

.•CONTINUE 

;N0 QUOTES NOW 

;BUMP POINTER 

; CHECK NEXT BYTE 

;LOAD B ONTO A 

; INSIDE QUOTES? 

;NOT IN QUOTES 

;BUMP POINTER 

; CHECK NEXT BYTE 

;LOAD A WITH POINTER 

;IN DATA LINE? 

;BACK SOME 

;SAVE IT FOR NOW 

;LOAD HL — 

;ONTO IX 

; CHECKING — 

;FOR ZERO 

;GO IF ZERO 

;THIS BYTE IS — 

; BROUGHT BACK ONE 

;BUMP POINTER 

;NEXT BYTE 

; RESTORE 

; CHECK NEXT BYTE 

; CHECK FOR — 

;A COLON 

;IS IT? 

; CHECK FOR ANOTHER 

;NO COLON 

; ENDING ZERO 

;SET UP TO — 

;RECOPY LINE — 

;INTO BASIC BUFFER 

;COPY 4 BYTES 

;BYTE TO COPY 

;COPY IT 

;LAST BYTE? 

;GO IF DONE 

;BUMP POINTERS 

;COPY ANOTHER BYTE 

;NEXT LINE WILL BE HERE 

; BEGINNING OF LINE 

;LSB OF LINE POINTER 

;BUMP HL 

;MSB OF LINE POINTER 

;NEXT LINE IN MEM 

.•POINT TO MSB 

;LOAD BYTE TO TEST 

; PROGRAM DONE? 

;GO IF DONE 

.-SET UP BUFFI 

.•NEXT LINE IN MEM 

;LSB OF POINTER 

;SAVE IN BUFF2 

;BUMP HL 

;MSB OF POINTER 

;SAVE IN BUFF2+1 

;DOWN AGAIN 

;NEW LINE 

;SET UP DE 

;GO TO ROUTINE 

,-LOAD A WITH ZERO 

; FIRST END ZERO 

,-BUMP POINTER 

.•SECOND END ZERO 

;BUMP POINTER 

;LOAD DE ONTO HL 

;LOAD — 

.•VARIABLE POINTERS — 

;WITH HL 

.-BACK TO BASIC 

AND REMS — ' 
.-END OF MESSAGE 
;2 BYTE BUFFER 
;2 BYTE BUFFER 
; STORAGE BUFFER 
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Orange micro 



THE COMPUTER PRINTER 
SPECIALISTS" 



UP 70 25% DISCOUNTS! — same day shipment: 



RADIO SHACK 
, LINE PRINTER IV 



) 



£$) CENTRONICS 739 ( 

With Graphics and 

Word Processing Print Quality 



• 18 x 9 dot matrix; suitable for word 
processing • Underlining • proportional 
spacing • right margin justification • serif 
typeface • 80/100 CPS • 9Vj" Pin 
Feed/Friction feed • Reverse Platen • 
80/132 columns • Top of form 

CENTRONICS 739-1 (Parallel) (List $995) $ Call 

CENTRONICS 739-3 (Serial) (List $1045) $ Call 
GRAPPLER™Apple graphics interface $165 




ANADEX 



Dot Graphics, Wide Carriage 



• 1 1 x 9 dot matrix; lower case descen- 
ders • Dot resolution graphics • Bi- 
directional, logic seeking • Up to 200 
CPS • RS 232 Serial & Parallel • Forms 
control • X ON/X-OFF • Up to 6 part 
copy. 

ANADEX 9501 (List $1650) $1350 

GRAPPLER™ Apple graphics Interface $165 




VISTA — C. ITOH STARWRITER 



Daisy Wheel Letter Quality 

• 25 CPS (Optional 45 CPS) • Typewriter 
quality • Centronics parallel • RS 232 
Serial (Optional) • Proportional spacing • 
Bidirectional • Programmable VFU • Self 
test • Diablo compatible • Friction feed 
(Optional tractors) • 136 printable columns 

• Manufactured by C. ITOH. 



VISTA V300(C. ITOH) STARWRITER (List $1895) S Call 




IDS PAPER TIGERS 

Dot Resolution Graphics, quality print, speed 




• 7 wire pnnthead (445); 9 wire pnnthead 
(460) with lower case descenders • Over 
150 CPS • bi-directional, logic seeking 
(460) • 8 character sizes; 80-132 columns 

• Adjustable tractors • High-resolution dot 
graphics • Proportional spacing & text 
justification (460). 



IDS 460G 9 wire printhead. graphics (List $1394) 

IDS 560G 9 wire, wide carriage, graphics . (List $1794) 

GRAPPLER™Apple graphics interface 



$1150 

$1400 

$165 



CALL FOR INFORMATION & CATALOG 

(800) 854-8275 
CA,AK, HI (714) 630-3322 

RETAIL PRINTER STORE 

Store #1 3150 E. La Palma, #l, Anaheim, CA (714)630-3622 
Store #2 13604 Ventura BL, Sherman Oaks, CA (213)501-3486 

Store #3 COMING SOON?? 

Store Hours: M-F 10-6 Sat. 10-4 




EPSON MX80/MX70 



Low- Priced 
Professional Print Quality 

• 9 x 9 dot matrix • Lower case descenders 

• 80 CPS • Bidirectional, Logic seeking • 
40, 66, 80. 132 columns per line * 64 special 
graphic characters: TRS-80 Compatible • 
Forms handling • Multi-pass printing • Ad- 
justable tractors 

We also carry a full lir. ? 
of Epson Accessories 

EPSON MX80 (List $645) $Call 

EPSON MX 70 Dot graphics. 5x7 matrix (Liit $450) $Call 

EPSON MX100 wide carriage ... (List $995) $Call 
GRAPPLER™ Apple Graphics Interface $165 

MX80/70 FRICTION FEED KIT 

User installable kit for single sheets. 

Easy 30 minute installation $75 

ANACOM 

Low Cost, High Speed, Wide Carriage 
• 9 x 9 dot matrix • Lower case descenders • Wid? carriage • 
Adjustable tractors to 16* • 150 CPS, Bidirectional. Logic Seeking 

ANACOM 150 (List $1350) $1075 



NEC SPINWRITER 

High Speed Letter Quality 

• 55 CPS • Typewriter quality • Bidirectional • Plotting • pro- 
portional spacing. 

5510-5 RO. Serial, w/tractors (List $2995) $2675 

5530-5 RO. Parallel, w/tractors (List $2970) $2650 




TELEVIDEO CRT'S 



AT DISCOUNT PRICES! 

TVI910 



QUANTITY PRICING AVAILABLE 



TVI912C 
TV I 920C 
TVI950 



} 



Please Call Toll Free 
Prices are too low to 
advertise 



CRT'S 
ADDS VIEWPOINT (List $698) $600 

PRINTERS 



1 



MALIBU 165 wide carnage, graphics, letter quality 
QUME 5/45 typewriter Quality 



(List $2495) $ 1975 
S 2559 



INTERFACE EQUIPMENT 

EPSON ACCESSORIES $ Call 

ORANGE INTERFACE for Apple II 

lei interface board & cable 



parai 
MICROTRONICS Alan parallel interface 
TRS-80 CABLES to keyboard or Exp interface 
NOVATION D-CAT direct connect modem 



$ 69 
$ Call 
S Call 



# 



Oranqe fllicro .. 9 

•* Inc. ~r 

3150 E. La Palma, Suite G, Anaheim, CA 92806 



Phone order WELCOME; same day shipment. Free use of VISA & MASTER 
CARD. COO's accepted. Manufacturer's warranty included on all equipment 
Prices subject to revision. 



A t Orange Micro, we try to fit the right printer to your app> 
Call our printer specialists for free consultation. 



Yes, You Can 
Increase Your 
Programming 
Productivity 

. SNAPP II EXTENDED BASIC 

*5NAPP II EXTENDED BASIC A family of 
enhancements-!!) the Model II BASIC 
interpreter Pan of the package ongi- 

: ripted with the hest of APPARAT. INC s 
-;•'., thoughts in^mplementing NEWDOS 
BASIC. The'system is written entirely in 
/machine language for SUPER FAST exe- 
cution. The -extensions are fully 

'integrated into Model II BJSIC. and 
require NQ useLMemory.and NO user 
disk space. Thetpackage is made up of 
the. following six modules. 
XBASIC -Six single key stroke com- 
mands to list the first, last, pievious. 
nefct or cuirent program line, or to edit 
tha-eur rent line, includes quick way to 
reci#er BASIC program following a 
NEW'or system or accidental re-boot. 

>-.' Ten single character abbreviations for 
•.^frequently used commands: AUTO. 

.'■CLS. DELETE. EDIT. KILL. LIST. MERGE. 

VNEW. LLIST. : qnd SYSTEM. 
XREF-A'powerful cross-reference 

.facility wlfti putput to display and/or 
printer. Trace a variable through the 
code; Determine easily if a variable is 
muse. 

XDUMP-Permits the programmer to 
display and /or print the value of any or 
all program variables Identifies the 
■variable, type for all variables. Each ele- 
ment of any array is listed separately. 
XRENQflft-An enhanced program line 

• renurfibeiing facility which allows 
specification of an upper limit of the 
block of lines to be renumbered, sup- 
ports relocation of renumbered blocks 
of code, and supports duplication of 
blocks of code. 
. XFIND-A cross reference facility for 
key words and character strings, also 
includes global replacement of 
keywords 

XCOMPRESS-Compress your BASIC 
'programs to an absolute minimum. 
:,; Removes extraneous information: 

/.merge lines: even deletes statements 

.'which could not be executed Typically 
s .saves 30-40% space even for pro- 
grams without our REM statements' 

■'Alsoresults in 7~-l0% improvement in 

'execjtionspecfd 

; ,ENTlRY PACKAGE FOR MODE! II S200 

ENTIRE PACKAGE FOR MODFI III s 1 25 

SNAPP SCREEN 

. Another dependable product from 
-Snapp ,lnc Using rigid plastic. Snapp, 
;, Inc. designed the ultimate green 
i screen at the lowest price. The Snapp 
■ Sateri installs in a Snapp with the use 
0f{5pessijre sensitive tape Reduce 
user fatigue with the Snapp Screen 
DOS FIX sis 

A collect ion.Q.f patches to TRSDOS and 
EiASlC to enhance then usability and 
function' Includes oui well known 
, BREAK7E patches and facilities to dis- 
able and verify detect which will 
.•maease average disk speed by 10% 
Free with any Model ll Software Pack- 
age. Purchased separately. s i s 



SORT 
1 0.000 integers 
5.000 Singles 
2.000 Strings 



SUPERSNAPPX 

You can sort fast using your present 
facilities, or you can do it faster with 
Racets superb facilities, or you can use 
the fastest: SUPERSNAPP X. The heart 
Of SUPERSNAPP X is a SUPER FAST in- 
memory sort routine that has been 
benchmarked against everything on 
the market and beats them all . . . 
hands down. 

SUPERSNAPP X is the most important 
component of SNAPP X EXTENDED 
BUILTIN FUNCTIONS which is a much 
needed set of additions to the Model II 
BASIC interpreter that will put time sav- 
ing power at your fingertips. Let's 
compare (using random data) SUPER- 
SNAPP X and Racets GSF SORT for 
speed: 

SUPERSNAPPX RACETGSF 
39 seconds 59 seconds 
22 seconds 34 seconds 
1 seconds 1 5 seconds 
SUPERSNAPP X is guaranteed to be the 
FASTEST in memory SORT on the mar- 
ket or your money back. With it you 
also get these EXTENDED BUILTIN FUNC- 
TIONS: PEEK. PEEKW. POKE. POKEW. 
XDATS. XTIMS. ETIMS. FILES. AND THE 

SPECIAL SCMD (SNAPP COMMAND). 

PLUS: open "E" Set SCROLL PRO- 
TECTION. ERASE all ARRAYS in one 
command. Specify size and Blink rate 
Of CURSOR. LONG ERROR MESSAGES. 
Read from Video Screen Read. 
PEEK complete strings from memory. 
POKE complete strings to memory, 
convert upper case to lower case and 
vice-versa, turn complete screen off 
and on at will, extract largest or small- 
est values from user supplied list of 
numbers 

We consider this next function as prob- 
ablg the most powerful addition ever 
made to Microsoft BASIC. PRINT USING 
INTO A STRING. The ability to arrange 
data into a string variable should perk 
gour imagination. 

Modelll s 100.00 

Model III S7S.00 

SPOOLER Model I, Model II 

and Model III 

Our workhorse! Unlike the one sup- 
plied with TRSDOS 2.0. ours requires 
no special knowledge or training on 
the part of the operator. Additionally, 
ours performs much better. On the 
Tandy SPOOLER, every time a disk is 
accessed, the printer stops dead! This 
package is available for Model I. in the 
TRSDOS/ NEWDOS 80 versions, or for 
the Model II or Model III. Greatly 
enhances system performance when 
running typical business applications. 
Many applications have been bench- 
marked to run nearly TWICE AS FAST 
with the SPOOLER installed. Installs in 
minutes and no changes are required 
to your programs. The Model II version 
requires NO user memory. s | go 

SORTDIR 

Locate directory entries with ease. SORT- 
DIR will rearrange your directory entries 
in alphameric sequence on either a 
TRSDOS operating system or data dis- 
kette. The routine performs its function 
in seconds. No more wasted time hunt- 
ing for your entries'. Another time saver 
from SNAPPWARE. 30 00 



XSCREEN 

Supports the copying of the full video 
screen to the printer. Can be invoked by 
the operator with a keystroke, or from 
your program with a USR call. Requires 
NOusermemoru s30 

AUTOFILE 

Another big time saver from Snapp. 
Inc. Autofile offers all programmers 
much needed time saving tools to use 
when working with direct files. Elimi- 
nate tedious commands such as 
LSET'S. MKIS'S. MKDS S, MKSS'S. CVD'S. 
CVI's and CVS's. Even the FIELD 
statement has been eliminated. You 
won't have to guess as to where the 
FlELDed variable is. The ASC and CHRS 
function references will be performed 
automatically. mudei.h S75 

MODEL III S60 

AUTOMAP 

Save time creating a formated screen 
with our Extended Basic Mapping Sup- 
port system. The programmers task of 
communicating and displaying infor- 
mation with the user operator is 
completely automated with simple 
SEND and RECEIVE statement com- 
mands. Many different types of 
information can be sent and received 
from the operators with the use of a 
single command. Many hours of pro- 
gramming time are saved and cost 
efficiency is truly realized using 
Automap. 

MODEL II SI 00 
MODE! Ill S7S 

THE GARBAGE COLLECTOR 

By using a "variable length string" in the 
BASIC interpreter, the strings are con- 
stantly being relocated in a "string pool" 
giving them a new location each time 
theg are assigned a new value. Period- 
ical^ the "string pool" must be 
reorganized and condensed into a single 
contiguous area. Performing this string 
space reclamation function is crude and 
time consuming because of space limita- 
tions on hardware. The system seems 
to "lock up" and will not respond to the 
operator at all until the process is com- 
plete. The time reguired to perform 
string space reclamation is roughly pro- 
portional to the square of the number of 
active strings in the resident program 
This time consuming task cries out for a 
better solution. Snapp ware has devel- 
oped a solution which takes advantage 
of the auxiliary memory available when 
needed Our enhanced version reguires 
only four bytes per active string as a 
work area, and when the amount of 
space is available as "free storage ". will 
temporarily borrow that space and 
return it to the free storage pool when 
completed. If storage is not available, our 
system will temporarily transfer out to 
disk enough of the BASIC program to 
make room for our work area and return 
the "paged out" information to its cor- 
rect location when completed. 
In almost every conceivable situation, 
our method produces significantly 
enhanced performance when com- 
pared to -the Microsoft approach. 
Benchmarked times show in some situa- 
tions our enhanced routine performs 
one hundred times as fast as the original 
approach. s 100.00 



PL/B 

The most powerful logical com- 
ponents have Peen selected from the 
woilds most powerful language to 
give you the most unbeatable pro- 
gram development tool to improve 
youi programming productivity 1 
Snappware has merged the most use- 
ful components of BASIC with the 
power of PL/ 1 An unbeatable struc- 
tured programming facility resulted 
that can increase programmers pro- 
ductivity up to 50% UnliKe competitive 
pioducts. which are slow rigid pre- 
processors representing a primitive 
attempt to bring Structured Program- 
ming concepts to the Micro-Based 
user. PL/B is today's fourth generation 
answer to a fourth generation prob- 
lem! PL/B can give you triple the 
power of the earlier preprocessors at 
triple the speed PL/B is fully 
integrated into the BASIC interpreter 
Two modes of operation are available 
Transpaient (hidden) 01 translate and 
save mode Increase your productivity 
and save time with PL/B. $200.00 

XPRINT 

Print neatly formated hard copy listings 
of BASIC programs from dish Programs 
may be ASCII or compressed Quick and 
easy group selection allows you to print 
many listing with one command S35 

BUGZAP 

A powerful utility oriented toward the 
machine language programmer. Dis- 
play/Modify /Print/Memory/Dish sectors 
Use this to help you learn more about 
the internals of the Model ll S50 

3/V\ SCOTCH DISKETTES 

Double density certified 8" Floppies 
for the Model II. Better quality is not 
available at any price Ten diskettes to 
a box 




Quantity 

(boxes' 

I 

5 
10 



Price 
Per/Box 

5 34.50 
S33.50 
S32.50 



HEAD CLEANERS. The wet process 
cleaners causes less wear on your drive 
heads Package of two including 
fluid 25 00 

Authorized Distributor "MM 

Information Processing Products Olwl 

TERMS OF SALE 

Shipments normally made within one day or 
iecpipt or your older Customer normally pays 
shipping cost except pre paid oiders including 
software in which case shipping cost is absorbed 
dySnapp iric COD orders will have standard 
COD fee added to shipping charge Net 10 days 
will be granted to governmental agencies educa- 
tional institutions and well rated business firms 
Please include purchase ordei number Ohio resi- 
dents add S % sales tax or exemption certificate 

OUR GUARANTEE: 

if your dishette arrives damaged we will replace it 
without charge if you ever accidentally damage 
it we will replace it for a s 1 5 handling charge For 
a period of one year, we will provide you with 
any enhancements or updates for a s I S handling 
charge For a period of one year, if errors are dis- 
covered in the programs, they will be corrected 
without charge in the event we cannot correct an 
error you may return the program material for a 
refuncf 

TRS-80 and TRSDOS are trademarks oi the 
Radio Snack division of Tandy Corporation 
NtWDOS and NEWDOS/bU ate trademarks of 
Apparat. Inc 
RACET CSF is a trademark of Racet Computes 



Call our toll free number: 1-800-543-4628 

Ohio residents call collect: (513) 891 4496 

SNAPPWARE 

37l9Mantell 
Cincinnati. Ohio 45236 



REVIEW 



Read this and you'll be up on down-loading. 



Smart Terminal Software 



Smart 80d 

The Microperipheral Corp. 

Mercer Island, WA 

$75. 

ST80-III 

Small Business Systems Group 

Westford, MA 

$150 



Bill Everett 

14645 NE 34th C-24 

Bellevue, WA 98007 



Smart80d and ST80-III are smart terminal 
programs that, in conjunction with a 
modem, allow a TRS-80 (with a disk drive) to 
access another computer by telephone or 
radio. They are the best two programs I 
have seen on the market. Both are easy to 
use, well-documented, and readily adapt- 
able to the various communication require- 
ments of the system to be accessed. 

A terminal program gives the TRS-80 the 
ability to communicate with another com- 
puter on terminal. A smart terminal program 
also allows the transfer of data or programs 
both to and from the other terminal or com- 
puter. This is called up-loading and down- 
loading respectively. 

The versions of the programs that I am 
reviewing are for use with the Micro Con- 
nection direct connect modem. Both pro- 
grams are also available for use with an 
RS232 modem. The RS232 versions are al- 
most identical in their use and commands. 

Features 

I have divided the features of Smart80d 
and ST80-III into the following categories: 
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communication parameters, receiving data, 
transmitting data, log-on, and miscel- 
laneous functions. 

The communication parameters of both 
programs can be set to conform to the re- 
quirements of the host computer. Full or 
half-duplex transmission is software se- 
lectable with both programs. The number of 
bits per word, the number of stop bits, and 
even, odd, or no parity can be selected with 
Smart80d but only with the RS232 version of 
ST80-III. In addition ST80-III allows the user 



"A terminal program 

gives the TRS-80 

the ability to 

communicate 

with another computer 

on terminal." 



to both send and receive a line feed after a 
carriage return and to send a predeter- 
mined number of nulls after a carriage 
return. 

Both Smart80d and ST80-III have the 
ability to store what is seen on the screen to 
a buffer in memory and then, on command, 
dump the buffer to a file on disk. The buffer 
can be opened and closed automatically by 
both programs. This feature is the heart of 
any smart terminal program. It allows a user 
to down-load programs from bulletin 



boards or any computer system that can be 
accessed by telephone. 

Smart80d and ST80-MI can send text or 
programs to another terminal or computer. 
The file to be sent is loaded from disk to the 
buffer area in memory and then sent on com- 
mand. Smart80d also can automatically 
open and close the receiving terminal's buf- 
fer If it is equipped for auto receive. Both 
programs have three other functions in 
common. One is the ability to route 
everything that goes to the screen to a 
printer. Another is the ability to temporarily 
exit the program to execute a DOS com- 
mand. The last function both programs 
have in common is the ability to transmit a 
true break code. 

Messages On Command 

Smart80d has two buffers in which a log- 
on or any other message can be stored. The 
two buffers' contents then can individually 
be sent on command to log a user onto a 
bulletin board. ST80-III loads its log-on buf- 
fer from a table that is stored on disk. The 
message can also be transmitted on com- 
mand. 

ST80-III can display all of its commands 
on the screen. It also can be programmed 
so any key can send any code. All incoming 
codes can be changed to another single 
code for proper control of the terminal or 
computer. This is useful when matching the 
protocol of the TRS-80 with that of another 
system. ST80-III has two features that are 
unique to terminal programs that I have 
seen. First it allows use of the system clock 
to keep track of the time a user has been 
logged on a bulletin board. It also will allow 
an amateur radio operator to monitor a fre- 
quency for his call sign or any character 
string for which ST80-III is programmed. 



When the character string is decoded, 
ST80-III comes to life and prints everything 
until it is deactivated again. This allows 
unattended monitoring of a radio frequency 
so the user receives all personal messages. 

Utilities 

Both Smart80d and ST80-III have the fol- 
lowing two similar utility programs on their 
disk. The first creates a message for up- 
loading to a bulletin board. The other takes 
a Basic program that has been down- 
loaded and allows the user to delete ex- 
traneous carriage returns and lines that are 
not needed in the Basic program. Both pro- 
grams do the same job, but the ones that 
come with Smart80d have better prompts 
on the screen. Both programs also have a 
utility list of all possible 255 codes that can 
be sent or received in decimal and their 
definitions. The Smart80d version also 
gives the codes' hex equivalent and its use 
in the TRS-80. 

ST80-III also has the following utilities on 
disk: A program that creates a checksum 
for any file, which is used to see that a file 
has been received correctly; a program to 
generate the table that is loaded with ST80- 
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Ill contains the log-on message generator 
and can redefine control codes to eliminate 
possible conflicts between systems; and a 
program to convert a binary file to ASCII so it 
can be sent, and another to reverse the pro- 
cess when a binary file is received. These 
last two programs are also capable of 
scrambling and unscrambling a file for 
a security transmission. There are also two 
programs to send and receive machine 
code programs in Intel Paper Tape Format, 
mat. 

Documentation 

The documentation provided with both 
programs is excellent. The Smart80d 
manual goes into more detail on the actual 
use of the software and the ST80-III manual 
gives better examples of how it accesses 
various bulletin boards, The Source, and 
MicroNet. The documentation for Smart80d 
also comes on the disk in a file that can be 
printed on a printer or listed from DOS. 

Smart80d and ST80-III do an excellent job 
of making the TRS-80 a smart terminal. 
ST80-III has a few more features than 
Smart80d. Yet, Smart80d is much more 
cost-effective than ST80-III.B 

►- See List of Advertisers on page 354 




Throw 
It Awa 



(your dictionary, that is) 



Now MICROPROOF can find and correct your 
spelling errors (before someone else finds them). 

• FAST: Proofs ten pages in less than one minute. 

• EASY TO USE: Prepare your text on any Z-80 based micro- 
computer, using any of a number of popular word processing 
programs. When you are finished, enter the appropriate 
command, and MICROPROOF proofreads your document, 
displaying misspellings and typos on the screen. Then MICRO 
PROOF displays each error separately, requesting you to enter 
the correct spelling for each. You also have the option of 
displaying the error in context or adding the word to 
MICROPROOF's vocabulary. Finally, MICROPROOF 
CORRECTS YOUR DOCUMENT. All in less than a minute. 

• NEW FEATURE: In correcting stage, user has option of 
displaying errors in context. 

• COMPREHENSIVE: MICROPROOF comes with a 50,000 
word vocabulary. That's equivalent to a Webster's Pocket 
Dictionary. And MICROPROOF's dictionary is INFINITELY 
EXPANDABLE. You can add your own technical words and 
jargon. 

• EFFICIENT: A 50,000 word vocabulary is packed into 70,000 
bytes. (Fits easily on one 5'/ 4 inch diskette.) Recognizes prefixes, 
suffixes, hyphenation and comment lines. Literal dictionary also 
available. Requires only 32K of memory and one single or double 
density 5% inch or 8 inch disk drive. 

• AFFORDABLE: Available in three forms: fully independent 
program to identify errors, independent program to identify and 
correct errors, or with a conversion program that will permit 
MICROPROOF to operate from within your own word 
processing software. 



PRICES 



TRS-80® Model I & III versions 


$89.50 


Correcting Feature 


$60 00 


TRS-80* Model II version 


$149.50 


Word Processing Conversion 




CP/M* version 


$200.00 


Scripsit* or Electric Pencil® 


$35 00 






User's Manual (if separate) 


$5.00 



Master Charge and Visa accepted No COD please. California residents add 6% sales tax 

Contact your local dealer or write to C.S.I, for a brochure specify type of microcomputer and 
word processing software used 



CORNUCOPIA SOFTWARE, INC. ^3/8 

Post Office Box 5028 

Walnut Creek, California 94596 

(415)893-0633 
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TUTORIAL 



Modify some popular machine language utilities for duty in the Model III 



Level II Utilities for the Model III 



Kenneth J. Bigelow 
4117 55th Ave. 
Bladensburg, MD 20710 

The Model III TRS-80-, like the Model I, is 
supplied with two versions of Basic. 
Level I Basic is essentially the same in 
either machine. However, the Level II Basic 
used in the Model I has been replaced by 
Model III Basic in the Model III. This is an en- 
hanced version of Level II Basic, with such 
features as a real-time clock/calendar. How- 
ever, there are some important differences 
which affect both Basic and machine lan- 
guage programs. 

The Model III ROM occupies 14K, rather 
tiian the 12K used by Level II. The new 
ROMs are addressed from 000 hex through 
37FF hex. The keyboard matrix still appears 
from 3800 through 3BFF, and the video dis- 
play memory is still addressed from 3C00 
through 3FFF. As with the Model I, this 
leaves 48K (from 4000 through FFFF) for 
RAM. 

Because of the extra 2K of ROM, the disk 
drives and the parallel printer interfaces 
can no longer be addressed within the 
memory map. Instead, they are addressed 
as I/O ports. The appropriate ROM routines 
have been modified to account for this 
change, but any user program that handles 
these" devices directly will no longer work. 
Only-port FF was used in the Model I, and 
It handled data input and output through 
the c5ssette^scorder, as well as the cas- 
sette remote control. The Model III uses at 
least eight separate I/O ports and ignores 
the two least significant address lines when 
decoding them. The Model II therefore sees 
ports EO, E1, E2, and E3 as being identical. 
This is critical for users who add their own 
peripheral equipment. 

The I/O ports used by the Model III are E0, 
E4, E8, EC, F0, F4, F8 and FF. The address- 
ing scheme causes each of these I/O as- 
signments to occupy four port addresses, 
so that no external port is allowed to oc- 
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cupy a port address above DF. 

The third major difference is the amount 
of housekeeping RAM used. The Basic pro- 
gram is placed into RAM immediately fol- 
lowing the housekeeping assignments 
which start at 4000. In Level II, the Basic 
program starts at address 42E9. The Model 
III requires more housekeeping space; 
Basic programs for it begin at 43E9. This 
means that the Model III has 256 fewer 
bytes (memory locations) available for pro- 
gram and variable storage than the Level II 
machine. 

The reduced program space calls for revi- 
sion of several Basic programs before they 
can be run on the 16K Model III. Specific 
changes are provided on a sheet enclosed 
with the machine. Once these changes are 
made, the Basic programs run with no fur- 
ther trouble. 

Revising Machine Language Programs 

Some machine language programs have 
problems beyond over-lengthy lines or stor- 
age requirements. Radio Shack lists three 
different categories of machine language 
(System) programs: those that will work cor- 
rectly; those that should be replaced with 
an alternate program supplied by Radio 
Shack; and those that will not work and for 
which no replacement program is in the 
works. This last category includes Micro- 
chess, the Editor/Assembler, and T-Bug. It 
also includes some System programs writ- 
ten by others for the TRS-80, such as the 
TRS232 and Formatter programs. 

I wanted to be able to use these programs 
on the Model III, so I set about finding out 
exactly what was wrong with each, in terms 
of the Model III machine. 

My first requirement was to get printout 
dumps of T-Bug, the Level II ROMs, and the 
Model III ROMs. This would allow me to 
trace through specific sections of each for 
comparison so I could determine what 
changes to make. To do this, I needed to get 
either TRS232 or Formatter working, to 
drive the printer (a Model 43 teletype) from 



the Model III computer. This, in turn, meant 
that I would have to get T-Bug working so I 
could find the changes I needed to make to 
the printer driver. 

I tried loading T-Bug into the Model III, 
just to see what would happen. To my very 
great surprise, only two functions did not 
work, and they were the cassette opera- 
tions P (Punch) and L (Load). All other func- 
tions worked correctly, so I was able to use 
the M (Memory) function of T-Bug to look 
around in ROM and the housekeeping part 
of RAM. I was also able to use T-Bug to 
modify the printer driver routines. 

The TRS232 program is designed to allow 
the TRS-80 to drive an RS232 converter (sup- 
plied with the program tape), using the cas- 
sette output cable. This allows the user to 
connect any RS232 printer to the computer 
without including the expansion interface. 
The same hardware can also drive a 20 milli- 
amp current loop for printers accepting this 
type of interface. 

The Formatter program is a more ad- 
vanced driver program that uses the same 
hardware, but incorporates some extra 
bells and whistles. Both programs use the 
printer device control block, and modify the 
driver routine address in that block. This 
means that either program allows the com- 
puter to respond to LPRINT and LLIST com- 
mands, even though the Radio Shack print- 
er is not connected to the system. 

Using T-Bug, I found that the device con- 
trol blocks were in the same place, but that 
the driver routine addresses had changed. 
Both TRS232 and Formatter use these ad- 
dresses, so it was no wonder that the pro- 
grams would not work. Unfortunately, the 
TRS232 program also has some calls to a 
Level II ROM routine called Port. This rou- 
tine is not in the same location in the Model 
III. No such calls exist in Formatter, how- 
ever, so I was able to correct all ROM inter- 
actions by adjusting the driver addresses 
called for the keyboard and video display. 
One more change was required to get 
Formatter working properly: The Model III 



"With Formatter working, I was able 
to get a complete dump of the Model III ROMs." 



system clock is 14 percent faster than the 
Model I clock. Bit timing for the interface is 
accomplished through software, so I had to 
change the timing delay constants for the 
baud rates I wanted. The result was a per- 
fectly operating Formatter program. 

Because the Formatter program is sup- 
plied as a Basic program which POKEs the 
machine language program into high mem- 
ory, it is very easy to modify. A few changes 
to some data statements will solve the 
problem. Then, when the Basic program is 
run, the resulting machine language pro- 
gram will be corrected. 

The first change involves two calls to the 
video driver routine in ROM. In the Level II 
machine, this routine appeared at 0458 hex. 
In the Model III, it has been moved to 0473 
hex. To make the change, locate lines 3480 
and 3540 in the Basic program. In each line, 
the number 88 must -be changed to 115. 

The second change is to the keyboard 
scanning routine. Formatter originally con- 
tained this call to correct a keyboard 
bounce problem in the early Level II ROMs. 
The problem has long since been corrected, 
but the routine may still be used if desired; it 
resets the printed line count each time the 
Clear key is pressed. The same result may 
be obtained by typing in the command: 
LPRINT CHR$(3). 

If you choose to use this function, 
change the calling address in ROM. In Level 

II, the address was 03FB hex; in the Model 
III it is 340D hex. Change the sequential 
numbers 251,3 to 13,52 in line 4780. 

The final change is to line 5300. Each de- 
lay constant must be multiplied by a factor 
of 1.143. The resulting line is: 5300 DATA 
703,574,514,254,167,123,58,26,9,1. I could 
not test all the values, of course, but 254 
works perfectly for 300 baud. 

With Formatter working, I was able to get 
a complete dump of the Model III ROMs. 
Then I could tackle the cassette functions 
of T-Bug. 

Since only the cassette functions gave 
me trouble, I located and disassembled the 
cassette control routines in Level II, Model 

III, and T-Bug for comparison. I found that 
the T-Bug routines made no attempt to call 
any ROM routines at all. Instead, all T-Bug 
operations are performed independently, to 
avoid interactions between Basic and 
T-Bug. Only one program can use either the 
keyboard or cassette interface at a time, so 
why not use ROM routines? 

I found that the entry points for all but 
one Level II routine were preserved in the 
Model III. The last entry point is the routine 
to turn on the cassette motor. In Level II, 
this is a separate routine, but in the Model 
III, it is incorporated into the routines that 
write or search for the header on tape. Ex- 



ADDRESS 


NEW BYTE 


4644 


12 


4645 


02 


4547 


96 


4648 


02 


4649 


00 


464A 


00 


464B 


00 


464C 


00 


4698 


C3 


4699 


F8 


469A 


01 


46DE 


12 


46DF 


02 


46EB 


CD 


46EC 


87 


46ED 


02 


46EE 


C3 


46EF 


FB 


46FO 


46 


473F 


C3 


4740 


F8 


4741 


01 


4782 


C3 


4783 


35 


4784 


02 


478C 


C3 


478D 


64 


478E 


02 


Table. 1. Required Changes to T-Bug. 



cept for this difference, T-Bug could be run 
on either machine, once modified. 

A fast check of the Model III dump 
showed that the address of the Level II turn- 
on routine was harmless. It contains an 
XOR A instruction (which clears the A 
register), followed by a RET (return from 
subroutine) instruction. In the Model III, this 
amounts to a dummy subroutine call and af- 
fects nothing of any importance. Therefore, 
this call can be left in the Model III version 
of T-Bug, and the Level II version will be 
identical. All I had to do was locate the 
points in T-Bug where the ROM calls could 
be inserted to replace the original T-Bug 
routines. This was not difficult, and only 28 
bytes need be changed. 

The locations of the changes and the new 
data to be used are shown in Table 1 . For all 
these changes, T-Bug can modify itself 
because all the changes are in the L and P 
routines within T-Bug. The M function still 
works properly in either machine. No inter- 
action occurs while the changes are being 
made. 

The modifications to T-Bug may be made 
on either machine, and the modified pro- 
gram is then transportable to either ma- 
chine. It may be used to save itself on tape 
(use the command P 4380 4824 43A0 name). 
Furthermore, it will work at either 500 baud 
or 1500 baud on the Model III. 

Some Precautions 

Even though T-Bug will now work prop- 



erly on the Model III, there are a few precau- 
tions to take. These are required because 
T-Bug overlaps the input buffer and the 
start of the Basic program buffer. 

The main requirement in the i^odel III is 
that T-Bug not be entered while a Basic pro- 
gram is present, or vice-versa. The moment 
one is loaded, the other will be wiped out. 
By the same token, a long input line, even in 
the absence of any Basic program, will 
make inroads into T-Bug. And, the moment 
you define a variable, T-Bug is shot. 

The remaining precaution involves the 
Reset button. In the Model III, this is a true 
cold-start reset; no pointers or Basic pro- 
gram will be preserved. However, except for 
setting a few nulls to indicate no program in 
the program space, memory is not altered 
as it is sized. This means that most ma- 
chine language programs will be un- 
changed. Unfortunately, this is not true of 
T-Bug; those nulls write over the command 
structure of the program, and the only com- 
mand that will still work is R (register dis- 
play). Therefore, T-Bug must be reloaded 
following reset in the Model III. 

The changes in T-Bug are required 
because the Model III does not handle cas^ 
sette control in the same way as the Model 
I. Cassette data, both input and output, is 
still performed through port FF. However, 
the motor control function has been dis- 
placed to port EC, along with the clock con- 
trol and the video mode select. Bit turns 
the clock display on or off, bit 1 turns the 
cassette motor on or off, and bit 2 when set 
selects 32 characters per line. Bits 3 and 5 
are preset during initialization, but I have 
not been able to determine what function 
they perform. Memory location 4210 hex 
(16912 decimal) contains a copy of the last 
byte sent to port EC. By changing a bit in 
location 4210 as a direct command, either 
the display format or the clock display may 
be controlled. The Ready routine will always 
turn off the cassette motor. 

I was unable to load Microchess into the 
Model III. This program seems t'p occupy 
most, if not all, of the housekeeping section, 
of RAM, and disturbs some pointers before^ 
it can be run. As a result, sjjp attem$ to 
load Microchess results in a loss of all con- 
trol, followed by the cassette query on the*- 
screen. 

What Else Can Be Done? 

From what I have learned about the 
Model III, it seems that any machine lan- 
guage program that resides above address 
43E9 and calls ROM routines (from their 
normal entry points) to control peripheral 
devices will work as well on the Model III as 
the Level II. 

Programs that attempt to directly access 
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#17 SOFTWARE 

ULTIMATE SOFTWARE PLAN 



We'll match any advertised price 
or, any item that we carry. And if 
you rind a lower price on what you 
bought within 30 days of buying 
it, just show us the ad and we'll 
refund the difference. 
It's that simple. 



Combine our price protection 
with the availability of full profes- 
sional support and our automatic 
update service and you have the 
Ultimate Software Plan. 

It's a convenient, uncomplicated, 
logical way to get your software. 



J» 

ARTIFICIAL INTELLIGENCE 

Medical(PAS-3) .$849/540 

Dental (PAS-3) 5849/540 
ASYST DESIGN 

Prof Time Billing 5549/540 

►'General Subroutine 5269/540 

y Application Utilities 5439/540 

COMPLETE BUS. SYSTEMS 

Creator 5269/525 

Reporter 5169/520 

Both 5399/545 

COMPUTER CONTROL. 

Fabs(B-tree) 5159/520 

UltraSortll 5159/525 

COMPUTER PATHWAYS 

Pearl (level 1) 5 99/525 

Pearl (level 2) $299/540 

Pearl (level 3) 5549/550 

DIGITAL RESEARCH 

CP/M 2.2 

NorthStar 5149/525 

TRS-80 Model II (P + T)S159/S35 
5169/525 
5189/525 
5459/535 
5179/530 
5 85/515 
5 65/515 
5 90/515 
5 90/515 
5 50/510 

5149/515 
5179/535 
5369/545 
5539/545 

5 729/540 
5729/540 
5729/540 
5729/540 
5729/540 
$729/540 
5493/540 
5493/540 
5493/540 
5493/540 
5729/540 
5729/540 
5729/540 

5269/525 
5469/535 



\f (New items or new prices) 

CP/M users: specify disk systems and formats Most formats available 



MICROSOFT 

Basic-80 

Basic Compiler 
Fortran-80 
Cobol-80 
M-Sort 

Macro-80 

Edit-80 

MuSimp/MuMath 
MuLisp-80 . 



5289/530 
5329/530 
5349/530 
5574/530 
5124/530 
5144/520 
5 84/520 
5224/525 
5174/520 



PASCAL 

Pascal/MT+ 5429/530 

Pascal/Z 5349/530 

* Pascal/UCSD4 5429/550 

e* Pascal/M 5189/520 

WORD PROCESSING 



Micropolis 

Cromemco 

PL/l-80 

y BT-80 
Mac 
Sid 
Z-Sid 
Tex 

De Spool 
D.M.A. 

Ascom 

DMA-DOS 

CBS 

Formula 

GRAHAM-DORIAN 

General Ledger 
Acct Receivable 

Acct Payable 

Job Costing 

Payroll II 

Inventory II 

Payroll 

Inventory 
Cash Register 
Apartment Mgt 

Surveying 

Medical 

Dental 

MICRO-AP 

S-Basic ;„ . 

■ Se'ector IV 



MICRO DATA BASE SYSTEMS 
HOBS! ... 5269/535 

MDBS 5795/540 

w-DRSorQRSorRTL 5269/510 
MDBSPKG '. 51295/560 

MICROPRO 

WordStar $319/$60 

Customization Notes $ 89/Sna 

Mail-Merge 5109/525 

WordStar/ Mail-Merge 54 19/585 
DataStar . . 5249/560 

WordMaster 5119/540 

SuperSort I 5199/540 



ORGANIC SOFTWARE 

^TextWriter III 5111/525 

DateBook II 5269/525 

s Milestone 5269/530 

OSBORNE 

General Ledger 5 59/520 

Acct Rec/Acct Pay 5 59/520 

Payroll w/Cost 5 59/520 

All 3 . .... . 5129/560 

All 3 + CBASIC-2 .5199/575 

PEACHTREE" 

General Ledger 5399/540 

Acct Receivable 5399/540 

Acct Payable 5399/540 

Payroll 5399/540 

Inventory $399/$40 

Surveyor $399/$40 

Property Mgt $799>$40 

CPA Client Write-up $799/$40 

Mailing Address $349/$40 

SOFTWARE WORKS 

Adapt (CDOS to CP/M) $ 69/$na 
Ratfor 5 86/Sna 

SOHO GROUP 

MatchMaker 5 97/520 

Worksheet 5177/520 

STRUCTURED SYSTEMS 

GLor ARor APorPay 5599/540 
Inventory Control 5599/540 

Analyst 5199/525 

Lettenght 5179/525 

QSort $ 89/520 

SUPERSOFT 

Diagnostic I 5 49/520 

Diagnostic II 5 84/520 

Disk Doctor 5 84/520 

s Forth (8080 or Z80) 5149/530 

Fortran $219/530 

Fortran w/Ratfor $289/535 

Other less 10% 
TCS 

GLor ARor APorPay 5 79/525 

AH 4 5269/599 

UNICORN 

"* Mince 5149/525 

■'Scribble 5149/525 

V Both ... 5249/550 

Amethyst 5299/575 

WHITESMITHS 

C Compiler 5600/530 

Pascal (incl'C") 5850/545 

DATA BASE 

FMS-80 5649/545 

dBASEII 5629/550 

Condor . . 5599/530 

Condor II 5899/550 

Access/80 .5749/550 



WordSearch 

SpellGua-d 

VTS/80 

Magic Wand 
Spell Binder 

OTHER GOODIES 

The Last One 

SuperCalc 

Target 

BSTAM 

BSTMS 

Tiny C" 

Tiny C Compiler 

CBASIC-2 

Nevada Cobol 

MicroStat . 

Vedit 

MiniModel 

StatPak 

Micro B + 

Raid 

String/80 

String/80 (source) 



5179/550 
5229/525 
$259/$65 
S289/S45 
$349/$45 

$549/$95 
$269/$ 50 
$189/$30 
$149/$15 
$149/$15 
$ 89/$50 
$229/550 
5 98/520 
5129/525 
$224/$25 
.5105/515 
5449/550 
5449/540 
5229/520 
5224/535 
5 84/520 
5279/Sna 



INFO UNLIMITED 

EasyWriter 5224 

Datadex 5349 

Other less 15% 

MICROSOFT 

Softcard (Z-80 CP/M) 5259 

Fortran 5179 

Cobol 5499 

MICROPRO 

Wordstar 5269 

MailMerge 5 99 

Wordstar/MailMerge 5349 
SuperSort I 5159 

PERSONAL SOFTWARE 

Visicalc 3.3 . 5159 

CCA Data Mgr $ 84 

Desktop/Plan II $159 

Visiterm $129 

Visidex $159 

Visiplot 5149 

Visitrend/Visiplot 5229 

Zork ... 5 34 

PEACHTREE" 

General Ledger 5224/540 

Acct Receivable 5224/540 

Acct Payable .5224/540 

Payroll 5224/540 

Inventory 5224/540 

OTHER GOODIES" 

dBASEII 5329/550 

<S VU #3 (use w/Visicalc) 5 79 

Super-Text II 5127 

Data Factory .5129 

DB Master 5184 

OEM (complete 

accting) $399 

Charles Mann less 15% 

STC less 1 5% 



ORDERS ONLY-CALL TOLL FREE VISA • MASTERCHARGE 
1-800-854-2003 ext. 823 • Calif. 1-800-522-1500 ext. 823 

Ssfden^a^d 6% s°aleL U ?af. dl AMow V£Z& ' "P $ ? b °r £°r\ ,a9e and handl,n «> <> er each " em ' California 
Ss^ C ° D ok ' Pr *es subject to change without notice 

THE DISCOUNT SOFTWARE GROUP 

6520 Selma Ave. Suite 309 • Los Angeles, Ca. 90028 • (213) 666-7677 
Int I TELEX 499-0032 BVHL Attn DiscSoft • USA TELEX 194-634 BVHL Attn DiscSoft • ^440 
. ™VX 910-321-3597 BVHL Attn: DiscSoft "'Scion y *4U 



peripheral devices must be rewritten to ac- 
commodate the changed addressing meth- 
od. If possible, they should use the built-in 
ROM routines, so they can be made trans- 
portable. 

Programs that occupy low memory (4000 
through 42E9) cannot be used at all in the 
Model III. Programs that occupy memory 
from 42E9 through 43E9 might be used, with 
care. 

Programs that use critical software tim- 
ing loops must be modified to account for 
the faster clock of the Model III. Any delay 
constants must be multiplied by a factor of 
1.143 to accomplish this. 

Basic programs with more than 256 bytes 
of free memory may be transported directly 
to the Model III. A Basic program that does 
not meet this criterion must be shortened 
before it can be successfully run on the 
Model III. When shortening a program, re- 
member that memory is allocated dynamic- 
ally during run time to handle GOSUBs, 
For. . .Next loops, parentheses, etc. Thus, 
memory size will be larger when the pro- 
gram halts than while it is running. ■ 



SUPER "COLOR" WRITER 



At last, a full featured, fast word processing system for the 
TRS-80 (TM) Color Computer & Line Printer VII The Super 
Color Writer writes Letters, Memos. Checks. Invoices. 
Essays with page numbers. Addresses Envelopes etc • 
Screen Display Option • Key Beep • Block Move • Delete • 
Insert • Scroll • Correct • Quick Paging • Word Count • 
Search • And More • 16K Color or 16K Extended Basic • 

Add 32K Super Color Ram for Big Jobs 

CASSETTE AND COMPLETE DOCUMENTATION $49.95 



RAM EXPANSION KITS FROM $19.95 



MEMORY EXPANSION FOR TRS80 MODEL I, III & 

COLOR COMPUTER 

INCLUDES RAM TEST • PLUGS INSIDE COMPUTER 

Model III & 1 16K memory upgrade kits • guaranteed . $19.95 
Super Color Ram-04 16: 4K to 16K kit complete $19.95 
Super Color Ram- 1632: 16K to 32K kit complete $7995 
Super Color Ram-0432 4K to 32K Kit complete $99.00 
Includes instructions • Model 1/4K add $4 00 tor dip shunt 



GAME J, EDUCATION CASSETTE PACKS 

Model III • Cotof Computer • Model l/LII • 16K Required 
• • • Ultra Quality sound and graphics • • • 



COMBAT3-PAK CASS-S24.95 

Three Super-Action Real Time Two Player Games 
Stellar Battle • Galactic Blockade • • • 2-10 Combat 

ADVENTURE 3-PAK CASS-S24.95 

A Trilogy of Fantasy Adventures • Forsaken Gultch • 
Dazmar; World ot Doom • World Under The Cimeeon Moon 



VEGAS4-PAK 

Why fly to Vegas? You'll have 
One Arm Bandit • Casino Craps 



. . CASS— $24.95 

it at home 1 • Keno • 
Up and Down the River 



CHILDRENS EDUCATION 3-PAK CASS-S24.95 

Give your children a head start • Kid's math primer • 
Adventures in Storyland • Hangman — a fun word game 
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("TRS-80 is a registered trademark of the Tandy Corp) 



Specify computer typo • add $300 shippmc 
MN residents and 5' sales tax • send chock or M O to 
NELSON SOFTWARE SYSTEMS. INC • DEPT.808 

P.O. BOX 19096 • MPLS. MN 55419 • 612/9270511 



-480 



DISK HI 



100% Compatible 



Model III Disks 



Complete Business 
System includes: 
48K TRS-80™ Model 
III, Disk III™ 2 Drive 
System, TRSDOS 
and Manual. 



$1882 




DISK III Single 

drive assy 1 $599 
DISK III Two 

drive assy 
DISK III Assy 

w/out drives 
TRSDOS™ & 

Manual 
External drives 

(3 & 4) 299 



864 



435. 



21 



00 
00 
00 
90 
.00 



IMMEDIATE DELIVERY - COMPARE AND SAVE 

VR Data's DISK III features: 

• Completely compatible with TRSDOS 

• State-of-the-art circuitry 

• Fully tested, calibrated & burned-in 

• Up to 4 drive configuration 

• Heavy duty linear power supply 

• Warranty 120 days - 100% parts and labor 

• Installation with simple hand tools 

• Optional 80 tk and 2 sided drives 

'DISK III single drive assembly includes: one 40 
track 5 1 /i" double density drive, power supply, 
controller, mounting hardware, and applicable 
cables. 



Peripherals 




MODEL l/lll A 


;?oo 


Epson MX80 


$485.00 


Drive w/PS&Enc ^ 


)l// 


Epson MX80FT 


600.00 






Microline80 


425.00 


Fully Compatible 




Centronics 739 


750.00 


120 day warranty 




Starwriter25(P) 


1395.00 


Easy installation 




RS-232 Model III 


75.00 


80 tk or 2 sided 


$419.00 


Lexicon Modem 


125.00 


80tk&2sided 


549.00 



IF YOU DON'T SEE IT ADVERTISED CALL US AND ASK FOR IT. 

PUBLISHED PRICES REFLECT CASH DISCOUNT. 

ALL PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE. 

TRS-80 and TRSDOS are trademarks of Tandy Corp. 

DISK III is a trademark of VR Data Corp. 

Dealership available. To order call toll free-800 345-8102 or (215) 461-5300 in PA. 



OTHER PRODUCTS 




TRS-80 Color 




Computer 16K 


$525.00 


Disk & Other 




Mysteries 


22.50 


Basic & Other 


i 


Mysteries 


29.95 


The Custom 




TRS-80 


29.95 


Superbrain64K 


2849.00 


9V&X11 paper-case 


29.95 


Ribbons 


QUOTE 




VR Data Corporation 
777 Henderson Boulevard 



Folcroft, PA 19032 



v* See List Of Advertisers on page 354 
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UTILITY 



An Assembly code program that keeps the computer, not the user, 
number crunching. 



Base Conversions 



James Yowell Yelvington 
81 1 East Will Rogers Drive 
Stillwater, OK 74074 



No doubt there are good reasons why 
the TRS-80 was designed to utilize 
several different number formats. Whatever 
the reasons, this multiplicity would chal- 
lenge even such a polyglot as the lo- 
quacious 'droid See Threepio. And as for 
mere humans, how can we expect to cope? 
Not long after I bought my computer, it 
began to dawn on me that I was doing near- 
ly as much computing for it as it was doing 
for me. This unexpected situation struck me 
as both paradoxical and unfortunate, but 
there seemed little I could do about it. The 
computer was inflexible about its numbers: 
When it wanted decimal, it had to have deci- 
mal; when it wanted split decimal, nothing 
else would do. The case was further compli- 
cated by various utility programs I had 
bought— they refused to speak anything 
but hexadecimal. 

For awhile I endured the situation. I 
learned to translate numbers fairly quickly 
and accurately by using either direct Basic 
commands or a small calculator which I 
kept near the computer. Then I decided to 
write a Basic program to do the conver- 
sions. 

What I really needed was a machine lan- 
guage program. Such a program could be 
stashed in high memory where it would be 
out of the way of Basic and other programs, 
and would be easily accessible. It would not 
interfere with Basic variables, would not 
disappear on system re-initialization, and 
wr -Id be faster than a Basic program. 

I looked through software ads in various 
computing magazines to see if I could lo- 
cate a suitable program of this kind, but I 
had no success. My choice was to write my 
own. 
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Number Formats 

As a first step in planning the program I 
reviewed the various number formats used 
when computing with the TRS-80. The first, 
simplest, and most obvious is plain deci- 
mal. Numbers such as 21808, - 149, and 
1 7.54 are quite familiar and present no prob- 
lems. 

Another format is exponential notation, 
which is often used for very small or very 
large numbers. While scientists and engi- 
neers feel comfortable with them, most lay- 
men find numbers like -5.12E + 22, 
4.659E-08, -6.253D-12, and 1.109D + 26 
rather peculiar at first sight. They are not 
really very difficult, however. 

The letter indicates the amount of stor- 
age the computer allots for the number, 
which in turn determines the maximum 
number of significant digits. Single- 
precision numbers (E) have up to six signifi- 
cant digits; double-precision (D) have up to 
17. The signed number following the letter 
tells how many places to move the decimal 
point to the right ( + ) or to the left (-) in 
order to arrive at the actual value of the 
number. 

The operand of Basic's PEEK function 
(and the first operand of the POKE state- 
ment) is another form. For systems with 16K 
or less of memory, ordinary decimal inte- 
gers are used. For larger systems, however, 
addresses higher than 32767 are represent- 
ed by negative integers which are found by 
subtracting 65536 from the actual, or abso- 
lute, address. Thus, the address following 
32767 is given as - 32768 in the PEEK func- 
tion, and the highest allowable address 
(65535) is given as - 1. 

Split decimals are used primarily when 
POKEing the starting address of a machine- 
language subroutine into reserved memory. 
They are used to set up a call from Basic 
through the USR(n) function. This format 
consists of an ordered pair of decimal 
numbers derived from the absolute form of 
the address. The address is divided by 256. 



The first number of the ordered pair is the 
remainder; the second number is the inte- 
ger part of the quotient. The address 31279, 
for example, is given as the pair 47 and 122 
(least and most significant bytes, respec- 
tively). 



Computing Hex Numbers 

The hexadecimal, often abbreviated as 
hex, format occurs most commonly as a 
four-digit representation of a two-byte 
memory address. It also may be found as a 
two-digit representation of the contents of 
a single byte in memory or in a register. The 
hex format is commonly used in machine 
language programs. 

To computer hex, the decimal number is 
divided by the largest power of 16 that will 
go into it. The first hex digit is the integer 
part of the quotient. The second digit is 
derived from the remainder, which is divid- 
ed by the next lower power of 16. The se- 
cond hex digit is the integer part of this quo- 
tient. 

The process continues through the final 
division by 16 to the zero power (which 
equals one and never leaves a remainder). 
Hex digits whose values are greater than 
nine are represented by the letters A-F, 
which represent 10-15, respectively. Hex 
numbers are often followed by the letter H 
to distinguish them from decimal numbers. 
The decimal numbers 2857 and 51208, for 
example, are expressed in hexadecimal for- 
mat as B29H and C808H. 

Binary Numbering 

Binary is the most basic and elemental 
language which the computer knows. The 
other numeric formats are simply alterna- 
tive ways of expressing binary information 
for the convenience of human operators. 
Binary numbers appear as strings (often 
rather lengthy) of ones and zeros. 

No matter how hard it is to understand 
binary numbers, there are times when you 



Osborne 

AWAKENS the TRS-80 

and Puts it to Wurk. 



All too often, computer users who've been used to entertainment programs have trouble 
coming up with ideas for practical computing. Your computer plays space games well 
enough, but when you have a down to earth problem like the future of an investment or 
federal withholding taxes, can it perform? It can now. 

Osborne/McGraw-Hill introduces Some Common BASIC Programs for the TRS-80™. This book 
contains 76 short, brilliantly documented programs that you can key directly into with yourTRS-80™ 
computer. You'll get a lot of math power including personal finance, taxes, and statistics. All the 
progams are listed below. 



Future of an Investment 


Angle Conversion Radians to Degrees 


Poisson Distribution 




Future Value ot Regular Deposits (Annuity) 


Angle Conversion: Degrees to Radians 


Normal Distribution 




Regular Deposits 


Coordinate Conversion 


Chi-square Distribution 




Regular Withdrawals from an Investment 


Coordinate Plot 


Chi-square Test 




Initial Investment 


Plot of Polar Eguation 


Student's t-distribution 




Minimum Investment tor Withdrawals 


Plot of Functions 


Student's t-distribution Test 




Nominal Interest Rates on Investments 


Linear Interpolation 


F-distribution 




Effective Interest Rate on Investments 


Curvilinear Interpolation 


Linear Correlation Coefficient 




Earned Interest Table 


Integration Simpson's Rule 


Linear Regression 




Depreciation Rate 


Integration Trapezoidal Rule 


Multiple Linear Regression 




Depreciation Amount 


Integration Gaussian Quadrature 


Nth Order Regression 




Salvage Value 


Derivative 


Geometric Regression 




Discount Commercial Paper 


Roots of Quadratic Eguations 


Exponential Regression 




Principal on a Loan 


Real Roots of Polynomials Newton 


System Reliability 




Regular Payment on a Loan 


Roots of Polynomials Half-Interval Search 


Average Growth Rate. Future Projections 


Last Payment on a Loan 


Trig Polynomial 


Federal Withholding Taxes 




Remaining Balance on a Loan 


Simultaneous Eguations 


Tax Depreciation Schedule 




Term of a Loan 


Linear Programming 


Check Writer 




Annual Interest Rate on a Loan 


Matrix Addition. Subtraction. Scalar Multiplication 


Recipe Cost 




Mortgage Amortization Table 


Matrix Multiplication 


Map Check 




Greatest Common Denominator 


Matrix Inversion 






Pnme Factors of Integers 


Permutations and Combinations 


Days Between Two Dates 




Area of a Polygon 


Mann-Whitney U Test 


Anglo to Metric 




Parts of a Triangle 


Mean. Variance. Standard Deviation 


Alphabetize 


m 


Analysis of Two Vectors 


Geometric Mean and Deviation 




Operations on Two Vectors 


Binomial Distribution 





Some Common BASIC Programs ed. by Lon Poole: 

TRS-80'" level II edition - #54-3, $14.99 □ 
PET/CBfvr edition - #40-3, $14.99 □ 
Generalized BASIC edition - #06-3, $14.99 
Atari™ edition - #53-5. $14.99 D 



Make check payable to: OSBORNE/McGraw-Hill 

630 Bancroft Way. Berkeley, CA 94710 Dept. KT1 



^559 



Practical BASIC Programs ed. by Lon Poole 
Contains 40 additional programs with a wide 
range of home and business applications. (Gen- 
eralized BASIC edition only) #38-1, $15.99 D 

Phone: (415) 548-2805 
TOLL FREE: 800-227-2895 Outside California 



Name. 



Address 



City/State/Zip 



Plus n ,75/item 4th class I . $1.50/item UPS I I $2.50/item Air Mail I I $10.00/item Overseas 
(California Residents add applicable tax.) □ Please send me your free catalog. 



Total amount enclosed $. 
Signature 



or charge my Visa Mastercard #. 



Exp. Date 



.'See Ust ot Advertisers on page 354 
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"You can't tell two's 

complement. . . by appearance alone. 

Context reveals the format." 



can't avoid using them. For example, if you 
want to use the cassette port for sound ef- 
fects, you must control the status of indi- 
vidual binary digits. These digits affect bits 
within the byte that outputs through the 
port. 

Binary numbers are computed from deci- 
mal by the same method that hex numbers 
are. Of course, division is by powers of two 
rather than 16. 

A special type of binary is "two's comple- 
ment," which is used internally by the com- 
puter to represent signed integers. Such in- 
tegers are used as operands for various 
Basic and machine language instructions. 
In Basic they are also used for integer vari- 
ables. Machine-language programmers 
often have to deal with this format, though 
Basic programmers generally can avoid it. 
(Knowledge of it does help to explain cer- 
tain Basic operations. To learn more about 
twos-complement numbers, see William 
Barden's TRS-80 Assembly-Language Pro- 
gramming published by Radio Shack.) It's 
worth noting that you can't tell two's com- 
plement from regular binary or even hex by 
appearance alone. Context reveals the for- 
mat. The binary number 1110 0101 could 
mean 229 (absolute) or - 27 (two's comple- 
ment). 

A further complication of binary is the 
floating-point format used internally by the 
computer to represent single and double- 
precision Basic variables. Conversion to 
floating point is not simple. If you're inter- 
ested in learning more about it, see Wes 
Thielke's article "ROM Routines," 80 Micro- 
computing, Feb. 1980. 

Writing the Program 

This conversion program, called CON- 



VRT, is designed to be short, fast, and con- 
venient. It provides the most frequently 
needed conversions, and many that are less 
common. 

CONVRT displays results clearly, using 
only a small part of the screen so that prior 
conversions can remain on display. 

"No matter what 

outlandish dialect the 

computer speaks, I can 

force it to translate." 



Conversions can be performed one-to- 
one on demand, rather than presenting 
multiple conversions from a single input. As 
far as practical, conversions are available in 
both directions. Direct conversions are not 
provided if two or three conversions can ac- 
complish the same result. 

Specific Conversions 

Decimal to hex and the reverse are in- 
cluded, as are hex to binary and vice versa 
for single bytes. Since my system has over 
16K of memory, CONVRT has absolute-to- 
PEEK and the reverse conversions. Be- 
cause of the difficulty of converting 
decimal integers and floating point num- 
bers to their internal storage formats, CON- 
VRT includes these conversions, but only 
with hex output. 

Where possible I use ROM routines to cut 
down on programming and space require- 
ments. I also employ the RST 48 vector to 
provide a one-byte call to the frequently 
used video display routine at 28A7H in 



2-25 Detme ROM routine entry points and reserved RAM locations. Labels Ml through M9 identity 
arithmetic transfer, conversion, and computation routines in ROM. Labels RM1 through RM8 
identify reserved RAM locations. 

27-30 Set up access to CONVRT through Get. 

31-44 General setup routine 

45-62 Main menu Display main prompt, scan Keyboard, jump to main routines. 

63-71 Return-routine. Exit to Basic or system monitor. 

72-79 Secondary menu for B command. Display prompt, scan keyboard, jump to subordinate routines. 

80-121 Perform byte conversion from binary to hex. 

122-163 Perform byte conversion from hex to binary. 

164-215 Perform decimal to hex (two-byte) conversion 

216-257 Perform hex to decimal (two-byte) conversion. 

258-267 Secondary menu for N command Display prompt, scan keyboard, jump to subordinate routines 

268-293 Display internal format of integer (in hex). 

294-318 Display internal format of single-precision number (in hex). 

319 342 Display internal format of double-precision number (in hex). 

343 350 Secondary menu for P command. Display prompt, scan keyboard, jump to subordinate routines. 

351 365 Perform absolute to PEEK address conversion. 

366 399 Perform PEEK to absolute address conversion. 

400-453 Various utility subroutines called by main or secondary routines. 

454 Reserve stack space. 

455-495 Define messages and parts of messages for display. 

496-498 Reserve memory for storage. 

Table 1 



ROM. 

For convenience, I use a Disk Basic com- 
mand vector to set up access to the pro- 
gram from Basic through the Get com- 
mand. There is single keystroke access to 
the major conversion routines. There are 
similar exits to Basic and to the system 
monitor. The program occupies 1160 bytes, 
including a 30-byte internal stack. 

No matter what outlandish dialect the 
computer speaks, I can now force it to 
translate. 

Setting Up the Program 

To take advantage of CONVRT, you will 
have to assemble it from Program Listing 1 
and record the object file on tape. Before 
assembly you may want to make certain 
changes. As listed, CONVRT loads into the 
top of a 16K Level II system, but a change in 
the ORG statement will let you load it 
wherever you like. 

If you have Disk or Level III Basic, you 
may want to delete lines 27-30, which set up 
access to the program by Get. Change the 
operand of the End statement (line 499) 
from Start to ENT2. Enter the program each 
time by the System/entry address method. 

(You may leave lines 27-30 in, however. If 
you always enter the program at ENT2 by 
System/entry address method, the Get 
command vector is undisturbed.) 

Using the Program 

To use CONVRT, first set the memory 
size, then load. If the ORG statement is left 
at 7B78H, the memory size should be 31607 
and the entry address, 31608. 

After using CONVRT, reenter anytime by 
System/entry address. If the Get access 
method is set up for the first entry, reentry 
from Basic can be achieved simply by typ- 
ing "GET." 

After CONVRT is entered, the main 
prompt identifies the program and lists the 
commands available in the main menu. All 
commands are single keystrokes: B, D, H, 
N, P, the Enter key, and the Clear key. 

Commands and Functions 

B— Byte conversion between hex and 
binary. A secondary prompt requests B 
(binary) or H (hex) to identify type of input 
and the direction of conversion. To convert 
a byte of binary to its hex equivalent, press 
B, then enter a string of eight binary digits, 
zeros and ones with no spaces before or be- 
tween them. The hex value will be dis- 
played. To convert a byte of hex to binary, 
press H, then enter two hex digits. The 
binary form, or bit pattern, will be displayed 
(from most significant to least significant 
bit, with intervening spaces for greater 
legibility). After any conversion, you are 
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"The two most important conversions. . . 

are from decimal to hex and vice versa . . . 

Two-byte integers are easiest." 



returned to the main prompt and menu. 

(Note: If you make an error while entering 
a number anywhere in the program, you can 
backspace to correct it.) 

D— Decimal to hex. Enter a decimal inte- 
ger from to 65535; the hex equivalent is 
displayed (most significant byte first) as 
four hex digits. 

H— Hex to decimal. Enter exactly four 
hex digits (use leading zeros if necessary), 
and the absolute (positive) decimal equiva- 
lent is displayed. 

N— Number (decimal) to internal format. 
A secondary prompt requests I (integer), S 
(single-precision), or D (double-precision) to 
indicate type of input number. To display 
the internal format of an integer, press I, 
then enter any decimal integer between 
- 32768 and 32767. Two bytes (least signifi- 
cant byte first) are displayed as four hex 
digits. 

To display the internal, floating point for- 
mat of a single-precision decimal number, 
press S, then enter the number. (It can be ex- 
ponential notation.) Four bytes, from least 
to most significant, will be displayed as 



eight hex digits (grouped into fours for 
legibility). To display the internal, floating 
point format of a double-precision number, 
press D, then enter the number. (It may be 
exponential notation.) Eight bytes are dis- 
played as 16 hex digits. They are grouped in 
fours from least to most significant. 

P— PEEK and absolute address. A sec- 
ondary prompt requests A (absolute) or P 
(PEEK) address format to be input. To con- 
vert an absolute address to PEEK format, 
press A, then enter any address from to 
65535. The equivalent PEEK format of the 
address appears on the screen. To convert 
a PEEK address to its absolute equivalent, 
press P, then enter an address value from 
- 32768 to 32767. 

ENTER— Return to Basic. To return to 
Basic from the main menu, press Enter. 
This returns you to Basic at 06CCH. This 
command makes it easy to jump back and 
forth between CON VRT for conversions and 
Basic for calculations. 

CLEAR— Return to system monitor. To 
return to the system monitor from the main 
menu, press Clear. You return to the system 







Program Listing 1 








00001 ;CONVRT 


3.2, J. 


YELVINGTON, JUNE 


1980 


0049 




00002 INCH 


ECU 


49H 




02B2 




00003 SYS 


EQU 


2B2H 




032A 




00004 PRCH 


EQU 


32AH 




06CC 




00005 BAS 


EQU 


6CCH 




6716 




00006 Ml 


EQU 


716H 




0994 




00007 M2 


EQU 


994H 




09A4 




00008 M3 


EQU 


9A4H 




0A7F 




00009 M4 


EQU 


0A7FH 




0A9A 




00010 M5 


EQU 


0A9AH 




0AB1 




00011 H6 


EQU 


0AB1H 




0E65 




00012 M7 


EQU 


0E65H 




0E6C 




00013 M8 


EQU 


0E6CH 




0FBD 




00014 H9 


EQU 


0FBDH 




1BB3 




00015 INST 


EQU 


1BB3H 




28 A7 




00016 PRST 


EQU 


28A7H 




400F 




00017 RM1 


EQU 


400FH 




4010 




00018 RM2 


EQU 


4010H 




40A7 




00019 RM3 


EQU 


40A7H 




411D 




00020 RH4 


EQU 


411DH 




4121 




00021 RH5 


EQU 


4121H 




4123 




00022 RH6 


EQU 


4123H 




417P 




00023 km; 


EQU 


417FH 




4180 




00024 RH8 


EQU 


4180H 




41E8 




00025 INBUF 


EQU 


41E8H 




7B78 




00026 


ORG 


7B7 8H 




7B78 


3EC3 


00027 START 


LD 


A.0C3H 




7B7A 


327F41 


00028 


LU 


(RM7) ,A 




7B7D 


21837B 


00029 


LD 


HL.ENT2 




7B80 


228041 


00030 


LD 


(RM8),HL 




7B83 


ED7 3FD7F 


00031 ENT2 


LD 


(OSP),SP 




7B87 


FD2A1040 


00032 


LD 


IY, (RM2) 




7B8B 


3A0F40 


00033 


LD 


A, (RM1) 




7B8E 


32FF7F 


00034 


LD 


(RV),A 




7B91 


3EC3 


00035 


LD 


A.0C3H 




7B93 


320F40 


00036 


LD 


(RM1),A 




7B96 


21A728 


00037 


LD 


HL.PRST 




7B99 


221040 


00038 


LD 


(RM2) ,HL 




7B9C 


213C7F 


00039 


LD 


HL, TITLE 




7B9F 


F9 


00040 


LD 


SP.HL 




7BA0 


21E841 


00041 


LD 


HL, INBUF 




7BA3 


22A740 


00042 


LD 


(RM3),HL 




7BA6 


3E1B 


00043 


LD 


A, 27 




7BA8 


CD2A03 


00044 


CALL 


PRCH 




7 BAB 


213C7F 


0004 5 MENU 


LD 


HL, TITLE 




7BAE 


F7 


00046 


RST 


48 




7BAF 


CD4900 


00047 SCN1 


CALL 


INCH 




7BB2 


FE0D 


00048 


CP 


13 




7BB4 


CAD67B 


0004 9 


JP 


Z , RTRN 




7BB7 


FE1F 


00050 


CP 


31 




7BB9 


CAD67B 


00051 


JP 


Z.RTRN 




7 BBC 


FE42 


00052 


CP 


•B' 


Program continues 



monitor at 02B2H, and can load a machine 
language program or jump with the /entry 
address command to any location. 

These commands and functions can be 
used to make two's-complement and split- 
decimal conversions. 

Two's Complement Conversions 

The most important conversions involv- 
ing the two's-complement format are from 
decimal to hex and vice versa, with two-byte 
and one-byte integers. Two-byte integers 
are easiest. 

Signed decimal integers from -32768 to 
32767 can be converted to two's-comple- 
ment-hex simply by using the D command. 
Press D, then enter the signed decimal in- 
teger. The correct two's-complement-hex 
format appears with the most significant 
byte first. 

Two-byte hex integers in two's-comple- 
ment format are converted to their signed 
decimal equivalents by a two-step process. 
First press H, then enter the four-digit hex 
integer. The second step is to press P, then 
A, and then enter the result from the first 
step. The signed-decimal integer is shown 
with the PEEK label. 

Signed-decimal integers from -128 to 
127 may be converted to one-byte 
two's-complement hex. Press D, then enter 
the integer. Ignore the first two hex digits 
shown. The last two are the result. 

One-byte hex integers in two's-comple- 
ment format are converted to signed deci- 
mal by two different methods. If the first 
hex digit is eight or greater, press H and 
enter two Fs followed by the two-digit hex 
integer. If the first hex digit is seven or less, 
press H and enter two zeros followed by the 
two-digit hex integer. The signed decimal 
equivalent results. 

Split Decimal Conversions 

Split decimal conversions can be done 
with CON VRT by using multiple step opera- 
tions. Some may be easier to do by using 
direct arithmetic commands in Basic, how- 
ever. The principal conversions are de- 
scribed below. 

To convert hex to split decimal press H, 
and enter two zeros followed by ihe last two 
hex digits. This yields the first number of 
the split decimal pair, the least significant 
byte. Once again, press H, and enter two 
zeros. This time follow with the first two hex 
digits. This yields the second number, the 
most significant byte. 

To convert split decimal to hex format 
press D and enter the second number of the 
split-decimal pair (most significant byte). 
The last two hex digits displayed are the 
first two of the hex result. Press D again. 
Enter the first number of the split-decimal 
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Don't be misled by more expensive imitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software"— "In- 
stant Software"— "Level IV'productsand soon 

Just imagine . . . 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little imagination!! 

For fast real time programming it is your lowest 
cost peripheral at *19.95 



Announcing 




NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 10 more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 9 other commands. Perfect for 
you lightware authors and NEW light pen owners 
too! ........ .only *14. 95 



---; (COUPON) 

Micro Matrix ^m 
P.O.Bq*!938 • Pacifica. CA 94044 
Send for yours NOW: (41 5) 355-4635 

Name 

Address - 

City 

Zip 



St. 



Photopoint 
$19.95 

Pen Basic 
[~l $14.95 



Card# 
Ex 

Date . _ 



Money 
CK. Order Visa MC 

n n n n 





Program continued 








7BBE 282E 00053 


JR 


Z,BITR 




7BC0 FE48 00054 


CP 


'H' 




7BC2 CA217D 00055 


JP 


Z,HEXR 




7BC5 FE44 00056 


CP 


'D' 




7BC7 CAAD7C 00057 


JP 


Z.DECR 




7BCA FE4E 00058 


CP 


'N' 




7BCC CA7B7D 00059 


JP 


Z,NUMR 




7BCF FE50 00060 


CP 


.p. 




7BD1 CA367E 00061 


JP 


Z.PKR 




7BD4 18D9 00062 


JR 


SCN1 




7BD6 47 00063 RTRN 


LD 


B,A 




7BD7 3AFF7F 00064 


I.D 


A, (RV) 




7BDA 320F40 00065 


LD 


(RM1) ,A 




7BDD FD221040 00066 


LD 


(RM2) , IY 




7BE1 ED7BFD7F 00067 


LD 


SP, (OSP) 




7BE5 78 00068 


LD 


A,B 




7BE6 FE1F 00069 


CP 


31 




7BE8 CAB202 00070 


JP 


Z.SYS 




7BEB C3CC06 00071 


JP 


BAS 




7BEE 21907F 00072 BITR 


LD 


HL,BTQ 




7BF1 F7 00073 


RST 


48 




7BF2 CD4900 00074 SCN2 


CALL 


INCH 




7BF5 FE42 00075 


CP 


'B' 




7BF7 2806 00076 


JR 


Z.BBR 




7BF9 FE48 00077 


CP 


'H' 




7BFB 2855 00078 


JR 


Z,HBR 




7BFD 18F3 00079 


JR 


SCN2 




7BFF 21897F 00080 BBR 


i,n 


HL.CT2 




7C02 F7 00081 


RST 


48 




7C03 21697F 00082 


LD 


HL.BN 




7C06 F7 00083 


RST 


48 




7C07 21637F 00084 


LD 


HL.BYT 




7C0A F7 00085 


RST 


48 




7C0B 21E87F 00086 


LD 


HL,VAL 




7C0E F7 00087 


RST 


48 




7C0F CDB31B 00088 


CALL 


INST 




7C12 E5 00089 


PUSH 


HL 




7C13 21887F 00090 


LD 


HL.CTL 




7C16 F7 00091 


RST 


48 




7C17 21697F 00092 


LD 


HL r BN 




7C1A F7 00093 


RST 


48 




7C1B 21637F 00094 


LD 


HL.BYT 




7C1E F7 00095 


RST 


48 




7C1F 21E841 00096 


LD 


HL.INBUF 




7C22 F7 00097 


RST 


48 




7C23 218C7F 00098 


LD 


HL,EQ 




7C26 F7 00099 


RST 


48 




7C27 El 00100 


POP 


HL 




7C28 AF 00101 


XOR 


A 




7C29 0608 00102 


LD 


B,8 




7C2B 23 00103 BL0 


INC 


HL 




7C2C CB27 00104 


SLA 


A 




7C2E CB46 00105 


HIT 


0, (HL) 




7C30 2802 00106 


JR 


Z.BL1 




7C32 CBC7 00107 


SET 


0,A 




7C34 10F5 00108 BL1 


DJNZ 


BL0 




7C36 67 00109 


LD 


H,A 




7C37 CB3F 00110 


SRL 


A 




7C39 CB3F 00111 


SRL 


A 




7C3B CB3F 00112 


SRL 


A 




7C3D CB3F 00113 


SRL 


A 




7C3F CD017F 00114 


CALL 


CVA 




7C42 7C 00115 


LD 


A,H 




7C43 E60F 00116 


AND 


0FH 




7C45 CD017F 00117 


CALL 


CVA 




7C48 216F7F 00118 


LD 


HL.HX 




7C4B F7 00119 


RST 


48 




7C4C CD187F 00120 


CALL 


CR 




7C4F C3AB7B 00121 


JP 


MENU 




7C52 21897F 00122 HBR 


LD 


HL.CT2 




7C55 F7 00123 


RST 


48 




7C56 216F7F 00124 


LD 


HL,HX 




7C59 F7 00125 


RST 


48 




7C5A 21637F 00126 


LD 


HL.BYT 




7C5D F7 00127 


RST 


48 




7C5E 21E87F 00128 


LD 


HL.VAL 




7C61 F7 00129 


RST 


48 




7C62 CDB31B 00130 


CALL 


INST 




7C65 E5 00131 


PUSH 


HL 




7C66 21887F 00132 


LD 


HL.CTL 




7C69 F7 00133 


RST 


48 




7C6A 216F7F 00134 


LD 


HL.HX 




7C6D F7 00135 


RST 


48 




7C6E 21637F 00136 


LD 


HL.BYT 




7C71 F7 00137 


RST 


48 




7C72 21E841 00138 


LD 


HL.INBUF 




7C75 F7 00139 


RST 


48 




7C76 218C7F 00140 


LD 


HL.EQ 




7C79 F7 00141 


RST 


48 




7C7A El 00142 


POP 


HL 




7C7B 0602 00143 


LD 


B.2 




7C7D CDEA7E 00144 


CALL 


BFHX 




7C80 DD21E841 00145 


LD 


IX.INBUF 




7C84 CDF27E 00146 


CALL 


HXBI 




7C87 4F 00147 


LD 


C.A 




7C88 0608 00148 


LD 


B.8 




7C8A CB79 00149 HB1 


BIT 


7.C 




7C8C 2807 00150 


JR 


Z.HB2 




7C8E 3E31 00151 


LD 


A, 49 




7C90 CD2A03 00152 


CALL 


PRCH 




7C93 1805 00153 


JR 


HB3 




7C95 3E30 00154 HB2 


LD 


A, 48 




7C97 CD2A03 00155 


CALL 


PRCH 




7C9A CB21 00156 HB3 


SLA 


C 




7C9C 3E20 00157 


LD 


A, 32 




7C9E CD2A03 00158 


CALL 


PRCH 




7CA1 10E7 00159 


DJNZ 


HB1 




7CA3 21697F 00160 


LD 


HL.BN 




7CA6 F7 00161 


RST 


48 




7CA7 CD187F 00162 


CALL 


CR 




7CAA C3AB7B 00163 


JP 


MENU 

Program continues 
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7 CAD 


21897F 


00164 DECR 


LD 


HL.CT2 


7CB0 


F7 


00165 


RST 


48 


7CB1 


21757F 


00166 


LD 


HL,DC 


7CB4 


F7 


00167 


RST 


48 


7CB5 


21E87F 


00168 DPR 


LD 


HL,VAL 


7CB8 


F7 


00169 


RST 


48 


7CB9 


CDB31B 


00170 


CALL 


INST 


7CBC 


ES 


00171 


PUSH 


HL 


7CBD 


21887F 


00172 


LD 


HL,CTL 


7CC0 


F7 


00173 


RST 


48 


7CC1 


21757F 


00174 


LD 


HL.DC 


7CC4 


3AFC7F 


00175 


LD 


A, (FLG) 


7CC7 


FE50 


00176 


CP 


ipi 


7CC9 


2004 


00177 


JR 


NZ.DP2 


7CCB 


110600 


00178 


LD 


DE,6 


7CCE 


19 


00179 


ADD 


HL,DE 


7CCF 


F7 


00180 DP2 


RST 


48 


7CD0 


21E841 


00181 


LD 


HL.INBUF 


7CD3 


F7 


00182 


RST 


48 


7CD4 


218C7F 


00183 


LD 


HL.EQ 


7CD7 


F7 


00184 


RST 


48 


7CD8 


El 


00185 


POP 


HL 


7CD9 


D7 


00186 


RST 


16 


7CDA 


CD6C0E 


00187 


CALL 


M8 


7CDD 


CDB10A 


00188 


CALL 


M6 


7CE0 


CDA409 


00189 


CALL 


M3 


7CE3 


068F 


00190 


LD 


B,8FH 


7CE5 


0EFF 


00191 


LD 


C.0FFH 


7CE7 


16FE 


00192 


LD 


D,0FEH 


7CE9 


1E00 


00193 


LD 


E,0 


7CEB 


CD1607 


00194 


CALL 


Ml 


7CEE 


CD9409 


00195 


CALL 


M2 


7CF1 


CI 


00196 


POP 


BC 


7CF2 


Dl 


00197 


POP 


DE 


7CF3 


ED532141 


00198 


LD 


(RM5),DE 


7CF7 


ED432341 


00199 


LD 


(RM6) ,BC 


7CFB 


FE01 


00200 


CP 


1 


7CFD 


200A 


00201 


JR 


NZ,DP3 


7CFF 


0691 


00202 


LD 


B,91H 


7D01 


0E80 


00203 


LD 


C,80H 


7D03 


1600 


00204 


LD 


D,0 


7D05 


5A 


00205 


LD 


E,D 


7D06 


CD1607 


00206 


CALL 


Ml 


7D09 


CD7F0A 


00207 DP3 


CALL 


M4 


7D0C 


3AFC7F 


00208 


LD 


A, (FLG) 


7D0F 


FE50 


00209 


CP 


.p. 


7D11 


CA577E 


00210 


JP 


Z.PAR2 


7D14 


CDC57E 


00211 


CALL 


HLHX 


7D17 


216F7F 


00212 


LD 


HL,HX 


7D1A 


F7 


00213 


RST 


48 


7D1B 


CD187F 


00214 


CALL 


CR 


7D1E 


C3AB7B 


00215 


JP 


MENU 


7D21 


21897F 


00216 HEXR 


LD 


HL.CT2 


7D24 


F7 


00217 


RST 


48 


7D25 


216F7F 


00218 


LD 


HL,HX 


7D28 


F7 


00219 


RST 


48 


7D29 


21E87F 


00220 


LD 


HL.VAL 


7D2C 


F7 


00221 


RST 


48 


7D2D 


CDB31B 


00222 


CALL 


INST 


7D30 


E5 


00223 


PUSH 


HL 


7D31 


21887F 


00224 


LD 


HL,CTL 


7D34 


F7 


00225 


RST 


48 


7D35 


216F7F 


00226 


LD 


HL,HX 


7D38 


F7 


00227 


RST 


48 


7D39 


21E841 


00228 


LD 


HL r INBUF 


7D3C 


F7 


00229 


RST 


48 


7D3D 


218C7F 


00230 


LD 


HL,EQ 


7D40 


F7 


00231 


RST 


48 


7D41 


0604 


00232 


LD 


B,4 


7D43 


El 


00233 


POP 


HL 


7D44 


CDEA7E 


00234 


CALL 


BFHX 


7D47 


DD21E841 


00235 


LD 


IX,INBUF 


7D4B 


CDF27E 


00236 


CALL 


HXBI 


7D4E 


67 


00237 


LD 


H,A 


7D4F 


DD23 


00238 


INC 


IX 


7D51 


DD23 


00239 


INC 


IX 


7D53 


CDF27E 


00240 


CALL 


HXBI 


7D56 


6* 


00241 


LD 


L,A 


7D57 


CD9A0A 


00242 


CALL 


M5 


7D5A 


CD9409 


00243 


CALL 


M2 


7D5D 


FEFF 


00244 


CP 


0FFH 


7D5F 


200C 


00245 


JR 


NZ,HR1 


7D61 


CDB10A 


00246 


CALL 


M6 


7D64 


0691 


00247 


LD 


B, 91H 


7D66 


0E00 


00248 


LD 


C,0 


7D68 


51 


00249 


LD 


D,C 


7D69 


59 


00250 


LD 


E,C 


7D6A 


CD1607 


00251 


CALL 


Ml 


7D6D 


CDBD0F 


00252 HR1 


CALL 


M9 


7D70 


F7 


00253 


RST 


48 


7D71 


21757F 


00254 


LD 


HL,DC 


7D7 4 


F7 


00255 


RST 


48 


7D7 5 


CD187F 


00256 


CALL 


CR 


7D7 8 


C3AB7B 


00257 


JP 


MENU 


7D7B 


21A57F 


00258 NUMR 


LD 


HL,NTQ 


7D7E 


F7 


00259 


RST 


48 


7D7F 


CD4 90 


00260 SCN3 


CALL 


INCH 


7D82 


FE49 


00261 


CP 


■I" 


7D84 


280A 


00262 


JR 


Z,IR 


7D86 


FE53 


00263 


CP 


'S' 


7D88 


2841 


00264 


JR 


Z,SR 


7D8A 


FE44 


00265 


CP 


'D' 


7D8C 


2874 


00266 


JR 


Z,DR 


7D8E 


18EF 


00267 


JR 


SCN3 


7D90 


21897F 


00268 IR 


LD 


HL,CT2 


7D93 


F7 


00269 


RST 


48 


7D94 


21D67F 


00270 


LD 


HL,INT 


7D97 


F7 


00271 


RST 


48 


7D98 


21E87F 


00272 


LD 


HL,VAL 


7D9B 


F7 


00273 


RST 


48 


7D9C 


CDB31B 


00274 


CALL 


INST 


7D9F 


E5 


00275 


PUSH 


HL 


7DA0 


21887F 


00276 


LD 


HL,CTL 

Program continues 
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STOCK MARKET 
SOFTWARE 

By H & H Trading Company for Mod. I, II, & III TRS-80®s 

STOCK TRACKER™ times trades on individ- 
ual stocks and options. Uses a technical volume 
analysis. Completely objective. Gives buy, sell 
signals. 

MARKET TRACKER™ times tops & bottoms 
on the Dow Industrials; a composite of six tech- 1 
nical indicators. Some judgement required. 
Gives buy, sell signals. 
These two programs are accurate. 
Hundreds of satisfied users. 

ASK FOR THE EVIDENCE ! 

FOR MORE INFORMATION OR TO ORDER, CONTACT: 

H * $M TAPING C0M<&1NY 



POST OFFICE BOX 23548 

PLEASANT HILL. CALIFORNIA 94523 

Telephone 415/937-1030 



VISA * MASTERCARD 



U 



®Regd T M. of Rodio Shock 



Software. 
For the 80s. 

Pensadyne Computer Services. The organization that has brought 
affordable software to hundreds of users in the over 40 of the United 
States and 16 countries around the world. The organization with the 
people, the support, the service and the expertise to bring you the 
highest quality products available. 

Pensa-write 1 -- Our BASIC word processing system for the 
owner who requires performance at low cost. Many of the features 
of more expensive word processing systems at a fraction of the cost. 
Comes complete with mailing list capable of handling^OO names. 
$19.95 (Specify Model I or Model III). 

Pensa-write 2 - A machine language word processing system for 
the TRS-80 Model I or III with the power and speed that is really 
needed in a word processing environment. Word wrap aroiind, 
unlimited insert and delete, block moves, chaining of files, 20 user 
definable commands, ASCII control code generation for printed 
output to allow subscripts, superscripts, underlining or any other 
feature your printer supports, and much more. All this in a package 
that costs just $79.95. Manual $10.00 Deductable. (See full page ad 
in Aprlf, 1981 80-Mlcrocomputing for a full description). 

Software publishing - Pensadyne is now publishing software for 
independent software authors. Send SASE for complete details, or 
send machine readable copy of your program with any 
documentation. TRS-80 Model I, II, III and Colour Computer fully 
supported. Subject material unlimited. 

Now, with that kind of record, and these products and services, 
aren't you just a little curious about Pensadyne Computer Services? 

Visa and Mastercharge orders welcome. Phone orders welcome 
or write, specifying system configuration, and product desired. 
Please add $1.00 for first class shipping. 

PENSADYNE - Giving you the power to think. 



-aMLW 
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COMPUTER SERVICES 
4441 WEST FIRST AVE. VANCOUVER, B.C., V6R4H9 604-224-3107 



■ See List of Advertisers on page 354 
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AT LAST! 

Mass production prices lor high quality software Buy direct and save 50° Also 
available for CPM and HDOS 

OATA BASE MANAGER Mod I & III S69. S149 (48K). Mod-ll S199 

Maintain a data base and produce reports all without user programming Define 
file parameters and report formats on-line Key random access, fast multi-key 
sort, field arithmetics, audit log, label No time-consuming overlays 500 happy 
users in one year Mod-ll and 48K versions have over 50 enhancements including 
40 fields maximum IDM-M2 is great 1 - 80-US 

A/R Mod-I S69 Mod-ll S149 Mod-Ill S69 

Handles invoices, statements aging, sales analysis, credit checking forms input. 
and order entry Unlike other accounts receivable programs, ours can be used by 
doctors, store managers etc 

WORD PROCESSOR S49 

Centers justifies, indents, and numbers pages Mod-I version features 
upper/lower case without hardware modification 1 File merge option available 

MAILING LIST Mod I & III S59. S79 (48KI Mod-ll S99 

The best 1 Compare and be selective Includes forms input. 5-digit selection code, 
zip code extension, sort on any field and multiple labels Who else offers a report 
writer and merges with word processor 9 

INVENTORY Mod I & III S89. S109 (48KI Mod-ll S149 

Fast key random access Reports include order info, performance summary. EOQ 
and user-specified reports Many people have converted to our system 1 Next to 
impossible to damage the file 

GL. A/R. A/P. PAYROLL Mod-ll S129 each 

Integrated accounting package 100* page manual As opposed to Osborne s slow 
binary search and 64 column screen, we use fast ISAM and 80 columns Dual disk 
and TRSDOS required 

L2I6 S59 

A cassette package of 10 business programs for Level II 16 K systems Includes 
word processor and data base manager Poker game S19 

Most jrograms are on-line, interactive random-access, bug-free, documented. 
and delivered on disks Mod-I programs require 32K TRSDOS We re "1 in business 
software— don t let our low price fool you' Ask for our free 20-page catalog if 
you're •till not convinced Compiled versions are available 
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MICRO ARCHITECT. INC. *>u 

Dothan St., Arlington. MA 02174 



ACCEL2 SPACE TRADEOFFS 

Compiled programs run lasler than uncompiled programs Dul they are usually Bigger This ts because 
complied stalements occupy more space than the BASIC source statements they replace ACCEL2 com- 
piles a selected suDset ot Level M/Disk BASIC and controls the interpreter to execute uncompiled lines at 
normal interpreter speed The uncompiled lines stay exactly the same size and thus do not contribute to 
code growth at all 

Table below shows the BASIC subset translaled by ACCEL2 to machine code Figures represent the 
number ot extra bytes needed by each instance ot the compiled instruction 



• 





INTEGER 


SINGLE 


DOUBLE 


STRING 


Assignment (LET) 


5 


14 


14 


14 


Array Reference (t -dim) 


16 


u 


25 


20 


AND or OR 


5 


■i 


14 




Compare 1 < etc) 


11 


26 


25 


Ifl 


Add. Subtract Concat 


3 


2 


2 


1 


Multiply i • ' 


5 


2 


2 




Divice 


5 


: 


2 




Reference i caisiani 





e 


10 


7 


For v m n *J 


29 








POK- 


7 


19 


19 




SPirnrirJ 


6 


18 


18 




If T'lfjl £■ $ 


15 


21 


21 


21 


ON cxp.-c3-io:i 'SCO 


12 


18 


18 




Functions 

v#.°rrri 


-3 


-9 


-9 


-9 


PONT 


3 


9 


9 




PECK 













LEN 








• 


MIPS 








5 


LEF - 








4 


FUG"'"* 








4 


CHR$ 








2 


ASC 








7 


CVi 








a 


Flow ot Control 










GOSUB with RETURN 


4 








GOTO 











All Other BASIC 










statements and functions 















The ACCEL2 user may also selectively inhibit compilation ot expressions to further minimise code 
growth This is controlled by embedding REM NOEXPRand REM EXPR lines in the uncompiled program lo 
bracket performance critical sections Programs compiled without use of the REM NOEXPR option typi- 
cally expand to about 1 5-2 5 times the size ot the original, but since ACCEL2 strips REM stalements 
trom the BASIC program, final size can sometimes be smaller 

ACCEL 2 Fo, 32K TRS-80 Model i (Model in version soon) Compile-time size S6S2 bytes run-time 
size 1536 bytes, save to ES/F wafer disk under TRSDOS. NEWDOS. NEW0OS80 

$88.95 + $2.00 shipping 
TSAVE WatesACCEL2 compiler output to independent SYSTEM tape $9.95 + $1.00 Shipping 



DevelogciMi Britain 
by So'f Jfcn Soitware 

Tt\S>,-&). TRSDOS tm Radio Shack 



ALLEN GELDER SOFTWARE Mastercharge/Visa 

Box 11721 Mam Post Office CA add 6% 

San Francisco. CA 94101 
1415)387-3131 ^79 

Stringy/Floppy tm exatron inc NEWDOS tm Apparat. Inc 



Program continued 








7DA3 F7 


08277 


P. ST 


48 


7DA4 21D67F 


00278 


LD 


HL.INT 


7DA7 F7 


00279 


RST 


48 


7DAB 21E841 


00280 


LD 


HL, INBUF 


7DAB F7 


0028 1 


RST 


48 


7DAC 21EE7F 


00282 


LD 


HL.EQN 


7DAF F7 


00283 


RST 


48 


7DB0 El 


00284 


POP 


HL 


7DB1 D7 


00285 


RST 


16 


7DB2 CD6C0E 


00286 


CALL 


M 


7DB5 CD7F0A 


00287 


CALL 


M4 


7DB8 DD212141 


00288 


LD 


IX,RM5 


7DBC DD6600 


00289 


l.D 


H, (IX+0) 


7DBF DD6E01 


00290 


LD 


L, (IX<1) 


7DC2 CDC57E 


00791 


CALL 


HLHX 


7DC5 CD187F 


00292 


CALL 


CR 


7DC8 C3AB7B 


00293 


JP 


MENU 


7DCB 21897F 


00294 SR 


LD 


HL.CT2 


7DCE F7 


00295 


RST 


48 


7DCF 21DC7F 


00296 


LD 


HL.SNG 


7DD2 F7 


00297 


RST 


48 


7DD3 21E87F 


00298 


LD 


HL.VAL 


7DD6 F7 


00299 


RST 


48 


7DD7 CDB31B 


03300 


CALL 


INST 


7DDA E5 


00301 


PUSH 


HL 


7DDB 21887F 


00302 


LD 


HL.CTL 


7 DDE F7 


00303 


RST 


48 


7DDF 21DC7F 


00304 


LD 


HL.SNG 


7DE2 F7 


00305 


RST 


48 


7DE3 21E841 


00306 


LO 


HL, INBUF 


7DE6 F7 


00307 


RST 


48 


7DE7 21EE7F 


00308 


LD 


HL.EQN 


7DEA F7 


00309 


RST 


48 


7DEB El 


00310 


POP 


HI. 


7 DEC D7 


00311 


RST 


16 


7DED CD6C0E 


00312 


CALL 


MB t. 


7DF0 CDB10A 


00313 


CALL 


M6 


7DF3 DD212141 


00314 


LD 


IX.RH5 


7DF7 0602 


00315 


LD 


B,2 


7DF9 CDB07E 


00316 


CALL 


BFNP 


7DFC CD187F 


00317 


CALL 


CR 


7DFF C3AB7B 


00318 


JP 


MENU 


7E02 21897F 


00319 DR 


UB 


HL.CT2 


7E05 F7 


00320 


RST 


48 


7E06 21E27F 


00321 


LD 


HL , DBL 


7E09 F7 


00322 


RST 


48 


7E0A 21E87F 


00323 


LD 


HL.VAL 


7E0D F7 


00324 


RST 


48 


7E0E CDB31B 


00325 


CALL 


INST 


7E11 E5 


00326 


PUSH 


HL 


7E12 21887F 


00327 


LD 


HL,CTL 


7E15 F7 


00328 


RST 


48 


7E16 21E27F 


00329 


LD 


HL.DBL 


7E19 F7 


00330 


RST 


48 


7E1A 21E841 


00331 


LD 


HL, INBUF 


7E1D P7 


00332 


RST 


48 


7E1E 21EE7F 


00333 


LD 


HL.EQN 


7E21 F7 


00334 


RST 


48 


7E22 El 


00335 


POP 


HL 


7E23 D7 


00336 


RST 


16 


7E24 CD650E 


00337 


CALL 


M7 


7E27 DD211D41 00338 


LD 


IX,RM4 


7E2B 0604 


00339 


LD 


B,4 


7E2D CDB07E 


00340 


CALL 


BFNP 


7E30 CD187F 


00341 


CALL 


CR 


7E33 C3AB7B 


00342 


JP 


MENU 


7E36 21BE7F 


00343 PKR 


LD 


HL,ATQ 


7E39 F7 


00344 


RST 


48 


7E3A CD4900 


00345 SCN4 


CALL 


INCH 


7E3D FE41 


00346 


CP 


'A' 


7E3F 2806 


00347 


JP 


Z.PAR 


7E4-1 FE50 


00348 


CP 


• pi 


7E43 2825 


00349 


91 


Z.PPR 


7E45 18F3 


00350 


JR 


SCN4 


7E47 21897F 


00351 PAH 


LD 


HL.CT2 


7E4A F7 


00352 


RST 


46 


7E4B 217B7F 


00353 


LD 


HL, AB 


7E4E F7 


00354 


RST 


48 


7E4F 3E50 


00355 


LD 


A, 'P' 


7E51 32FC7F 


00356 


LD 


(FLG) ,A 


7E54 C3B57C 


00357 


JP 


DPR 


7E57 3E00 


00358 PAR2 


LD 


A,0 


7E59 32FC7F 


00359 


LD 


(FLG) ,A 


7E5C CDBD0F 


00360 


CALL 


M9 


7E5F F7 


00361 


RST 


48 


7E60 21817F 


00362 


LD 


HL.PK 


7E63 F7 


00363 


RST 


48 


7E64 CD187F 


00364 


CALL 


CR 


7E67 C3AB7B 


00365 


JP 


MENU 


7E6A 21897F 


00366 PPR 


LD 


HL,CT2 


7E6D F7 


00367 


RST 


48 


7E6E 21817F 


00368 


LO 


HL.PK 


7E71 P7 


00369 


RST 


48 


7E72 21E87F 


00370 


LD 


HL.VAL 


7E75 F7 


00371 


RST 


48 


7E76 CDB31B 


00372 


CALL 


INST 


7E79 E5 


00373 


PUSH 


HL 


7E7A 21887F 


00374 


LD 


HL.CTL 


7E7D F7 


00375 


RST 


48 


7E7E 21817F 


00376 


LD 


HL,PK 


7E81 P7 


00377 


RST 


48 


7E82 21E841 


00378 


LD 


HL, INBUF 


7E85 P7 


00379 


RST 


48 


7E86 218C7F 


00380 


LD 


HL.EQ 


7E89 F7 


■ 0381 


am 


48 


7E8A El 


00382 


POP 


HL 


7E8B D7 


00383 


RST 


16 


7E8C CD6C0E 


80384 


CALL 


M8 


7E8F CDB10A 


00385 


CALL 


M6 


7E92 CD9409 


00386 


CALL 


M2 


7E95 FEFF 


00387 


CP 


0FFH 

Program continues 



192 • 80 Microcomputing, September 1981 



PROGRAMMING TOOLS FOR YOUR 
TRS-80® MODEL I AND MODEL III 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II •_ i romp'ehens.ve'e'e'ence guide to the Le*ei h ROMswhc- l 
tne machine language o' Basic programmer 10 easily utilize the sophisticated routines 
mey contain Concisely e>piams set-ups calling sequences and variable passage to* 
number conversion arithmetic operations and mathematical functions as wen as 
keyboard tape and video routines Part n presents an entirely new composite program 
structure which loads under the SYSTEM command and executes m both Basic and 
machine code with the speed and efficiency of a compiler in addition the 18 chapters 
include a large body ot other information useful to the programmer including tape 
formats RAM useage relocation ol Basic programs USR call expansion creating 
SYSTEM tapes of you' own programs interfacing of Basic variables directly with 
machine code a method of greatly increasing the speed at which data elements are 
stored on tape and special precautions for disk systems ifMSlDE LEVEL II is a clearly 
organized reference manual it is 'uiiy typeset and packed with nothing but useful 
,nfoim.ition it does not contain questions and answers ROM dumps or cartoons 
Includes updates tor Model III. INSIDE LEVEL II S15.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you Ic step th-ouqh any Basic 01 machine language program one 
instruction at a time and see the address hexadecimal value Ziiog mnemonic, register 
contents, and step count for each instruction The top 14 lines ol the video screen are left 
unaltered so that the target program may perlorm its display functions unobstructed 
STEP80 will follow program How right into the ROMs, and is an invaluable aid m learning 
how the ROM routines function Commands include step (trace) disassemble, run m 
step mode at variable step rate display or alter memory 01 CPU registers iump to 
memory location execute a CALL set breakpoints in RAM or ROM write SYSTEM 
tapes and relocate to any page in RAM The display may also be routed to your une 
pnntei through the device control block so custom print drivers are automatically 
supposed 
Specify Model I or Model III. STEP80 $16.95 

TELECOMMUNICATIONS PROGRAM 

This machine language program aiiows reliable high speed fiie fansters between two 
d sk I ased eonq iters over modems or direct wire it is menu d' ven and extremely 
Simple to use functions include 'eai-time terminal mode save RAM butter on disk 
transm.tdiskMe receive binary ties examine and modify U ART parameters programs 
custom log on messages automatic 16-b>l checksum verification of accurate transmis 
sion and reception and many more user conveniences Supports une punters and 
lowercase characters With this program you will no longe' need to convert machine 
language piograms to ASCH tor transmission and you wi" know immediately it the 
transmission was accurate 
Specify Model I or Model III. TELCOM S39.95 

PROGRAM INDEX FOR DISK BASIC 

Assemme an alphabetized index of your entire program library from disk directories 
Program names and tree space are read automatically (need not be typed m) and may 
be alphabetized with a fast Shell Metzner sort by disk or program The list may also be 
searched for any disk program or extenson disks or programs added or deleted and 
the whole list or any part sent to the printer Finally the list itself may tje stored on disk tor 
future access and update The best thing since sliced bread (January issue of 80 
Microcomputing) Works with TRSOOS NEADOS. and NEWDOS80 One drive and 
32K requ red 
Model I only. Model III version soon. INDEX $19.95 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK 2 clock modification anows CPU speeds to be switched between normal, an 
increase of 50V or a 50 °« 'eduction selectable at any time without interrupting 
execution or crashing the program Instructions are also given lor a 100% increase to 
3 54 MHz The SK 2 may be configured by the user to change speed with a toggle 
Bwrtct O' on software command it will automatically return to normal speed any time a 
disk s active requires no change to the operating system and has provisions lor 
adding an LED to indicate when the computer is not at normal speed it mounts inside 
the keyboard unit with only 4 necessary connections for the switch option (switch not 
included) and is easily removed it the computer ever needs service The SK-2 comes 
"fully assembled with socketed iC'a and illustrated instructions 
Model I only. SK-2 $24.95 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER mew power! 

to» me T RS ■ 80 Now •, . :••.•• 

: ■ r im .-. "'••:' I It : ( ••;;■.:•• . - -..-.' 

debuggc and back again without ■!..'- ■..■... NSTAN1 

ASSEMBLER . a II • • ■ ' r mng looi lo- I wwrami 

INSTANT ASSEMBLI •■ • y unique imo' | tap* 

produces relocalab'e code modules that cai ■-■-.■.•■ INKING 

LOADER which i s supplied in two .t- 

RAM Th,s lets you build long program- ••• ' ■ ■ N ■■••".' 

features immediate detection of effort " 

coded source format that uses 1 3 as nm • ••.-. •■■:■: 

operational features including single -v ki entry ■■ Dl F B and 01 I .'. ; 

iistmqs alphabetic listing of symbo labM 

the symbol table block move function .mo ..■■ I 

INSTANT ASStMBLLR's debugger provide • ■:■ ■• i i ■;.■•" i ■••. •■ I . . 

decimal or he» entry ol addrei i ■.:■:--■■■ I . • ■■ , 

o' Objecl code in memory memory dtspla\ tnd Ik- » I :• ■■ . 

decimal to-hex conversion Tin • ;> lei ; • .-. Ii . ' lum il 

fast rale to any defined address 

INSTANT ASSEMBLER II m 8400 Ivyte.s ol i ■" i 

this wiP leave you enough memory i. *nt< rssemirty t,mi noiml 

2000 bytes This and its modme unking feature m.ike INSTANT •■:-' I MBl LH i. • ■ , 

use's wilh only I6K machines The instruction mam •■■ • i , ■ : ■. 

$5 which will apply lowards the purchase o> Hie INS1ANI ASBl MBl t H 

Specify Model I or Model III. INTASM S29.95 

RAM SPOOLER AND PRINT FORMATTER 

Thisprogramisa full teatureDnnt lormaltimi ij.ickage fi'aiui'h-i . .■ ■ trimi ii ■ r> n i 

; : |tl ■■■ li • i leeds nseUed I •'•■.■ i ! ••• • d itt< • imrnti ii hi ufuur 

dump, printer pause control and baud rate selection n.iddil i i ■■• lunulrmn i 

4K expandable I illei < ■ ■■ ithatthi L PRINT or LI '■! nnm.ind id n Mm I I 
use' while printing s being done ide il for Select* I » i»<iti •• 

printing and processing to nm concunentiy Uut| i • I ■• I 

parallel poit sei a port or the video ieei 
Specify Model I or Model III. SPOOLER $16 95 

MACHINE CODE FAST FOURIER TRANSFORM 

Th s eo"': • •'•■ ; I ■ - I |e '•. i.de- ! .>-■ on I It e m •• • •» ■■■;.■..■ fFI ■■ M ' • • 

assembled 'O' 16 32 and 4HK m H I rl simjiie Bi ■ ■■• ' 

them a I0K Basic pro : m 

manipulation and i m in . i ol n :■ . I l I • • " . . . i :• 

subroutines use variables defined by i sui i •'■ 

and retrieval extremely last and easy lo* custom imini'ineniaK*' 'Oto-lO 

times 'aster man the" Bas.c equivalent [256 points m 12 6 second 

than 1550 bytes of memory TheFFTisusel i , i - kot 

trends as we" as f o' s&enbfcc inform :' 

Specify Model I or Model III. F-'FTASM S49.95 

DUPLICATE SYSTEM TAPES WITH CLONjE 

Make duplicate copies o' any tape wiii.n •• Leve They may I •'-•>' '-" T V\< •••'•■ •■ 
data lists The filename loadaddress entry pomt and eve'y byte im ASL- ic M . , 
displayed on the video screen Model m vers<o^ i i ••• l£-i •_£, 

Specify Model I or Model III. CLONE $16.95 

•' 

RAMTEST FOR LEVEL II 

This machine language program is a very thorougl '• 11 • •• »al ty: eiol >AM i ■■ 
A complete test of eacli individual bit m a 48K ■ • ■ ■■■•■ J 14 • • I 
separate lest 'or power une gulches » 

Model I only. RAMTEST.. .$9.95 

EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

Load Basic programs or any other ASCII data file into the dsk ve'sion of EJeCtnC Pencil 
tor ediltmg One command from DOS quickly modifies existing hies to Pencil lormat 
One disk and 32K required 
Model I only. PENPATCH $9.95 



MUMFORD 

MICRO 

SYSTEMS 



ORDERING: Complete satisfaction is guaranteed oi .i lull refund will be made All- programs 
are shipped on cassette unless >"> is included loi a i r > track formatted l no system) disk Include 
SI fill lor postage .met handling California residents add b sales tax Visa. Mastercharge and 
COD orders accepted SPECIFY MODEL I OK MODEL III. Dealet inquiries invited 

Box 400-E Summerland. California 93067 (805) 969-4557 



'See U*i ot Advertisers on page 354 
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pair (least significant byte). The last two hex 
digits displayed are the last two of the hex 
result. 

Using CONVRT to convert an absolute- 
decimal number to split decimal, press D, 
then enter the number. Next, convert the 
hex result from step one to split-decimal 
format by using the method described 
above. 

To do the conversion in Basic, divide the 
absolute decimal number by 256, taking the 
integer part of the result as the second 
number of the split decimal pair (MSB). 
Then multiply the decimal part of the same 
result by 256 to get the first number of the 
pair (LSB). (If this number has a decimal 
part, then round it off to the nearest 
integer.) 

It takes three steps to convert split 
decimal to absolute-decimal format using 
CONVRT. Convert the split decimal to hex 
format by the method described above. 
Next, press H, and enter the hex result. 

To do the conversion in Basic, multiply 
the second number of the split decimal pair 
(MSB) by 256, then add the first number 
(LSB) to the result. 

General Remarks 

Keep the following points in mind when 
using CONVRT. Error detection has been 
minimized in order to keep the program 
short. For example, if you enter fewer than 
four hex digits after pressing H, the conver- 
sion is incorrect, but no error message ap- 
pears. Entry of hex and binary is more prone 
to error than entry of decimal values. 
Leading or embedded spaces in hex or 
binary entries lead to errors without warn- 
ing. On the other hand, entry of decimal 
numbers outside allowable ranges will 
cause overflow errors and immediate return 
to Basic. 

All hex and binary results, except those 
produced by the N routine (number to inter- 
nal format), are displayed in the normal 
order of most significant to least signifi- 
cant. Entries should be in this same order. 

The returns to Basic and to the system 
monitor are ftot available within conversion 
routines. This means you cannot abandon a 
conversion once you select it. Entry of a 
dummy value lets the conversion proceed, 
then you can use the returns. 

Program Structure 

CONVRT is structured around a main 
menu, which lists the main commands, 
scans the keyboard for them, and, upon 
detecting one, jumps to the appropriate pro- 
gram segment. Each of the five general 
types of conversion is written as a major 
program segment, or main routine, which 
terminates by a return to the main menu. 
Three of the main routines have secondary 
menus which direct execution to subordi- 
ate routines within them. In addition, there 
is an access setup routine, a general setup 
routine, a return routine, and several utility 
subroutines called by one or more of the 
main routines. A running commentary ex- 
plains lines of the program in Table 1.B 



Program continued 








7E97 2089 


00388 


n 


NZ.PPR2 


7E99 0691 


00389 


LD 


B.91H 


7E9B BEBB 


00390 


u 


C,0 


7E9D 51 


00391 


LD 


D,C 


7E9E 59 


00392 


LD 


E,C 


7E9F CD16B7 


00393 


CALL 


Ml 


7EA2 CDBDBF 


00394 PPR2 


CALL 


M9 


7EA5 F7 


00395 


RST 


48 


7EA6 217B7F 


B0396 


LD 


HL.AB 


7EA9 F7 


00397 


RST 


48 


7EAA CD187F 


BB398 


CALL 


CR 


7EAD C3AB7B 


BB399 


JP 


MENU 


7EB0 DD660B 


BB4BB BFNP 


LD 


H, (IX+0) 


7EB3 DD6EB1 


00401 


LD 


L,(IX+1) 


7EB6 CDC57E 


00402 


CALL 


HLHX 


7EB9 3E2B 


00403 


LD 


A, 32 


7EBB CD2AB3 


00404 


CALL 


PRCH 


7EBE DD23 


00405 


INC 


IX 


7ECB DD23 


00406 


INC 


IX 


7EC2 HEC 


00407 


DJNZ 


BFNP 


7EC4 C9 


■0408 


RET 




7EC5 7C 


00409 HLHX 


LD 


A,B 


7EC6 CB3F 


00410 


SRL 


A 


7EC8 CB3F 


B0411 


SRL 


A 


7ECA CB3F 


00412 


SRL 


A 


7ECC CB3F 


00413 


SRL 


A 


7ECE CD017F 


00414 


CALL 


CVA 


7ED1 7C 


B0415 


LD 


A,H 


7ED2 E60F 


B0416 


AND 


0FH 


7ED4 CD017F 


00417 


CALL 


CVA 


7ED7 7D 


00418 


LD 


A,L 


7ED8 CB3F 


0B419 


SRL 


A 


7 EDA CB3F 


BB42B 


SRL 


A 


7EDC CB3F 


BB421 


SRL 


A 


7EDE CB3F 


BB422 


SRL 


A 


7EE0 CD017F 


80423 


CALL 


CVA 


7EE3 7D 


00424 


LD 


A, L 


7EE4 E60F 


00425 


AND 


0FH 


7EB6 CD017F 


004 26 


CALL 


CVA 


7EE9 C9 


■ 0427 


RET 




7EEA D7 


004 28 BFHX 


RST 


16 


7EEB CDBE7F 


004 29 


CALL 


CVH 


7EEE 77 


00430 


LD 


(HL),A 


7EEF 10F9 


00431 


DJNZ 


BFHX 


7EF1 C9 


00432 


RET 




7EF2 DD7E0B 


00433 HXBI 


LD 


A, (IX+B) 


7EF5 CB27 


00434 


SLA 


A 


7EF7 CB27 


00435 


SLA 


A 


7EF9 CB27 


00436 


SLA 


A 


7EFB CB27 


00437 


SLA 


A 


7EFD DD86B1 


B0438 


ADD 


A, (IX+1) 


7FBB C9 


BB439 


RET 




7FB1 C63B 


B0440 CVA 


ADD 


A, 48 


7FB3 FE3A 


0B441 


CP 


58 


7F05 FA0A7F 


00442 


JP 


M,CA1 


7FB8 C607 


00443 


ADD 


A, 7 


7F0A CD2A03 


00444 CA1 


CALL 


PRCH 


7FBD C9 


00445 


RET 




7FBE D630 


00446 CVH 


SUB 


48 


7F1B FE0A 


00447 


CP 


IS 


7F12 FA177F 


00448 


JP 


M.CHI 


7F15 D607 


00449 


SUB 


7 


7F17 C9 


00450 CHI 


RET 




7F18 3E0D 


00451 CR 


LD 


A, 13 


7F1A CD2A03 


00452 


CALL 


PRCH 


7F1D C9 


00453 


RET 




BB1E 


004 54 ENDSTK 


DEFS 


30 


7F3C 1D1E 


BB455 TITLE 


DEFW 


1E1DH 


7F3E 43 


BB456 


DEFM 


'CONVRT: PRESS B/D/H/N/P/ENTER/CLEAR ' 


7F62 BB 


0B457 


DEFB 





7F63 42 


004 58 BYT 


DEFM 


'BYTE ' 


7F68 0B 


0B459 


DEFB 





7F69 2B 


B0460 BN 


DEFM 


' BIN ' 


7F6E BB 


00461 


DEFB 


B 


7F6F 20 


00462 HX 


DEFM 


' HEX ' 


7F74 BB 


00463 


DEFB 


• 


7F75 20 


00464 DC 


DEFM 


' DEC ' 


7F7A 00 


00465 


DEFB 


B 


7F7B 20 


00466 AB 


DEPM 


1 ABS * 


7F80 00 


••467 


DEFB 





7F81 20 


•0468 PK 


DEFM 


1 PEEK ' 


7P87 00 


•046 9 


DEFB 


B 


7F88 IB 


• B470 CTL 


DEPB 


27 


7F89 1D1E 


•0471 CT2 


DEFW 


1E1DH 


7F8B 00 


00472 


DEFB 


8 


7F8C 20 


00473 EQ 


DEFM 


' = I 


7F8F BB 


00474 


DEFB 





7F90 1D1E 


00475 BTQ 


DEFW 


1E1DH 


7F92 20 


00476 


DEFM 


' BYTE TYPE? (B/H) ■ 


7FA4 B0 


00477 


DEFB 





7FA5 1D1E 


00478 NTQ 


DEFW 


1E1DH 


7FA7 20 


00479 


DEFM 


' NUMBER TYPE? ( I/S/D) ' 


7FBD 0B 


0B48B 


DEFB 





7FBE 1D1E 


BB481 ATQ 


DEFW 


1E1DH 


7FCB 2B 


BB482 


DEFM 


• ADDRESS TYPE? (A/P) ■ 


7FD5 00 


0S483 


DEFB 





7FD6 20 


00484 INT 


DEFM 


1 INT " 


7FDB 00 


00485 


DEFB 


B 


7FDC 20 


00486 SNG 


DEFM 


' SNG ' 


7FE1 00 


00487 


DEFB 


B 


7FE2 20 


••488 DBL 


DEFM 


1 DBL ' 


7FE7 00 


00489 


DEFB 




7FE8 56 


• •490 VAL 


DEFM 


' VALUE ' 


7FED 00 


00491 


DEFB 





7FEE 20 


00492 EQN 


DEFM 


■ . (LSB" 


7FF5 5E 


00493 


DEFB 


94 


7FF6 4D 


0B494 


DEFM 


'MSB) ' 


7FFB 00 


8B495 


DEFB 





7FFC 00 


00496 FLG 


DEFB 


B 


7FFD 0B0B 


00497 OSP 


DEFW 


B 


7FFF BB 


00498 RV 


DEFB 





7B78 


00499 


END 


START 
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Ever tried to read computer sales literature? 

Ever tried to talk to a computer salesman? 

Ever tried to make a decision about 
which computer to buy? 



Yes. . .then you know what frustration is. 
Help is on its way. Desktop Computing pre- 
miers this fall. The first and only computer 
magazine written in plain English. Preposter- 
ous? Not at all. It im possible to explain com- 
puters without all the "computerese." That is 
what Desktop Computing will do each month. 
Send the card today for a no-risk subscription 
that will give you the kind of understandable, 
useful information on computers you've been 
waiting for. 

Why do you need a plain-En g lish explanation 
of deskto p computers? Because they have just 
come of age and are saving thousands of busi- 
nessmen like you an amazing amount of 
money. They not only save money, do things 
faster, provide access to more information, 
allow a smaller staff to do more work, they also 
allow you to get into services for your custom- 
ers which were not practical before. You can 
provide more services at lower cost. To get in on 
the savings and expanded customer services, 
you need information. Desktop Computing will 
bring you that information. Desktop Com- 
puting will cut through all the technical 
hocus-pocus. 

In this time of high interest rates, a truly low 
cost desktop computer system (usually a micro- 
computer system) is a welcome event. Let Desk- 
top Computing explain what these systems can 
do for you. The subscription price is $25 a year 

but as a charter 

subscriber you can 

get the first year 

for only $17.97, 

totally tax 

deductible. 

Call toll-free: 

(800) 888-5475 

or mail the 

coupon below. 




Here's a look at some of the articles $17.97 will 
bring you: 

•When a small Business Computer 
Arrives, What Happens to the 
Small Business? 
•Letter to Hemingway RE: Word 

Processing 
•Professional & Small Business 
Microcomputers: Buying, Using 
and Fixing a System. 
•Adequate Backup: Protecting the 
Data in Your Computer. 
Wayne Green, the publisher of Desktop Com- 
puting (and also of Kilobaud Microcomputing 
and 80 Microcomputing— both successful 
computing publications) has gone through both 
the agony and joys of working with computers. 
He has lost a quarter of a million on a mainframe 
big boy computer only to come out on the other 
side with all the frustration necessary to run a 
200 employee publishing firm on several 
TRS-80's. 

Wayne has a reputation for being honest and 
unafraid. He'll make sure you get the truth. In 
the meeting introducing the idea of Desktop 
Computing to his staff Wayne said, 

"Our objective is to be the only com- 
puting magazine written in plain 
English." 
So that is what you'll be getting— honesty and 
directness. Desktop Computing will give you all 
the information you need on computers in plain 
English. 

This charter subscription is available for a 
short time only. Send the card today for the 
premier issue— October 1981— and get the infor- 
mation you've been needing for only $17.97. 

Desktop Confuting 

» WAYNE GHEEN PUBLICATION » ^* _ ^^»» 



Relief is here for only $17.97 

□ VT? Q Sign me up as a Charter Subscriber to Dealt top 
* ISO Computing. I will get one year of the only comput, 
ing magazine written in plain English for $17.97 (a savings of 50« 
off the newsstand). My subscription will begin with the pramler 

Issue— October 1981. , 

Your first issue will be arriving by mid-October 1981 . 
Canadian 1 yr. only /US funds $19.97 Foreign 1 yr. only/US funds $29.97 






NAME 



ADDRESS 
CITY 



STATE_ 



ZD?_ 



SIGNATURE. 
CARD# 



_ EXPIRE DATE, 



319C7 



INTERBANK # 



Desktop Computing 

80 Pine Street Peterborough. MH 03458 
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SOFTWARE 
FOR TRS-80 

OWNERS 



THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80™* MICROCOMPUTER 

* TRS 80'" IS A TRADEMARK OF TANDY CORP 

■CQMPLJTRQNICSi 



MONTHLY 

NEWSMAGAZINE 

FOR TRS-80 " 

OWNERS 



MONTHLY NEWSMAGAZINE 

Practical Support For Model I, II & III 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



NOW IN OUR 4th YEAR 



PROGRAMS AND ARTICLES PUBLISHED IN RECENT ISSUES 
INCLUDE THE FOLLOWING: 

• FINCAI.C A COMPLETE FINANCIAI APPLICATIONS PACKAGE 

• INFORMATION SYSTEM REVIEW 

• STATISTICAL COMBINATIONS 

• PASCAL'S TRIANGLE 

• ASSEMB1 Y LANGUAGE FOR BEGINNERS 

• DISK FILES 

• MOD III REVIEW 

• KEYBOARD THUNDER AND LIGHTING EXPLAINED 

• DOS COMMANDS IN LEVEL II 

• PROBABILITY CURVE GENERATOR 

• CALCUI ATOR SIMULATIONS 

• THE MEGABYIE GAP 

• STOCKS AND BONDS 

• BUDGET ANAI YSIS (FOR BUSINESS AND HOME) 

• NEWDOS 80 REVIEW 

• DUTCHING THE HORSE SYSTEM THAT CAN'T I OSL 

• A SIMULATED GOLF GAME 

• CONTINUOUS FORM SOURCES 

• TAX SAVER REVIEW 

AND MORE 



0t£^ 



* *\* FINCALC 

u * V^ ^\0^ L^^^^^^^ ^ TU ^J A Complete Financial Analysis Package Used 

C^* To Calculate Markup, Margin, Annuities, Compound Interest, Nominal 

OH And Effective Rates, Sinking Funds, Mortgage Calculations, Future Value, 

*$&)& Savings and Insurance, Percentage Difference Between Two Numbers, 

Amortization Schedule and More 



*& 



SEND FOR OUR NEW 64 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS 80'" PROGRAMS AVAIL ABI E ON 
CASSETTE AWD DISKETTE) S2 00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE 



* All programs are supplied on cassette (add $3 for Diskette Version - add $5 for modified Mod-ll Version). 
I 



CQMPLITRQMCSi 



^9 



50 N PASGACK ROAD 
SPRING VALLEY. NEW YORK 10977 

ONE YEAR SUBSCRIPTION $24 

TWO YEAR SUBSCRIPTION $48 

SAMPLE OF LATEST ISSUE S 4 

START MY SUBSCRIPTION WITH ISSUE 

C»l July 1978 • »12 June 1979 • »24 July 1980 • »30 January 1981) 

NEW SUBSCRIPTION RENEW AI 



CREDIT CARD NUMBER 
SIGNATURE 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



NEW!!! 

MOD II NEWSLETTER 

$1 8/year (or 11 issues) 



HOUR 
24 ORDER 
LINE 



^(914)425-1535 





EXP DATE 



NAME 



ADDRESS 



CITY . 



STATE ZIP 



••* ADD $12 YEAR (CANADA. MEXICO) ADD $24 YEAR AIR MAIL OUTSIDE OF USA. CANADA & MEXICO *** 
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CQMPLITRQNICS 



N 
C. 



• ••EVERYTHING FOR YOUR TRS-80 • •• 



* TRS-80" is a trademark of the Radio Shack Division of Tandy Corporation 

* All orders processed within 24-Hours 
* 30-Day money back guarantee on all TRSDOS Software 
-kAdd $3.00 for shipping in UPS Areas 
*Add $4.00 for COD or NON-UPS Areas 
*Add $5.00 outside U.S.A.. Canada & Mexico 
* We will match any bonafide advertised price 
in any of the Major Computer Magazines 



MOD-II PROGRAMS 



A 

L 
L 

S 

F 

T 
W 
A 
R 

E 

B» *• 

LISTED 
HERE 

"w 


R 

K 
S 

W 

I 

T 
H 

T 
R 
S 
D 
O 
S* 



(1) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing and 
printer formatting features $325 (STANOARD 
TRSDOS VERSION) $350(DIABLO NECORQUME 
TRSQOS VERSION) 

(2) GENERAL LEDGER. ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE, INVENTORY CONTROL, 
INVOICING AND PAYROLL (Small Business Systems 
Group) an extensive business system for the serious 
user can be used one module at a time or as a co- 
ordinated system $225 per module $1299 for the 
complete system 

(3) GENERAL LEDGER, ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE. INVENTORY CONTROL 
AND PAYROLL (Compumax) a complete user on 
ented business system can be used one module at a 
time or as a coordinated system $140 per module 
$995 lor Ihe complete system 

(4) MOD-II UTILITY PACKAGE (Race! Computes) 
adds important utilities to TRSDOS copy files 
selectively faster and more accurate tile copying 
repair bad directories displays sorted directory of 
all files on 1 lo 4 disk drives SUPERZAP change 
disk ID and more $150 

(5) ADVENTURE »1-*9 (Scotl Adams Adventure 
International) a series of games formally only 
available on the large computers your goal is to work 
your way Ihrough a maze of obstacles in order to 
recover a secret treasure or complete a mission the 
package includes all 9 Adventures written by Scott 
Adams $99 95 

(6) GSF (Racet Computers) Generalized Subroutine 
Facility a series of super last machine language 
utilities lhat can be called from a BASIC program (no 
machine language knowledge required) sorts 1000 
items m under 5 seconds allows PEEK and POKE 
statements move oata blocks compress and un- 
compress data works under TRSDOS $50 

(7) DSM (Racet Computes) Disk Sort Merge sorts 
and merges large multiple diskette files on a 1 to 4 
drive system NOT AN IN MEMORY SORT can 
actually alphabetize (or any other type of sort) 4 disk 
drives worth ol data sorts one complete disk of 
information m 10 minutes information is provided to 
use DSM with the RS MAILING PROGRAM works 
under TRSDOS $150 

(8) RSM (Small Systems Software) a machine 
language monitor and disassembler can be used lo 
see and modify memory or disk sectors contains all 
the commands found on the Model-I version plus 
some additional commands for the MOD-II works 
under TRSDOS $39 95 

(9) BLINK BASIC LINK FACILITY (Racet Computes) 
Link from one BASIC program to another saving all 
variables chain programs without losing variables 

$50 

(10) BASIC CROSS REFERENCE UTILITY (Racet 
Computes! lists all variables and strings used in a 
program (with the line numbers in which they appear) 

lists all GOTO's and GOSUBs (with the line num- 
bers m which they appear) searches lor any specific 
variables or strings (with the line number in which 
they appear) $50 

(11) DEVELOPMENT PACKAGE (Race! Computes) 
SUPERZAP (lo see print or change any byte on a 
diskette! Disassembler and MOD-II interface to the 



MICROSOFT EDITOR ASSEMBLER PLUS including 
uploading services and patches tor Disk I assemble 
directly into memory save all or portions of source 
to disk dynamic debug facility (ZBUG1 entended 
editor commands $125 

(12) HARD/SOFT DISK SYSTEM (Racet Computes) 
The software essential to interface any ot the popular 
large hard disk drives completely compatible with 
your existing software and tiles allows up to 20 
megabytes of storage (and larger) directory expand- 
able to handle thousands ot files $400 

(13) CAMEO HARD DISK DRIVE CONTROLLER 

coming soon (November 1?) 

(14) HARD DISK DRIVES coming soon (Nov 1') 

(15) H A E COMPUTRONICS. INC. SHARE A 
PROGRAM DISKETTE HI works under TRSDOS a 
collection of programs written by MOD-II owners 
programs include data base management a word 
processor mail system mortgage calculations 
checkbook register and many others $8 (add $3 
postage outside of ihe United States Canada and 
Mexico) FREE if you send us a diskette containing 
a program that can be added to the SHARE A PRO 
GRAM DISKETTE 

(16) WABASH CERTIFIED DISKETTES $39 95 (per 
box of 10) 

(17) FLIP SORT DISKETTE STORAGE TRAY Stores 

50 diskettes comes complete with index dividers tilt 
plates and ad]ustable spacing $44 95 

(18) MASTER PAC 100 100 essential programs 
BUSINESS PERSONAL FINANCE STATISTICS 
MATH GAMBLING GAMES includes 125 page 
manual and 2 diskettes $99 95 

(19) BUSINESS PAC 100 100 essential business 
programs INVENTORY CONTROL PAYROLL 
BOOKKFEPING SYSTEM STOCK CALCULA- 
TIONS CHECKBOOK MAINTENANCE AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE 
includes 125pagemanualandtwodiskettes $149 95 

(20) EDITOR ASSEMBLER (Galactic Software Ltd ) 
the first user oriented Editor Assembler lor the 
MODEL II and was designed lo utilize all the features 
ol the MODEL II It includes innovative leatures lor 
ease ol coding and debugging and complete docu 
mentation (over 120 pages) works under TRSDOS 

$229 00 

(21) BASIC COMPILER (Microsofll changes your 
source programs into machine language increases 
program execution by 3-10 limes $395 

(22) MAIL/FILE SYSTEM from Galactic Software Ltd 
stores 2 500 names per disk No sorting time is 
required since Ihe Me is automatically sorted by tirsl 
and last name plus Zip Code on input Retrieve by any 
combination of 19 user codes Supports an 11 digit 
alphanumeric^ Zip Supports a message line Comes 
complete with user-onented documentation (100- 
page manual) Allows for company name and individ- 
ual of a company and complete phone number (and 
extension] works under TRSDOS $199 00 

(23) INCOME TAX PAC Professional income tax 
package most forms and schedules output to video 
or line printer automatic memory storage of all 
information data can be loaded from diskette 
changed and edited built in error checking $199 95 

(24) COMPUTER GAMES (SBSGi Mean Checker 
Machine Star-Trek III Concentration TreasureHunt 
Banco Dog Star Adventure $74 95 
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50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



HOUR 

ORDER 

LINE 



S^ 24 OhUtH ^77 

(914) 425-1535 




NEW TOLL-FREE 
ORDER LINE 

OUTSIDE OF NY STATE) 

(800) 431-2818 



(1) CP/M (Lifeboat Associates) an alternative 
operating system for the MOD-II that allows MOD-II 
owners to use any of the hundreds of programs 
available under CP/M $170 

(2) CP/M HANDBOOK (Sybex) a step-by-step 
guide to CP/M takes the reader through each of the 
CP/M commands numberous sample programs 
practical hints reference tables $13 95 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE, INVENTORY CONTROL, 
AND PAYROLL (Peachtree Software) requires CP'M 
and MICROSOFT BASIC professional business 
systems turn key operation can be used as single 
modules or as a coordinated system $500 per 
module $2500 lor the complete system 

(4) WORD-STAR The ultimate word processor a 
menu driven word processing system thai can be used 
with any printer All standard word processing 
commands are included plus many unique com- 
mands only lound on WORD STAR requires CP'M 

$495 

(5) MAIL LIST MERGE An add on package that 
allows the user to send torm letters (created on 
WORD-STAR) to any compiled mailing list (using any 
CP M based MAIL program such as Ihe PFACHTREE 
MAIL PROGRAM) requires CP/M, WORD STAR and 
andy CP M based mail program $150 

(6) SELECTOR III (Micro-Ap) complete data 
management system user defined fields and codes 
manages any list defined by the user includes 
additional modules tor simplified inventory control, 
accounts receivable and accounts payable requires 
CBASIC-2 $295 

(7) SELECTOR IV (Micro Ap) the ultimate data 
management system all features use the SELECTOR 
III plus data file format conversions full page report 
formatter compulations global search and replace 

hard disk compatible oatatext merging $550 

(8) GLECTOR (Micro Api add on package to Ihe 
SELECTOR general ledger that allows the user to 
detine a customized chart ol accounts $350 

(9) CBASIC-2 a non-interactive BASIC used for 
many programs lhat run under CP/M allows user to 
make more efficient use ol disk files eliminates the 
use of most line number references require on such 
programs as the SELECTOR $120 

(10) MICROSOFT BASIC an enhanced version ot the 
MICROSOFT BASIC found on TRSDOS adds 
commands such as chaining (allows the user to LOAD 
and RUN a new program without losing Ihe variables 
currently in memory) long variable length file 
records WHILE WEND and others can be used with 
the BASIC COMPILER to speed up programs (3-10 
limes faster execution) $325 

(11) MASTER TAX (CPAids) professional la. 
preparation program prepares schedules ABC D 
E. F G. R RP SE TCES and forms 2106 21 '9 22 10 
3468 3903 2441 4625 4726 4797. 4972. 5695 ana 
6521 Printing can be on readily available prr-pr -ted 
continuous forms on overlays or on co"-ouler 
generated IRS approved torms Maintainsclin* *..s!ory 
files interactive wilh CP Aids General ledger $995 

(12) GENERAL LEDGER II (CPAids) d«sig-ed 'or 
CPA's stores complete 12 month deta.'ed H'Slory of 
transactions generates financial stalerrjents 
depreciation loan amortizations. ,.|OurngM4, "rial 
balances statements ol changes in financial povtion. 
and compilation letters includes payro'i system w.ih 
automating posting lo general' iedgers.»pnnts 
payroll register W2 s and payroll checks $450 

(13) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing 

and printer formatting features $275 (Slandard 
printer version) $300 (DIABLO NEC or QUME 
version) 

(14) BASIC COMPILER (Microsoft) changes your 
source programs into machine language increases 
program execution by 3-10 times $395 

• (CP/M IS A REGISTERED TRADEMARK 
OF DIGITAL RESEARCH) 
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• ••EVERYTHING FOR YOUR TRS-80 ... 

* TRS-80" is a trademark of the Radio Shack Division of Tandy Corporation 



100 sc*ER | MASTER PAC 100 . 

— QQf^^M* j 2nd EDITION (COMPLETELY REVISED) 



FOR YOUR TRS-80™ LEVEL II MICROCOMPUTER 



ALL ON CASSETTE OR DISKETTE 



BUSINESS AND PERSONAL EINANCE 



CHECKBOOK MAINTENANCE 

TIME FOR MONEY TO DOUBLE 

FEDERAL FICA & WITHHOLDING TAX 

COMPUTATIONS 

HOME BUDGET ANALYSIS _ — 

ANNUITY COMPUTATION .,clWESS» 

UNIT PRICING H\J*»*^ 

CHANGE FROM PURCHASE "* 

8 NEBS CHECK PRINTER 

9 DAYS BETWEEN DATES 

10 MORTGAGE AMORTIZATION TABLE 

11 INVENTORY CONTROL 

12 PORTFOLIO VALUE COMPUTATIONS 

13 VALUE OF A SHARE OF STOCK 

14 SALES RECORD KEEPING SYSTEM 
15. FUTURE VALUE OF AN INVESTMENT 

16 EFFECTIVE INTEREST RATE (LOAN) 

17 PRESENT VALUE OF A FUTURE AMOUNT 

18 RATE OF RETURN VARIABLE INFLOW 

19 RATE OF RETURN CONSTANT INFLOW 

20 REGULAR WITHDRAWAL FROM INVESTMENT 

21 STRAIGHT LINE DEPRECIATION 

22 SUM OF DIGITS DEPRECIATION 

23 DECLINING BALANCE DEPRECIATION 

24 BREAK EVEN ANALYSIS 

25 SALVAGE VALUE OF INVESTMENT 

26 PAYMENT ON A LOAN 

27 FUTURE SALES PROJECTIONS 

28 CREDIT CARD FILE 

29 ECONOMIC ORDER QUANTITY (EOQ) 
INVENTORY MODEL 

30 VALUE OF HOUSE CONTENTS _ ^^j **. 

31 TEXT EDITOR O^USO™ 

32 MONTHLY CALENDAR r»* 

33 DAY OF WEEK 

34 CASH FLOW VS DEPRECIATION 
35. COMPLETE MAIL SYSTEM 
36 INTEREST RATE ON A LEASE 



TlsT ics 



FINALS 



STATISTICS AND MATHEMATICS 

37 RANDOM SAMPLE SELECTION 

38 ANGLO MET1C CONVERSION 

39 MEAN, STANDARD DEVIATION, 
MAXIMUM AND MINIMUM 

40. SIMPLE LINEAR REGRESSION 

41 MULTIPLE REGRESSION ANALYSIS 

42 GEOMETRIC REGRESSION 

43 EXPONENTIAL REGRESSION 

44 SIMPLE MOVING AVERAGE 

45 SIMPLE T TEST --1 1 

46 CHI SQUARE TEST 9 » ** 

47 NORMAL PROBABILITIES 

48 BINOMIAL PROBABILITY 
49. POISSON PROBABILITY 

50 MATRIX ADDITION AND SUBTRACTION 

51 MATRIX TRANSPOSE 

52 MATRIX INVERSE 

53 MATRIX MULTIPLICATION 

54. SOLUTION OF SIMULTANEOUS EQUATIONS 

55 QUADRATIC FORMULA 

56 LINEAR EQUATION SOLUTIONS 

57 ROOT HALF INTERVAL SEARCH 

58 ROOTS OF POLYNOMIALS 

59 ROOTS NEWTON'S METHODS 

60 PRIME FACTORS OF INTEGER 

61 LEAST COMMON DENOMINATOR 

62 RADIAN-DEGREE CONVERSION 

63 NUMERICAL INTEGRATION 

UTILITIES 

64 QUICK SORT ROUTINE 

65 PROGRAM STORAGE INDEX 

66 MULTIPLE CHOICE QUIZ BUILDER 

67. FORM LETTER WRITER 

68. SHELL SORT 

69. CASSETTE LABEL MAKER 

70. CODES MESSAGES 

71 MERGE TWO FILES 

72 SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73 DRAWS BAR GRAPH 
74. DRAWS HISTOGRAM 

75 MOVING BANNER DISPLAY 

GAMBLING AND GAMES 

76 RANDOM SPORTS QUIZ 

77 GOVERNMENT QUIZ 
78. HORSE RACE 

79 MAGIC SQUARE 

80 ARITHMETIC TEACHER 

81 HIGH LOW GAMBLE 

82. UNSCRAMBLE LETTERS 

83. HANGMAN 

84 GAME OF NIM 

85 RUSSIAN ROULETTE 

86 ROULETTE GAME 
87. ONE ARMED BANDIT 
88 HIT THE TARGET 

89. WALKING DRUNK 
90 STATE CAPITAL QUIZ 
91. TIC TAC TOE 

92 DICE GAME 

93 LUNAR LANDAR GAME 

94 BIORHYTHM 

95 HORSE SELECTOR (CLASS CALCULATOR 

96 RANDOM DICE ROLL 

97 RANDOM ROULETTE ROLL 

98 RANDOM CARD DEALER 
99. GUESS THE NUMBER 

100. WHITE OUT SCREEN 



G AMBtf*» G 



— 2SSt 



USE* 



GUARANTEED SATISFACTION 

30-DAY MONEY BACK GUARANTEE ON ALL SOFTWARE 
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50 N PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

D MASTER PAC 100 CASSETTE VERSION $59.95 

D MASTER PAC 100 DISKETTE VERSION $59.95 

□ MASTER PAC 100 (TRS-80 MODEL II VERSION) $99.95 




HOUR 

ORDER 

LINE 




(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 

• All orders processed within 24-Hour s 

•k 30-Day money back guarantee on all Software 



CREDIT CARD NUMBER EXP. DATE. 

SIGNATURE 



NAME 



ADDRESS CITY STATE ZIP 

••* ADD $3.00 FOR SHIPPING IN UPS AREAS • ADD $4.00 FOR C.O.D. OR NON-UPS AREAS • ADD $5.00 OUTSIDE U.S.A, CANADA & MEXICO 
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m ♦EVERYTHING FOR YOUR TRS-80 ••• 

TR&SO Is a trademark of the Radio Sha< k Division of Tandy Corporation 

BUSINESS PAC 100 

100 Ready-To-Run 
Business Programs 




Software 



(ON CASSETTE OR DISKETTE) Includes 110 Page Users Manual 5 Cassettes (Or Diskettes) 

Inventory Control Payroll Bookkeeping System Stock Calculations 

Checkbook Maintenance.... .Accounts Receivable.. ...Accounts Payable 



BUSINESS 100 PROGRAM LIST 



1 RCILE78 Interest Apportionment by Rule of the 78 s 

2 ANNU1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASEINT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL Straightiine depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

1 DEPRDDB Double declining balance depreciation 

1 1 TAXDEP Cash flow vs. depreciation tables 

1 2 CHECK2 Prints NEBS checks along with dairy register 

13 CHECKBK1 Checkbook maintenance program 

14 MORTGAGE/ A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple. 

16 SALVAGE Determines salvage value of an investment 

1 7 RRVARIN Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

19 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 FVAL Present value of a future amount 

22 L0ANPAY Amount of payment on a loan 

23 REGWTTH Equal withdrawals from investment to leave over 

24 SIMPDISK Simple discount analysis 

25 DATEVAL Equivalent & nonequivalent dated values for oblig 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP * Markup analysis for items 

28 SINKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Schotes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection model-i.e. what stocks to hold 

38 OPTWRTTE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPR1NF Value of perfect information 

43 VALADfNF Value of additional information 

44 UTILITY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 

46 TRANS Transportation method for linear programming 

47 EOQ Economic order quantity inventory mood 

48 QUEUE 1 Single server queueing (waiting line) model 

49 CVP Cost volume-profit analysis 

50 CONDPROF CondftJonai profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

NAME Desaopnofi 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QUEUECB Cost-benefit watting line analysis 

56 NCFANAL Net caahAow analysis for simple Investment 

57 PROFTO ProftaMtty Index of a project 

96 CAP1 Cap. Asset Pr . Model anarvsts of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DISC BAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FIN RAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PR1NDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 TTMETR Time series analysis linear t/end 

69 TWEMOV Time series analysis moving average trend 

70 FUPR1NF Future price estimation with inflation 

71 MAILPAC Mailing list system 

72 LETWRT Letter writing system-links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL 1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 T1MECLCK Computes weeks total hours from timeclock info 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

8 1 TELDIR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSFILE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 D1LANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Sale-teaseback analysis 

99 RRCONVBD Investor's rate of return on convertable bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



D CASSETTE VERSION *99 

D DISKETTE VERSION *99 

D TRS-80* MODEL D VERSION S 1 49 



ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4-00 FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 OUTSIDE U.S.A, CANADA & MEXICO 

•CQMPLrmoMcS": 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



..95 "ew TOLL. Ffl ^ 
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(914 ) 425-1535 
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... EVERYTHING FOR YOUR TRS-80 ... 

TRf»ao is a trademark of the Radio Shack Division of Tandy Corporation 




* All orders processed within 24-Hours 
• 30-Day money back guarantee on all Software 
• Add $3.00 for shipping in UPS Areas 
• Add $4.00 for COD. or NON-UPS Areas 
D TJC|¥ < MirC|C| * Add $500 outside U-S.A., Canada & Mexico 



COORDINATED 



SMALL BUSINESS 
SYSTEMS GROUP 



SYSTEMS 



VISA? 



FBl(AN| 
lEXPRESS 




FACTS ABOUT THE S.B.S.G. BUSINESS PACKAGES 

1. S.B.S.G. is a sophisticated Business Software System designed for the serious businessman. 

2. Each of the S.B.S.G. Business Modules may be purchased separately or you may purchase the entire coordinated business system. 

3 Modules purchased separately do not coordinate with the General Ledger (although for the standard S.B.S.G. fee, the user may upgrade his 
individual modules for the coordinated system). 

4 Foolproof. Step-By-Step procedures are supplied, planned and documented for the First-Time Computer User. All programs are self- 
explanatory, telling the user what is required at every step 

5. Programs are written in BASIC and the source code listing is supplied for those users who decide to modify the original system 

6. A complete users manual is supplied with each module 

7. Demo Data diskettes are supplied with sample data. 

8 S.B.S.G. has an In-House staff that can answer questions and problems related to the proper use of the S.B.S.G. Business System (on the 
telephone or through the mail) 

9. First-Time Computer Owners Note-Instructions are provided for entering state payroll withholding tables There is an additional charge if 
you prefer to have S.B.S.G. Programmers insert the correct data 

10. Minimum system requirement is 2-drives to run any single module 

11. Minimum system requirement is 3-drives to run the coordinated business system (AR-AP-GL) or (AR-AP-GL with PAYROLL). 

12. Minimum system requirement is 4-dnves to run the extended coordinated system (AR-AP-GL-PR and INVENTORY/INVOICING). 

13. The A. OSBORNE & ASSOCIATES business manuals are provided FREE with each order (they may be purchased separately at $20 per 
manual) 

14. The INVENTORY and INVOICING modules are original programs written by S.B.S.G. 

15. Each module can be purchased as independent modules to run on a 2 or more drive system except INVOICING. 

16 Memory requirement is 48K for the MODEL-I and 64K for the MODEL-II 

1 7 All S.B.S.G. BUSINESS SYSTEMS may be upgraded up to 4-disk drives. No data is ever lost during an upgrade. There is a standard S.B.S.G. 
charge for all upgrades. 



ACCOUNTS PAYABLE 

The accourtfs payable system receives data concerning purchases from 
suppliers ?*& produces checks in payment of outstanding invoices In 
addition, it .Voduces cash management reports This system aids in 
tight financial control over all cash disbursements of the business 
Several reports are available and supply information needed for the 
analysis of payments, expenses, purchases and cash requirements. All 
A/P data feeds General Ledger so that data is entered into the system 
just once. These programs were developed 5 years ago for the Wang 
micro-computer and have been tested in many environments since 
then. The package has been converted to the TRS-80'" and is now well 
documented, on-line, interactive micro-computer system with the 
capabilities of (or exceeding many larger systems) 
CAPABILITIES: 

* menu driven; easy to use, full screen prompting and cursor control 

* invoice oriented; everything revolves around the invoice; handles 
new invoice or credit memo or debit memo 

* invoce information recorded; invoice #, description, buyer, check 
register #. invoice date, age date, amount of invoice, discount (in %), 
freight, tax ($), total payable 

* transaction print and file maintenance procedures insure accuracy 

* flexible check calculation procedure; allows checks to be calculated 
for a set of vendors-or-for specific vendors 

* program prints your checks; contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back); 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• agmg 

• check register report (to give an audit trail of checks printed) 

• vendor listing and vendor activity (activity of the whole year) 

* fully linked to GENERAL LEDGER, each invoice can be distributed 
to as many as five (5) different GL accounts; system automatically 
posts to cash and A/P accounts 



ACCOUNTS RECEIVABLE 

The objective of a computerized A/R system is to prepare accurate and 
timeley monthly statements to credit customers. Management can 
generate information required to control the amount of credit extended 
and the collection of money owed in orderto maximize profitable credit 
sales while minimizing losses from bad debts The programs com- 
posing this system were developed 5 years ago, especially for small 
businesses using the Wang Microcomputer. They have been tested in 
many environments since then Each module can be used stand alone 
or can feed General Ledger for a fully integrated system 
CAPABILITIES: 

* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; invoices can be entered before ready for billing, 
when ready for billing, after billing or after paid 

* allows entry of new invoice, credit memo, debit memo, or change/ 
delete invoice 

* allows for progress payment 

* transaction information includes; 

• type of A/R transaction • billing date 

• customer P.O. # • general ledger account number 

• description of P.O. • invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print & file maintenance procedures insure accuracy 

* customer statements printed; computer statements with your corn- 
pay letterhead can be purchased from SBSG 

* reports include; (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

* fully linked to General Ledger; will post to applicable accounts; 
debit A/R, credits account you specify 
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PAYROLL 

Payroll invoices many complex calculations and the production of 
reports and documents, many of which are required by government 
agencies. It is an ideal candidate for the computer With this Payroll 
system in-house, you can promptly and accurately pay your employees 
and generate accruate documents/reports to management, employees, 
and appropriate government agencies concerning earnings, taxes, and 
other deductions The package has been converted to the TRS-80*" and 
is now a well documented, op-line, interactive, micro-computer system 
with the capabilities of (or exceeding) many larger systems. 

CAPABILITIES: 

* performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

* can handle salaried and hourly employees 

* employees can receive: 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

* employees can be paid using any combination of pay types (except, 
hourly cannot receive salary and salary cannot receive hourly) 

* special non-taxable or taxable lump sums can be paid regularly or 
one time (bonus, reimbursements, etc) 

* health and welfare deductions can be automatically calculated for 
each employee 

* earnmgs-to-date are accumulated and added to permanent records, 
taxes are computed and deducted: US income tax, Social Security 
tax, state income tax, other deductions (regular or one time) 

* paychecks are printed; computer checks with your company letter- 
head can be purchased from SBSG 

* calculations are accumulated for; employee pay history, 941A re- 
port, W-2 report, insurance report, absentee report 

* fully linked to General Ledger. Each employee's payroll information 
can be distributed to as many as (12) twelve different GL accounts; 
system automatically posts to cash account 



INVENTORY CONTROL/INVOICING 

* ISAM (Indexed Sequential Access Method) eliminates the necessity 
for time consuming sort. 

* Pre-Allocated Files for IMMEDIATE update and inquiry capabilities 

* Fast Disk storage and retrieval 

* Inventory Master Record includes class SKU Division Retail 
Cost Beginning Balance Period Sale Units Period Receipts On 
Order On Hand. Minimum Reorder Point Recommended Re- 
order Amount Vendor Number Period Sale Dollars YTD Sale 
Units. YTD Sale Dollars 

* Calculated and Displayed Formulas include. Gross Margin ($) 
Gross Margin (%).. Gross Margin ROI (%) ..Average Inventory Retail 
($) Average Inventory Cost ($)... Turn-Over (%) 

* Reports Generated include. ..Master File Listing Class Description 
Listing. ..Transaction Audit Trail. ..Minimum Reorder Point by Ven- 
dor Retail Price List. Retail & Cost Price List ..Period Sales Report 

..Year to Date Sales Report. ..Stock Status (Screen or printer output) 
...Commission Report (for salesmen and buyers). 

* Transaction Types include. ..Sales. Vendor Receipts Vendor 
Orders ..Customer Returns. Vendor Returns Transfer Stock 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data 
from other accounting subsystems (A/R. A/P. Payroll, direct posting) in 
an accurate and timely manner Major reports include the Income State- 
ment and Balance Sheet and a "special" report designed by manage- 
ment The beauty of this General Ledger system is that it is completely 
user formatted You "customize" the account numbers, descriptions, 
and report formats to suit particular business requirements These 
programs were developed 5 years ago for the Wang micro-computer 
and have been tested in many environments since then The package 
has been converted to the TRS-80'" and is now a well documented, on- 
line, interactive micro-computer system with the capabilities of (or 
exceeding) many larger systems 
CAPABILITIES: 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via: 

• direct posting, done by hand, validated against the account file 
before acceptance 

• external posting, generated by A/R. A/P. Payroll or any other 
user source 

* data is maintained and reported by: 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more 

* user formats reports with the following designated as you wish 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven, easy to use; full screen prompting and cursor control 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



PRICING MOD-1 

PR,CING VERSION 

ACCOUNTS RECEIVABLE 5125 

ACCOUNTS PAYABLE $ 125 

GENERAL LEDGER S125 

PAYROLL $125 

INVENTORY $175 

INVOICING $15 ° 

COORDINATED INVENTORY/INVOICING ACCOUNTS RECEIVABLE $449 

COORDINATED AR-AP-GL $ 375 

COORDINATED AR-AP-GL with PAYROLL $ 4 95 

EXTENDED COORDINATED AR-AP-GL INVOICING/INVENTORY with PAYROLL $799 



MOD-II 


MOD-III 


VERSION 


VERSION 


S225 


$199 95 


$225 


$199 95 


$225 


$199 95 


$225 


$199 95 


$275 


$199 95 


$250 


$199 95 


$749 


$59995 


$675 


$599 95 


$899 


$799 95 


$1299 


$1199 95 
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• • ffi EVERYTHING For Your TRS-80* Model I or Model III • • • 



' TRS-80" is a trademark of Tandy Corp 



REMsoft, Inc 



All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add S3 00 for shipping in UPS Areas 
• Add $4 00 for C O D or NON-UPS Areas 
• Add S5 00 to Canada or Mexico 
• Add exact postage to all other countries 



Let Your TRS-80™ 
Teach You 

ASSEMBLY LANGUAGE 


LEARN TRS-80™ 
ASSEMBLY LANGUAGE 

DISK 1/0 


REMASSEM-1 

Tiredof buyingbook after book onassembly languageprogrammmgand I 
still not knowing your POP from your PUSH? 

REMSOFT proudly announces a more efficient way using your own 
TRS-80'" to learn the fundamentals of assembly language programming 
at YOUR pace and at YOUR convenience 

Our unique package "INTRODUCTION TO TRS-80 " ASSEMBLY 
PROGRAMMING", will provide you with tne following 

* Ten 45-.mmute lessons on audio cassettes 

* A driver program to make your TRS-80'" video monitor serveasa 
blackboard for the instructor 

* A display program for each lesson to provide illustration and rem- | 
forcement for what you are hearing I 

* A textbook on TRS-80'" Assembly Language Programming 

* Step-by-step dissection of complete and useful routines to test 
memory and to gam direct control over the keyboard video moni- 
tor, and printer 

* How to access and use powerful routines in your Level II ROM 
T his course was developed and recorded by Joseph E Will is and is based 
on the successful series of courses he has taught at Meta Technologies 
Corporation the Radio Shack Computer Center, and other locations in 
Northern Ohio The minimum system required is a Level II. 16K RAM 


REMDISK-1 

Your disk system and you can really step out wit hREMson s Educational 
Module REMDISK-1. a short course revealing the details of DISK I/O 
PROGRAMMING using assembly language 

Using the same format as our extremely popular introduction to assem- 
bly language programming, this "ASSEMBLY LANGUAGE DISK I/O 
PROGRAMMING" course includes 

* Two 45-mmute lessons on audio cassette 

* A driver program to make your TRS-80'" video monitor serve as a 
blackboard for the instructor 

* Adisplay programfor each lesson to provide illustration and rein- 
forcement for what you are hearing 

* A booklet of comprehensive fully-commented program listings 
illustrating sequential file l/'O. random-access file I/O. and track 
and sector I/O 

I * A diskette with machine-readable source codes for an programs 
j discuss-'d m both Radio shack EDTASM and Macro formats 
I * Routines to convert from one assembler format to the other 

This course was developed and recorded by Joseph E Willis for the 
student with experience in assembly language programming it is an 
intermediate- to advanced -level course Minimum hardware required is a 
Model I Level II 16K RAM one disk drive system 



•CQMPIJTRQNICS- ., 

50 N. PASCACK ROAD 
IPRING VALLEY. NEW YORK 10977 




r\ 



HOUR 

ORDER ^ 
LINE 



PLEASE SEND ME: 

DREMASSEM-1 (TRS-80 MODEL I CASSETTE) 
DREMASSEM-1 (TRS-80 MODEL I DISKETTE) . 
DREMASSEM-1 (TRS-80 MODEL III CASSETTE) 
DREMASSEM-1 (TRS-80 MODEL III DISKETTE) 
DREMDISK-1 (TRS-80 MODEL I DISKETTE) 



QP\24 

(914) 425-1535 




S69 95 
$74 95 

$74 95 

S79 95 

$29 95 

DREMDISK-1 (TRS-80MODEL III DISKETTE) S34 95 

CREDIT CARD NUMBER EXP DATE 

SIGNATURE NAME 

ADDRESS 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 



CITY STATE 

ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE •" 



ZIP 



202 • 80 Microcomputing, September 1981 



# # 



fi-ot* 
FOR THE TRS-80 MODEL I AND MODEL ID 




1 System Diagnostic 



For Cassette or Disk 



IS YOUR COMPUTER WORKING? 



$99.95 



ROM: 

RAM: 

VIDEO DISPLAY: 

KEYBOARD: 

LINE PRINTER: 

CASSETTE RECORDER: 

RS-232-C INTERFACE: 

DISK DRIVES: 



ARE YOU SURE? 

checksum lest 

four separate tests including every address and data value. 

character generator, video RAM, and video signal. 

every key contact tested. 

character test. 

read/write/verify data. 

connector fault, data transmission, framing, data loop, baud rale generator. 

disk controller, drive select and restore, track seek and verify data, read/write/verify all tracks and 
sectors with or without erasing, sector formatting, disk drive timer, disk head cleaner. 



— Individual tests of each device with operator monitoring and intervention. 

C ontinuous sysom tests run continually for hours testing each component, with diagnostic reports optionally written on line printer. 

— One program adapts to any system configuration and hardware. 

— Complete instructions and documentation. 



MON-3 and MON-4 

The TRS-80 Monitor Programs »3 and #4 are powerful utility programs 
enabling you to interact directly with the TRS-80 in Machine Language. 
They are as useful for beginners as for advanced programmers. 

• BEGINNERS can learn to interact directly with the computer in 
Machine Language. 

• 40-PAGE MANUAL provided with each program. 

• SIMPLE commands, easy to use. 

The Features Of The Monitor Pro g rams Enable You To The Followin g 

• DISPLAY memory in different ways. 

• DISASSEMBLE memory lo see Machine Language commands. 

• MOVE and COMPARE memory areas. 

• SEARCH through memory to find specific values. 

• MODIFY memory in various ways. 

• RELOCATE object programs. 

• PRINT output on video display or line printer. 

• READ and WRITE object tapes in SYSTEM Format. 

• UNLOAD programs using low RAM on disk. 

• SAVE and READ disk files (MON-4 Only). 

• INPUT and OUTPUT of disk sectors (MON-4 Only). 

• SEND and RECEIVE data over RS-232-C Interface (MON-4 Only). 

• Create SYMBOLIC Tapes (MON-3) or Files (MON-4) of Disassem- 
bled output for Editor/Assembler program. 

MON-3 (Tor Cassette Systems) $39-95 
MON-4 CFor Disk Systems) $49-95 



SMART TERMINAL 

Enables your TRS-80 to be used as a remote terminal to a time sharing 
computer system. Supports upper/lower case and full range of control 
keys, including controfkey mapping into any ASCII character. Automatic 
transmission of files between TRS-80 and host computer. Files can be read 
from or written to cassette tape or disk. Incoming data can be printed on 
line printer or stored in memory for subsequent save to cassette or disk. 
Disk and tape files are fully compatible with the ELECTRIC PENCIL pro- 
gram. Baud rate and RS-232-C sense switches can be reset without open- 
ing Expansion Interface. Requires RS-232-C interface and modem. 

Cassette or Disk Version $*9-95 



MAILING LIST 

Maintains mailing lists of over 1000 names. Commands allow adding, 
changing, deleting, and finding names. Sorting is done by machine lan- 
guage according to the information in any field (i.e., name, address, zip 
code). Labels printed in 1, 2, or 3 columns, in master list on one line, or on 
video display. 

Disk Version Only $69.95 



HOME BUDGET 

Combines the maintenance of your checkbook with analysis of your 
income, expenses, and monthly Dills. Handles data including bills, in- 
cluding bills, income, deposits, checks and debits to your checking ac- 
count, and cash expenses. Computes checkbook balance, list of unpaid 
bills, monthly and year-to-date summaries of income and expenses show- 
ing income tax deductions. All output printed on video display or line 
printer at user's option. Complete instructions for customizing to suit 
your own budget. 

Disk Version Only $49-9$ 



SMALL BUSINESS ACCOUNTING . 

Based on Dome Bookkeeping Record «612, this program keeps track of 
income, expenditures, and payroll for a small business of up to 16 employ- 
ees. Income and expenditures can be entered on a daily, weekly, or 
monthly basis, and the program computes monthly, through last month, 
and year-to-date summaries. Payroll section keeps record of individual 
employees and their paychecks with up to six categories of payroll de- 
ductions. Employee payroll record and year-to-date payroll totals can be 
computed. Manual contains complete instructions for customizing to suit 
your business. 

Disk Version $49-95 
Cassette Version $29-95 
(Cassette Version does not contain payroll) 



FASTSORT 

A series of machine-language subroutines (for 16K, 32K and 48K Sys- 
tems) to sort data from BASIC programs. Data may be alphabetic (string) 
or numeric (integer only). Works equally well with level II or Disk Basic. 
Complete instructions and examples provided for interfacing with your 
BASIC programs. 

Cassette or Disk Version $9-95 



CQMPLITRQNICS 



C ^9 



50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 






NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 



» All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add S3 00 for shipping in UPS Areas 
• Add $4 00 for C O D or NON-UPS Areas 
• Add $5 00 to Canada or Mexico 
• Add exact postage to all other countries 
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TUTORIAL 



Write your first program with the help of a flying saucer. 



Alternate Course— Part II 



Michael A. Duff in 
1507 East Ave. 
Berwyn IL 60402 



One of the hardest things in 
data processing is writing 
your first program. 

To help alleviate this problem 
I gave my class Flying Saucer 
(Program Listing 1) to enter into 
the computer. The intended re- 
sults of this program can be 
seen in Fig. 1. 

Those numbers on the left are 
line numbers, and the computer 
uses them so it knows what line 
to execute first. They may be 
typed into the computer in any 
order, and the computer will 
place them in the correct se- 
quence. If you make a mistake, 
just type the line over again. 

One thing you must remem- 
ber is that when you are finished 
typing on each line you must hit 
the white Enter key. This tells 
the computer that you are fin- 
ished entering a line. If you want 
to make sure that you have 
typed in all of the lines correctly 
then type LIST into the com- 
puter. This causes the computer 



to list all of the lines with line 
numbers that you have typed in- 
to the computer. When you are 
ready to see your picture, type 
RUN into the computer. Don't 
forget to hit the Enter key after 
you have typed in list or run. 

As far as the instructions 
used in the program, CLS means 
clear the screen. This causes 
the computer to erase every- 
thing that's on the screen. 

PRINT® tells the computerto 
print something at a specified 
spot on the screen. If you look at 
a TRS-80 Video Display Work- 
sheet you will see the numbers 
through 63 at the top of the 
sheet. At the right of the sheet 
are the numbers 63, 127 and so 
on. At the left are the numbers 0, 
64, 128 and so on. 

These numbers are used with 
the PRINT® instruction. The 
number represents the corre- 
sponding positions on the 
screen. The numbers through 
1023 are valid for this instruc- 
tion. The second operand of the 
PRINT® instruction is the 
character or groups of charac- 
ters that you want printed at the 
specified location. If we look at 
line 20 of the program: 

20 PRINT® 158,"()" 

we see that the characters ( ) will 
be printed starting at position 
158. These characters must be 
included in quotes. 

One other point of interest 
about this program concerns 
lines 70, 80 and 90. The starting 
position in lines 20 through 60 



was determined by taking the 
number to the left of the charac- 
ters for that line and then adding 
the number from the top that is 
just above the first character of 
that line. Thus, in line 20, the 



numbers 128 + 30 (158) repre- 
sent the starting position. Since 
the computer can add more reli- 
ably than we can, lines 70, 80, 
and 90 let the computer add the 
two numbers to determine the 




REM 
CLEAR 

PRINT? 158,"()" 
PRINTS 221, "( )" 
PRINT? 284, "( )" 
PRINT? 344, "( (( )) ) ) " 
PRINT? 384+21,"((((((( 
PRINT? 448+18, "(((((((({(( 
PRINT? 576+24, "THIS IS 
PRINT? 640+14, "FLYING 



)))))))" 

)))))))))))" 



REM *** 
I CLS 
I PRINT? 158, "() 



FLYING SAUCER MODIFIED *** 



( )" 



))) 



PRINT? 221/ 
40 PRINT? 284,' 
50 PRINT? 344, "( ( ( ( 
60 PRINT? 384+21, "( ( ( (((( 
70 PRINT? 448+17, "( (((((((((( 
80 PRINT? 576+24, "THIS IS 
90 PRINT? 639+14, "FLYING 
100 PRINT? 960+30, "1!" 
110 FOR X=l TO 100 
120 NEXT X 
130 GOTO 100 



■)))) 



A" 



)))))))))" 



SAUCER' 
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Please call 

(213) 883-8594. 

Our Epson prices 
are so low, 
we're not allowed 

to print them. 



3G 

95 
30 

100 
60 
70 



SERIAL INTERFACE (2K BUFFER) $ 

SERIAL CABLE Male to Male ... £ 

DOT RESOLUTION GRAPHICS . . .S 

REPLACEMEN T RIBBON ... S 

REPLACEMENT PRINT HEAD {Qj.e: type) S 
EPSON SERVICE MANUAL .... . . . $ 



EPSON MX-80 SCALL EPSON INTERFACES & OPTIONS 

80 cps/9x9 matrix/Lower case with trs-8o model i hi cable . 

true descenders/Bi-directional & trs-bo model i Keyboard interface 

Logic seeking/Adjustable tractor/ ^^SaTcABLE 

Expanded printing/Block graphics/ eee 488 interface 

Forms control/Compressed printing/ serial interface 

Double-strike printing/Correspon- 
dence quality/Emphasized printing 
mode/Standard parallel interface 

EPSON MX-80 F/T SCALL 

Same features as the MX-80 plus Fric- 
tion Feed. Adjustable removable trac- 
tor is standard for ease of handling 
forms and single sheets. 

EPSON MX -100 F/T SCALL 

Same features as the MX-80 & MX-80 
F/T but on 1 5 1 /2 inch carriage for print- 
ing 132 columns with standard 10 cpi 
font or 232 columns in the com- 
pressed character font. The MX-1 00 is 
complete with Dot Resolution 
Graphics 31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 




We built a reputation on our 
prices and your satisfaction. 

We guarantee everything we sell for 30 days If anything 
is wrong, just return the item and we'll make it right. 
And, of course, we'll pay the shipping charges. 

We accept Visa and Master Card on all orders COD 
accepted up to $300.00. We also accept school pur- 
chase orders. 

Please add $2.00 for standard UPS shipping and 
handling on orders under 50 pounds, delivered in the 
continental U.S. Call us for shipping charges on items 
that weigh more than 50 pounds. Foreign, FP0 and AP0 
orders please add 15% for shipping. California res- 
idents add 6% sales tax. 



^69 



- See List ot Advertisers on page 354 
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## 
# ##### 

############ 
################## 

F/g. 2 



5 CLS 

6 REM *** 
.13 PRINT I 
£5 PRINT I 
20 PRINT I 
25 PRINT ( 
30 PRINT » 
35 PRINT I 
40 PRINT ( 
45 PRINT { 
50 PRINT ( 
.55 PRINT ( 
60 PRINT i 

6 5 PRINT ( 

7 PRINT I 



SYMMETRIC DESIGN BY ANDREA BAAR *** 
86, "xxxxxxxxxxxxxxxxxx" 
153, "xxxxxxxxxxxx" 
220, "xxxxxx" 
286, "xx" 
348, "xxxxxx" 
383+26 , "xxxxxxxxxxxx" 

xxxxxxxxxxxxxxxxxx" 

xxxxxxxxxxxx" 

xxxxxx" 



447+23, 
511+26, 
575+29, 
639+31, 
703+29, 
767+26, 
831+23, 



xxxxxx 

'xxxxxxxxxxxx" 
'xxxxxxxxxxxxxxxxxx' 



10 CLS 

20 PRINT9 280, "XXXXXXX" 

30 PRINT@ 341, "XXXXXXXXXX X' 

40 PRINTS 408, "XXXXXXXXXXXXXXXX" 

50 PRINTS 447+25, "XXXXXXXXXXXXXXXX" 

60 PRINTS 511+25, "XXXX XXXX" 

70 PRINTS 639+22, "THIS IS A DOG" 



starting position. 

After this brief explanation of 
the program I instructed my stu- 
dents to type the program into 
their machines and run it. Then 
I asked them to modify the pro- 
gram so that the picture on the 
screen matched the picture on 
the worksheet. At this time all 
modifications were accom- 
plished by retyping the line that 
was in error. 

Most of the students had no 
problems with this program ex- 
cept for the fact that a few of 
them weren't very good at typ- 
ing, but then again neither am I. 

Once everyone had complet- 
ed the exercise I gave them the 
following four lines: 

100 PRINT® 960 + 30,"! !" 
110 FORX = 1TO100 



120 NEXT X 
130 GOTO 100 

Along with these lines I gave 
them the following instructions: 

1) Add lines 100 and 130 only 
to the saucer program. 

2) Type RUN 

a)What happens? Why? 
b)What does line 130 do? 
c)How do you stop the pro- 
gram? 

3) Now type in lines 110 and 
120. (The program should now 
consist of lines 10 through 130). 

4) Type RUN 

a)How has the program 
changed? 

5) Change the number 100 in 
line 110 to 1000. 

6) Type RUN 

a)How has the program 
changed? 





5 REM *** SHIP BY LIRI HODJA *** 

10 CLS 

20 PRINTS 95, "X" 

30 PRINTS 158, "XXX" 

40 PRINTS 221, "X X X" 

50 PRINTS 284, "X X X" 

60 PRINTS 319+28, "X X X" 

70 PRINTS 383+27, "X X X" 

80 PRINTS 447+26, "X X X" 

90 PRINTS 511+25, "XXXXXXXXXXXXXXX" 

100 PRINTS 575+32, "X" 

110 PRINTS 639+15, "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X" 
120 PRINTS 703+16, "X x" 

130 PRINTS 767+17, "X x" 

140 PRINTS 831+18, "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 



206 • 80 Microcomputing, September 1981 



7) Change the number 1000 in 
line 110 to 10. 

8) Type RUN 

a)How has the program 
changed? 

b)What do lines 1 10 and 120 
do? 

c)How does the program 

work? 

For those of you who don't 

have a TRS-80 handy, I'll explain 

the answers to the questions 

above. 

2a. What happens is the fly- 
ing saucer flies up off the 
screen. Then, what seems to 
happen is the characters "!!" 
stay on the screen. 

2b. Line 130 goes back to line 
100 and prints !! again at posi- 
tion 990. 

2c. There are a couple of 
ways the program can be 



stopped. One way of course is to 
turn off or unplug the machine. 
The big disadvantage in doing 
this is that you have to retype 
the entire program into the ma- 
chine so you can answer ques- 
tion number 3. A better method 
of stopping this program or any 
program is to hit the Break key. 

4a. The saucer still flies off 
the screen but it does this at a 
slightly slower rate. This time it 
can also be seen that the char- 
acters !! seem to be blinking. 

6a. By changing the number 
in lines 110 to 1000 the saucer 
flies up off the screen at a much 
slower speed and, yes, this time 
the characters !! are definitely 
blinking. 

8a. This time the saucer flies 
off the screen at a much faster 
rate. 



10 CLS 

20 PRINTS 63+25, "t # 
30 PRINTS 127+25, "# *' 
40 PRINTS 191 + 25, "Mt#MM" 
50 PRINTS 255+25,"* •" 
60 PRINTS 319+26, *######" 
PRINTS 383+28, "# #" 
PRINTS 447+23, "#*#»! 
90 PRINTS 511+23, "t 
100 PRINTS 575+23, "# 
110 PRINTS 639+23 ,"# 
120 PRINTS 703+19, "#♦*# 



#####• 



1*11" 



130 PRINTS 767+19, "##M»MM##M##M#M##M#t#" 





PROBASIC 



PROBASIC $195.00 

Loader relocatably links user specified modules to save memory. 
Design BASIC to your specifications (now or later). 
Dump feature allows you to save your versions of Basic 
Sample: PROBASIC -P: ACDEFGIM -S:Your file 



Probasic includes the following relocatable modules 



PRO - ANGLES 

DEGREES, RADIANS 
ASIN, ACQS, PI # 



PRO-LABELS 

Label branching & testing 
IF LABEL 85 < > "Test" 
THEN MERGE . . . 
85 "Test" PRINT "Test" 



PRO-DEBUG 

Most brackets optional . . . 
Fix - T M error 
New - DELETE 
TRSTEP, TRVAR PROC, 
INSERT, DIR, INBbC 



PRO-EXTENSIONS 

Dynamicly save variables & 
files during editing, merging, 
linking & deleting, . . . 
New - RENUM 
New - MERGE, LINK 



PRO-KEYS 

Redefine key(s) to any string 
from program or keyboard 
Enable/Disable from .vey- 
board with CTR'L - ; 
Fix - live - keyboard 
PROKEY = , PROKEYS 



PRO-WORDS 

UPC$, LWC$, TRIMS, REV$, 
PAUSE, RPT$ FCHR, FSTR, 
FSECTS, CHG$, EVAL, 
CKKEY, FRACT, COMP, 
FQTY,MIN,MAX,EDT$,E#, 
INV$, CNSECS, 



PRO-MACH 
SVC axcess to basic subs 
New - BREAK (Reset) 
PEEK, PEEK%, ,"EEK$, 
POKE, POKE%, POKES, 
CALL adres (parms), 
CLRTN, EXECUTE. INP, 
OUT 



PRO-EDIT 

Immediate entry keys 

M**,./f1 

New - LIST & EDIT 
ROLLUP, ROLLDN 



PRO ■- CRT 

Inverse vidio 

CRT, CRTS, SCROLL 



PRO-SORT 

String aray sort routines 
2000 strings in 7-16 sec 
SORTaSfUSING 1,2...) 



PRO - FILES 

Fix - LOF 
RELOC, OPEN "E" 



PRO-FUNCTIONS 

Multi-line Functions 

MIDS TO 

WAIT for $ reorganizing 

New- HEXS 

Misc fixes 



PRO - VRS 

Allows 3 letter variables 
Reserved words in variables 
UPC VRS, LWCVRS 
KEYVRS, VARLEN 



PRO-GRAPH 

Draw lines, patterns, ooints 
SET, RESET, POINT, 
USING, TO, GRAPH 



Call and we'll send our "TEST PROGRAM" listing 
PRO-80-SYSTEMS .sot 319-266-4262 

319-266-7184 
319-233-6111 



3206 CENTER STREET 

Cedar Falls, la. 50613 



• See List Of Advertiser? on pege 354 
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5 REM *** 


CHRISTMAS TREE BY CAROL ANN VOJTIK *** 


10 CLS 






20 PRINTS 


157, "X 


* 


30 PRINTS 


191+29 


, "XXX" 


40 PRINTS 


191+64 


+28,"XXXXX" 


50 PRINTS 


319+27 


."XXXXXXX" 


60 PRINTS 


383+26 


."XXXXXXXXX" 


70 PRINTS 


447+30 


, "X" 


80 PRINTS 


511+27 


, "XXXXXXX" 


90 PRINTS 


639+22 


, "MERRY CHRISTMAS" 


rf 







ISO 1 



Pat #4 259 706 



ISO 2 



DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't 

Blame The 
Software! 

Power Line Spikes. Surges & 

Hash could be the culprit! — - 

Floppies, printers, memory & processor often interact' Our 
patented ISOLATORS eliminate equipment interaction AND curb 
damaging Power Line Spikes. Surges and Hash 

• ISOLATOR (ISO 1) 3 filter isolated 3 prong sockets: integral 
Surge/Spike Suppression: 1875 W Maximum load. 1 KW load any 
socket 552 95 

• ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks (6 
sockets total), integral Spike/Surge Suppression: 1875 W Max 
load, 1 KW either bank $ 62 95 

• SUPER ISOLATOR (ISO-3). similar to ISO 1 except double 
filtering & Suppression $94 95 

• ISOLATOR (IS6 4). similar to ISO-1 except unit has 6 
individually filtered sockets $106 95 

• SUPER ISOLATOR (ISO 1 1) similar to ISO-2 except double 
tittering & Suppression tn.nr, 

• CIRCUIT BREAKER, any model (add-CB) '. . Add $ 8 00 

• CKT BRKR/SWITCH/PILOT (-CBS) Add $1600 

ftllieSi Master-Card. Visa. American Express 

UfcALERS 0rder To „ FfM r 800-225 4876 

(except AK. HI. PR j Canada) 



8b. My students easily ascer- 
tained that line 110 somehow 
controls the speed that the 
saucer moves. The relationship 
of line 120 and the actual me- 
chanics of a For... Next loop 
evaded most of them since they 
had never been exposed to a 
For... Next loop before. What 
lines 1 10 and 120 really do is add 
1. Line 110 starts with X= then 
line 120 causes X to be in- 
cremented until X equals the 
number after "to" in line 110. 

8c. Line 10 blanks the screen. 
Lines 20 through 90 build the 
saucer and write the message. 



Line 100 causes the characters 
"!!" to be written on the last line 
of the screen. Lines 110 and 120 
cause the saucer to move up 
slower. Line 130 goes back to 
line 100 and the instructions 100 
through 130 keep repeating be- 
cause of this. 

By the way, line 130 is an ex- 
ample of an unconditional 
branch. Lines 110 and 120 are an 
example of a conditional 
branch. An unconditional 
branch is always executed, (e.g. 
Line 130 always goes back to 
line 100 while the program is ex- 
ecuting). 
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4 




4 




3 




3 




2222222222 




1 


\\\/// 


1 




1 1 


\\// 


1 1 




1 1 1 


\/ 


1 1 1 




BLAST 


OFF 






Fig. 6 




5 REM *** SPACE 


SHIP BY TONY PUSATERI *** 


10 


CLS 






20 


PRINTS 31,"] 


0" 




30 


PRINTS 64+2S 


,"9 9" 




40 


PRINTS 156, 


8 8" 




50 


PRINT? 219, 


7 7" 




60 


PRINTS 283, 


6 6" 




70 


PRINT§ 347, 


5 5" 




80 


PRINTS 411, 


4 4" 




90 


PRINTS 475, 


3 3" 




100 


PRINTS 539 


"2222222222 


■ 


110 


PRINTS 602 


"1 <<<>>> 


i" 


120 


PRINTS 664 


"1 1 <<>> 


1 i" 


130 


PRINTS 726 


"111 <> 1 1 1" 


140 


PRINTS 798 


"1111" 




150 


PRINTS 862 


"1111" 




160 


PRINTS 926 


"1111" 




17 


PRINTS 983 


"BLAST 


OFF" 


180 


GOTO 180 
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Auto-dial/Auto-answer 

FOR $224.95! 



The Microconnection can dial t 
phone and answer it too, 
transcribe transmissions 
decode busses, run 
printers, receive/send 
radio transmissions, 
answer/originate, and 
direct<onnect to the phone 
system. Lots of terminal and 
host software for cassette and 
disk too. That's why it's a modem 
— and much more. 



.orP^' " 



^S^^°" 



Regular MICROCONNECTION " 
prices start at $199.50. 



the micropenpheral corporition 



• 306 



lo order your MICROCONNECTION. or for more information, write or phone: 2643 151 st PI. N.E.. Redmond. WA 98052 (206) 881-7544 



Combine accurate flight characteristics with the best in animation graphics 
and you'll have SubLOGIC's 

T80-FS1 Flight Simulator 

fbrtheTRS-80 



SubLOGIC s T80-F51 is the smooth, realistic 
simulator that gives you a real-time, 3-D, 
out-of-the-cockpit view of flight. 

Thanks to fast animation and accurate repre- 
sentation of flight, the non-pilot can now learn 
basic flight control, including take-offs and 
landings! And experienced pilots will recog- 
nize how thoroughly they can explore the 
aircraft's characteristics. 

Once you've acquired flight proficiency, 
you can engage in the exciting British Ace 
3-D Aerial Battle Game included in the 
package. Destroy the enemy's fuel depot 
while evading enemy fighters. 

Computer and aviation experts call the 
T80-FS1 a marvel of modern technology 
You'll simply call it fantastic! 



Special Features: 

• 3 frame-per-second flicker free 
animation 

• Maximum transfer keyboard input 

• Constant feedback cassette loader 

Hardware Requirements: 

• Radio Shack TRS-80, Level 1 or 2 

• 16K memory 

• Nothing else! 



nlv fcW 




Only 



See your dealer or order direct For 
direct order, incl ude S 1 . 2 5 and specify 
UPS or first class mail Illinois residents 
add 5% sales tax. Visa and Mastercard 
accepted. 








LOGIC 

Communications Corp. 
Box V, Savoy, IL 61874 
(217)359-8482 
Telex: 206995 ^150 



• S## List of Adv.ms.rs on page 354 
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A conditional branch only oc- 
curs when certain conditions 
are true (e.g., lines 110 and 120 
cause X to increment until X 
equals the value following the 
"to n line 110. When X equals 
this value then the next line is 
executed). 

You're probably wondering 
what caused that saucer to fly 
up off of the screen. Before ex- 
plaining this to my students I 
felt they needed to know a little 
bit about hardware and soft- 
ware. 

Hardware is, basically, the 
physical machine itself. Soft- 
ware are the programs that are 
put inside the machine. Soft- 
ware can be divided into three 
groups: operating system soft- 
ware, application programs and 
translators. Operating system 
software allows the various 
pieces of hardware to interact 
and allows a programmer to talk 
to the computer. An application 
program is one that performs a 
specific function or group of 
functions. These functions are 
not usually system related and 
they are usually written to per- 
form a job. A translator is the 
software which takes an appli- 
cation program and converts it 
so the machine can understand 
it. A translator takes what the 
user types in (i.e. the source 
code) and converts it to machine 
code (i.e., the object code). 

On the TRS-80 when the 
PRINT® instruction is executed 
the cursor is automatically 
placed on the line following the 
one on which the characters 
were printed by the translator. 
(The cursor indicates where you 
are on the screen.) 

When you type something on 
the last line on the screen, the 
operating system automatically 
causes all of the material on 
that screen to be moved up one 
line when the Enter key is hit 
or if the data typed in extends 
more than the length of one line. 

Line 100 causes a combina- 
tion of both of these to occur. 
The translator prints !! on the 
last line and then attempts to 
place the cursor on the next line. 
The system thinks the data has 
extended to the next line so it 
causes the other material on the 
screen to be moved up one line. 
This makes the saucer seem to 



Program Listing 1 



1 REM 

2 REM 

3 REM 



HIDDEN PICTURES BY CAROL VOJTIK 



5 REM * 

7 REM ************************************* 

10 CLS 

20 PRINT @ 87, "HIDDEN PICTURES" 

30 PRINT " " 



********** i 



40 



"I WILL DRAW A MAZE" 
"SEE IF YOU CAN FIND:" 



PRINT 
50 PRINT 
60 PRINT " " 
70 PRINT "AN ARROW" 
80 PRINT "A BEARS HEAD" 
90 PRINT "A BUG" 
100 PRINT "A DUCK" 
110 PRINT "A SHOVEL" 
120 PRINT "A TEE-PEE" 
130 FOR X=l TO 3000: NEXT 
140 PRINT "HIT ANY KEY TO CONTINUE" 
150 A$=INKEY$: IF A$ = " THEN 150 
160 CLS 
180 FOR X=15360 TO 15447 



200 


POKE X, 166 




210 


NEXT X 




220 


POKE 15448, 


17 5 


230 


POKE 15449, 


182 


240 


POKE 15450, 


190 


250 


POKE 15451, 


167 


260 


FOR X=15452 


TO 15461 


270 


POKE X, 166 




290 


NEXT X 




310 


POKE 15462, 


190 


320 


POKE 15463, 


167 


330 


POKE 15464, 


166 


340 


POKE 15465, 


182 


350 


FOR X=15466 


TO 15495 


360 


POKE X, 166 




37 


NEXT X 




380 


POKE 15496, 


167 


390 


POKE 15497, 


191 


400 


POKE 15498, 


167 


410 


FOR X=15499 


TO 15508 


420 


POKE X, 166 




430 


NEXT X 




440 


POKE 15509, 


17 4 


450 


POKE 15510, 


17 4 


460 


POKE 15511, 


17 4 


470 


POKE 15512, 


191 


480 


POKE 15513, 


191 


485 


POKE 15514 


17 4 


486 


POKE 15515, 


17 4 


490 


FOR X=15516 


TO 15524 


500 


POKE X, 166 




520 


NEXT X 




540 


POKE 15525, 


190 


550 


POKE 15526, 


166 


560 


POKE 15527, 


166 


570 


POKE 15528, 


166 


580 


POKE 15529, 


166 


590 


POKE 15530, 


17 4 


600 


POKE 15531, 


166 


610 


FOR X-15532 


TO 15537 



fly away. 

On a microcomputer there are 
two types of memory where 
these programs are found, RAM 
and ROM. Translators are oper- 
ally found in ROM (i.e., Read Only 
Memory). This means that a pro- 
Memory). This means that a pro- 
grammer can read the material 
in this type of memory, but he or 
she can't change it. Applica- 
tions programs are usually 
stored in RAM (i.e., Random Ac- 
cess Memory). This type of 
memory can be either read by or 
written to by an applications 
program. 

At the conclusion of the 
above exercises I asked my stu- 
dents to make some sort of pic- 
ture on a Video Display Work- 



sheet and then use the PRINT® 
instruction to program their dia- 
grams. Some of the diagrams 
and their associated programs 
are included at the end. 

The last program in this arti- 
cle is called Hidden Pictures, 
written by Carol Vojtik. How- 
ever, as I'm sure you have sur- 
mised, this program was written 
at the end of the class. 

Lines 150 and 2810 are of spe- 
cial interest and can be used in 
any program. What they do is 
they each cause the program to 
wait until a key is hit. 

As you can see from Carol's 
two programs, the students 
have come a long way in their 
ability to use the Basic 
language. ■ 



630 POKE X, 182 

640 NEXT X 

650 FOR X=15538 TO 15560 

660 POKE X, 166 

670 NEXT X 

680 POKE 15561, 191 

690 FOR X=15562 TO 15577 

700 POKE X, 166 

710 NEXT X 

720 POKE 15578, 17 5 

730 POKE 15579, 182 

740 FOR X=15580 TO 15588 

750 POKE X, 166 

760 NEXT X 

780 POKE 15589, 183 

790 FOR X=15590 TO 15595 

800 POKE X, 166 

810 NEXT X 

820 POKE 15596, 174 

830 POKE 15597, 182 

840 FOR X»15598 TO 15601 

850 POKE X, 166 

860 NEXT X 

870 POKE 15602, 175 

880 POKE 15603, 182 

890 FOR X=15604 TO 15624 

900 POKE X, 166 

910 NEXT X 

920 POKE 15625, 191 

930 FOR X=15626 TO 15667 

940 POKE X, 166 

950 NEXT X 

960 POKE 15668, 167 

970 POKE 15669, 17 4 

980 POKE 15670, 174 

990 POKE 15671, 17 4 

1000 POKE 15672, 182 

1010 FOR X-15673 TO 15686 

1020 POKE X, 166 

1030 NEXT X 

1040 POKE 15687, 191 

1050 POKE 15688, 191 

1060 POKE 15689, 191 

1070 POKE 15690, 191 

1080 POKE 15691, 191 

1090 FOR X-15692 TO 15704 

1100 POKE X, 166 

1110 NEXT X 

1120 POKE 15705, 174 

1130 POKE 15706, 167 

1140 POKE 15707, 174 

1150 POKE 15708, 174 

1160 POKE 15709, 182 

1170 POKE 15710, 182 

1180 FOR X=15711 TO 15718 

1190 POKE X, 166 

1200 NEXT X 

1210 POKE 15719, 167 

1220 FOR X-15720 TO 15735 

1230 POKE X, 166 

1240 NEXT X 

1250 POKE 15736, 182 

1260 POKE 15737, 167 

1270 FOR X-15738 TO 15769 

1280 POKE X, 166 

1290 NEXT X 

1300 POKE 15770, 187 

1310 POKE 15771, 166 

1320 POKE 15772, 166 

1330 POKE 15773, 166 

1340 POKE 15774, 166 

1350 POKE 15775, 183 

1360 POKE 15776, 183 

1370 POKE 15777, 174 

1380 POKE 15778, 174 

1390 POKE 1577 9, 166 

1400 POKE 15780, 166 

1410 POKE 15781, 166 

1420 POKE 15782, 166 

1430 POKE 15783, 166 

1440 POKE 15784, 175 

1450 POKE 15785, 182 

1460 FOR X=15786 TO 15796 

1470 POKE X, 166 

1480 NEXT X 

1490 POKE 15797, 167 

1500 POKE 15798, 167 

1510 POKE 15799, 167 

1520 FOR X=15800 TO 15832 

1530 POKE X, 166 

1540 NEXT X 

1550 POKE 15833, 174 

1560 POKE 15834, 182 

1570 POKE 15835, 174 

1580 POKE 15836, 174 

1590 POKE 15837, 167 

1600 POKE 15838, 167 

1610 FOR X=15839 TO 15849 

1620 POKE X, 166 

1630 NEXT X 

Program continues 
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1648 


POKE 


15850, 


17 5 


1650 


FOR X 


=15851 


TO 15859 


1668 


POKE X, 17 4 




1670 


NEXT X 




1680 


POKE 


15860 , 


167 


1690 


FOR X 


=15861 


TO 15876 


1710 


POKE 


X, 166 




1720 


NEXT 


X 




1730 


FOR X 


=15877 


TO 15880 


17 40 


POKE 


X, 174 




17 50 


NEXT 


X 




1760 


POKE 


15881, 


190 


1770 


POKE 


15882, 


17 4 


17 80 


POKE 


15883, 


167 


17 90 


POKE 


15884, 


167 


1800 


POKE 


15885, 


167 


1810 


POKE 


15886, 


17 5 


1820 


POKE 


15887, 


17 4 


1830 


POKE 


15888, 


182 


1840 


POKE 


15889, 


182 


1850 


FOR X 


=15890 


TO 15941 


1860 


POKE 


X, 166 




1870 


NEXT 


X 




1880 


POKE 


15942, 


167 


1890 


POKE 


15943, 


183 


1900 


POKE 


15944, 


17 5 


1910 


POKE 


15945, 


166 


1920 


POKE 


15946, 


17 4 


1930 


FOR X 


=15947 


TO 15953 


1940 


POKE 


X, 166 




1950 


NEXT 


X 




1960 


POKE 


15954, 


17 5 


1970 


FOR X 


=15955 


TO 15980 


1980 


POKE 


X, 166 




1990 


NEXT 


X 




2000 


POKE 


15981, 


182 


2010 


FOR X 


=15982 


TO 15990 


2020 


POKE 


X, 166 




2030 


NEXT 


X 




2040 


POKE 


15991, 


182 


2050 


FOR X 


=15992 


TO 16005 


2060 


POKE 


X, 166 




207 


NEXT 


X 




2080 


POKE 


16006, 


17 4 


2090 


POKE 


16007, 


17 4 


2100 


POKE 


16008, 


167 


2110 


POKE 


16009, 


17 4 


2120 


POKE 


16010, 


182 


2130 


FOR X=16011 


TO 16016 


2140 


POKE 


X, 166 




2150 


NEXT 


X 




2160 


POKE 


16017, 


182 


2170 


FOR X=16 018 


TO 16042 


2180 


POKE 


X, 166 




2190 


NEXT 


X 




2195 


POKE 


16043, 


17 4 


2200 


POKE 


16044, 


191 


2210 


FOR X=16045 


TO 16053 


2220 


POKE 


X, 174 




2230 


NEXT 


X 




2240 


POKE 


16054, 


183 


2250 


FOR 


<=16055 


TO 1607 3 


2260 


POKE 


X, 166 




2270 


NEXT 


X 




2280 


POKE 


16074, 


190 


2290 


POKE 


1607 5, 


167 


2300 


POKE 


16076, 


166 


2310 


POKE 


16077, 


166 


2320 


POKE 


16078, 


182 


2330 


POKE 


16079, 


17 4 


2340 


POKE 


16080, 


167 


2350 


FOR 


X=16081 


TO 16108 


2360 


POKE 


X, 166 




2370 


NEXT 


X 




2380 


POKE 


16109, 


167 


2390 


FOR 


x=i6iie 


TO 16118 


2400 


POKE 


X, 166 




2410 


NEXT 


X 




2420 


POKE 


16119, 


167 


2430 


FOR 


X=16120 


TO 16142 


2440 


POKE 


X, 166 




2450 


NEXT 


X 




2460 


POKE 


16143, 


167 


2470 


POKE 


16144 


Mil 


2480 POKE 16145 


167 


2490 POKE 16146 


167 


2500 POKE 16147 


17 5 


2510 POKE 16148 


, 17 4 


2520 POKE 16149 


, 17 4 


2530 POKE 16150 


167 


2540 POKE 16151 


17 5 


2550 POKE 16152 


, 190 


2560 POKE 16153 


167 


257 FOR 


X=16154 TO 16200 


2580 POKE X, 166 


2590 NEXT X 




2600 POKE 16201 


, 182 


2610 FOR 


X=16202 TO 16265 


2620 POKE X, 166 


2630 NEXT X 




2640 POKE 16266 


, 167 



2650 POKE 16267, 17 4 
2660 POKE 16268, 174 
2670 POKE 16269, 17 4 
2680 POKE 16270, 182 

26 90 POKE 16271, 182 
2700 POKE 16272, 182 
2710 POKE 16273, 182 

27 20 POKE 1627 4, 17 4 
27 30 POKE 1627 5, 17 4 
27 40 POKE 16276, 17 4 
2750 POKE 16277, 167 
2760 POKE 16278, 167 
2770 FOR X=16279 TO 16285 
27 80 POKE X, 166 

27 90 NEXT X 

2800 PRINT §927, "HIT ANY KEY TO SEE THE RESULTS* 

2810 B$=INKEY$: IF B$=" THEN 2810 

2820 FOR X=15360 TO 15445 

2823 POKE X, 32 

2826 NEXT X 

2830 POKE 15446, 130 

2840 POKE 15447, 164 

2850 POKE 15448, 169 

2860 POKE 15449, 150 

2870 POKE 15450, 152 

2880 POKE 15451, 129 

2890 FOR X=15452 TO 15461 

2900 POKE X, 32 

2910 NEXT X 

2920 POKE 15462, 152 

2930 POKE 15463, 131 

2940 POKE 15464, 164 

2950 POKE 15465, 144 

2960 FOR X=15466 TO 15495 

2970 POKE X, 32 

2980 NEXT X 

2990 POKE 15496, 131 

3000 POKE 15497, 191 

3010 POKE 15498, 131 

3020 FOR X=15499 TO 15508 

3030 POKE X, 32 

3040 NEXT X 

3050 POKE 15509, 136 

3060 POKE 15510, 140 

3070 POKE 15511, 140 

3080 POKE 15512, 191 

3090 POKE 15513, 191 

3100 POKE 15514, 140 

3110 POKE 15515, 140 

3120 POKE 15516, 132 

3130 FOR X=15517 TO 15524 

3140 POKE X, 32 

3150 NEXT X 

3160 POKE 15525, 154 

3170 POKE 15526, 32 

3172 POKE 15527, 32 

3175 POKE 15528, 32 

3180 POKE 15529, 130 

3190 POKE 15530, 140 

3200 POKE 15531, 164 

3210 FOR X=15532 TO 15537 

3220 POKE X, 176 

3230 NEXT X 

3240 FOR X=15538 TO 15560 

3250 POKE X, 32 

3260 NEXT X 

3270 POKE 15561, 191 

3280 FOR X=15562 TO 15574 

3290 POKE X, 32 

3300 NEXT X 

3305 POKE 15574, 160 

3310 POKE 15575, 134 

3320 POKE 15576, 32 

3330 POKE 15577, 32 

3340 POKE 15578, 137 

3350 POKE 15579, 144 

3360 FOR X=15580 TO 15588 

3370 POKE X, 32 

3380 NEXT X 

3390 POKE 15589, 149 

3400 FOR X=15590 TO 15595 

3410 POKE X, 32 

3420 NEXT X 

3430 POKE 15596, 168 

3440 POKE 15597, 148 

3450 FOR X=15598 TO 15601 

3460 POKE X, 32 

3470 NEXT X 

3480 POKE 15602, 137 

3490 POKE 15603, 176 

3500 FOR X=15604 TO 15624 

3510 POKE X, 32 

3520 NEXT X 

3530 POKE 15625, 191 

3540 FOR X=15626 TO 15652 

3550 POKE X, 32 

3560 NEXT X 

J570 POKE 15653, 130 

3580 POKE 15654, 164 



Program continues 



NEWDOS/80 users 

"CHAIN USER/JCL" 

Operate your system like the professionals 
do with DO files. Issue instructions to tr\e 
operator and/or supply commands to tiie 
computer. NEWDOS/80 provides a little 
used 'chain' facility which, when used, 
provides procedure type execution the 
same as big systems. This utility is an 
interactive maintenance program which 
allows you to create and maintain single or 
multi-sectioned chain files for use with 
NEWDOS/80. Specify simple command 
words as PAUSE, DISPLAY, COMMENT and 
SECTION or any other DOS or BASIC 
command. Chain files may be built, listed, 
printed and executed. 



Program is distributed on diskette for 32K 
or 48K Model I. User Documentation and 
example included. Only $15.95 postpaid. 
CT residents add sales tax. Payment by 
check or money order. ORDER NOW! 



RMI Software 

140 Cheney Road 

Marlborough, CT 06447 

Tel. (203) 295-9482 



^479 



v««V « UKKXXKiOtTC 



FINALLY! 

A Tape-Based 

EDITOR-ASSEMBLER 

For The Model III 

OONGNNATOR »s used in conjunction 
with Radio Shack's Editor/Assembler 
1.2 il provides compatibility with the 
Model III. and also provides numerous 
enhancements. Most important is the 
ability to dump assembled programs into 
memory for testing, and being able to re- 
turn to CONCINNATOR without manv 
saves and loads. Will verify source 
dumps; supports 1500 baud; displays 
number of bytes left in buffer, and per- 
mits display and modification of memory 
location contents. And more! You've 
been waiting, and now it's here: Conci- 
nnator, a sophisticated editor/ assembler 
for the Model III. Will also enhance 1.2 
for the Model I TRS-80! $19.95 on tape. 

Ask About Other 
MODEL III SOFTWARE 



To Order Conrinnalur: 
Send $l>l M.j oiih K 10 • o»rr 
■ariopng ft po-tap- I" PAS. 
address" 1h-Ioh Speri(\ I or 
III SI. -SO fill br added for 
COD. VJ added lo charge or- 
ders. Inquire aboul olher 
Model III sollwarr.orr.nlK 

available! 




TAS, 1806 Ada, Lansing, MI 48910 
Ph. (517) 487-3358 or 185-0344 



. anappa « vrx «.>i 




e-SM List 0/ Adrart/sars on ptg» 354 
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!!NOW AVAILABLE!! 

I NDEX 

Sequential 

Access 

Method 

• Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Without Sorting 

* Delete Records Without Recopying File 

• Add Records to Disk Files in Any Sequence 

• Variable Key Length From 1 to 50 Characters 

* Machine Language or Basic Subroutines. 

BUSINESS APPLICATION ADVANTAGES 

- Improved Disk Utilization 

• Easier Program Development 

• Improved Operating Characteristics 

- Reduce or Eliminate Sorting 

- improved Performance 

ISAM SUBROUTINES Documentation 

ISAM UTILITIES On Diskette $90.00 

- PLUS - Free Mailing List Sample Application 

Add 6% Sales Tax for California Orders 

TRSflO MODEL I, II, * III SOFTWARE FROM: 

Johnson Associates -or- Telephone Order Line 
P.O. Box 1 402M ^85 For Bank Card Sales 

Redding, CA 96001 (91 6) 221 -0740 

WRITE FOR FREE CATALOG 



COMPUTER 

EQUIPMENT 

& SOFTWARE 

BARGAINS 

EVERY MONTH 



; compuTER SHOPPen 



■--... I— ^.» l^g| 



c . Get Your 
rirst Issue FREE': 



[TRS-M's «t Super Discount Prices.) I 



BUY, SELL OR TRADE ALL TYPES OF COMPUTER 

EQUIPMENT AND SOFTWARE (pre-owned and 

new) among 20,000 readers nationwide. 

FEATURES: 

e Low classified ad rates - 10$ a word 

• Hundreds of ads from individuals 

e Categorized ads so you can find them instantly 

e Large (11 by 14") easy to read pages 

Subscribe now for $10 and receive 13 issues/year 
(one FREE plus 12 regular issues). After receiving 
your first issue if you're not completely satisfied 
you may have a 100% refund and you still keep the 
first issue free. Bank cards accepted. 
BONUS: // you have something to advertise (pre- 
owned or software) send in a classified ad with your 
subscription and we'll run it FREE. 

^J} The Nationwide Marketplace for Computer Equipment 

m CO/77PUTBR SHOPPSR „ 212 

(T P.O. BOX F27 • TITUSVILLE, FL 32780 • 305-269-3211 

MasterCard & VISA subscriptions only, call TOLL FREE 1400-528-6050 Ex. 184 
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3590 FOR X=15655 TO 15667 
3600 POKE X, 32 
3610 NEXT X 
3620 POKE 15668, 131 
3630 POKE 15669, 140 
3640 POKE 15670, 140 
3650 POKE 15671, 140 
3660 POKE 15672, 176 
3670 FOR X=15673 TO 15686 
3680 POKE X, 32 

36 90 NEXT X 

3700 FOR X=15687 TO 15691 

3710 POKE X, 191 

3720 NEXT X 

3730 FOR X=15692 TO 15704 

3740 POKE X, 32 

37 50 NEXT X 

3760 POKE 15705, 170 

3770 POKE 15706, 131 

3780 POKE 15707, 140 

3790 POKE 15708, 140 

3800 POKE 15709, 176 

3810 POKE 15710, 176 

3820 FOR X=15711 TO 15718 

3830 POKE X, 32 

3840 NEXT X 

3850 POKE 15719, 165 

3860 FOR X«=15720 TO 15735 

3870 POKE X, 32 

3880 NEXT X 

3890 POKE 15736, 176 

3900 POKE 15737, 133 

3910 FOR X-15738 TO 15768 

3920 POKE X, 32 

3930 NEXT X 

3940 POKE 15769, 162 

3950 POKE 15770, 153 

3960 POKE 15771, 132 

3970 POKE 15772, 32 

3973 POKE 15773, 32 

3976 POKE 15774, 32 

3980 POKE 15775, 17 

3990 POKE 15776, 17 9 

4000 POKE 15777, 140 

4010 POKE 15778, 140 

4020 FOR X=15779 TO 15783 

4030 POKE X, 32 

4040 NEXT X 

4050 POKE 15784, 137 

4060 POKE 15785, 149 

4070 FOR X-15786 TO 15795 

4080 POKE X, 32 

4090 NEXT X 

4100 POKE 15796, 160 

4110 POKE 15797, 135 

4120 POKE 15798, 131 

4130 POKE 15799, 131 

4140 FOR X=15800 TO 15832 

4150 POKE X, 32 

4160 NEXT X 

4170 POKE 15833, 170 

4180 POKE 15834, 176 

4190 POKE 15835, 140 

4200 POKE 15836, 140 

4210 POKE 15837, 131 

4220 POKE 15838, 131 

4230 FOR X-15839 TO 15848 

4240 POKE X, 32 

4250 NEXT X 

4260 POKE 15849, 130 

4270 POKE 15850, 141 

4280 FOR X=15851 TO 15859 

4290 POKE X, 140 

4300 NEXT X 

4310 POKE 15860, 129 

4320 FOR X-15861 TO 15876 

4330 POKE X, 32 

4340 NEXT X 

4350 POKE 15877, 172 

4360 POKE 15878, 140 

4363 POKE 15879, 140 

4366 POKE 15880, 140 

4370 POKE 15881, 152 

4380 POKE 15882, 140 

4390 POKE 15883, 131 

4400 POKE 15884, 131 

4410 POKE 15885, 131 

4420 POKE 15886, 141 

4430 POKE 15887, 140 

4440 POKE 15888, 180 

4450 POKE 15889, 176 

4460 FOR X«15890 TO 15941 

4470 POKE X, 32 

4480 NEXT X 

4490 POKE 15942, 131 

4500 POKE 15943, 17 9 

4510 POKE 15944, 143 

4520 POKE 15945, 32 

4530 POKE 15946, 140 

4540 FOR X=15947 TO 15953 

4550 POKE X, 32 



4560 NEXT X 

4570 POKE 15954, 169 

4580 FOR X-15955 TO 15979 

4590 POKE X, 32 

4600 NEXT X 

4610 POKE 15980, 160 

4620 POKE 15981, 144 

4630 FOR X=15982 TO 15990 

4640 POKE X, 32 

4650 NEXT X 

4660 POKE 15991, 176 

4670 FOR X-15992 TO 16005 

4680 POKE X, 32 

46 90 NEXT X 

4700 POKE 16006, 138 

4710 POKE 16007, 140 

4720 POKE 16008, 131 

4730 POKE 16009, 140 

4740 POKE 16010, 176 

4750 FOR X-16011 TO 16016 

4760 POKE X, 32 

4770 NEXT X 

4780 POKE 16017, 176 

4790 POKE 16018, 134 

4800 FOR X-16019 TO 16042 

4810 POKE X, 32 

4820 NEXT X 

4830 POKE 16043, 17 4 

4840 POKE 16044, 157 

4850 FOR X-16045 TO 16053 

4860 POKE X, 140 

4870 NEXT X 

4880 POKE 16054, 179 

4890 FOR X=16055 TO 16073 

4900 POKE X, 32 

4910 NEXT X 

4920 POKE 16074, 152 

4930 POKE 16075, 129 

4940 POKE 16076, 32 

4950 POKE 16077, 32 

4960 POKE 16078, 176 

4970 POKE 16079, 140 

4980 POKE 16080, 131 

4990 FOR X-16081 TO 16107 

5000 POKE X, 32 

5010 NEXT X 

5020 POKE 16108, 130 

5030 POKE 16109, 129 

5040 FOR X-16110 TO 16118 

5050 POKE X, 32 

506 NEXT X 

5070 POKE 16119, 131 

5080 FOR X=16120 TO 16135 

5090 POKE X, 32 

5100 NEXT X 

5110 POKE 16136, 160 

5120 POKE 16137, 134 

5130 FOR X«=16138 TO 16142 

5140 POKE X, 32 

5150 NEXT X 

5160 FOR X=16143 TO 16146 

5170 POKE X, 131 

5180 NEXT X 

5190 POKE 16147, 140 

5200 POKE 16148, 140 

5210 POKE 16149, 140 

5220 POKE 16150, 131 

5230 POKE 16151, 137 

5240 POKE 16152, 156 

5250 POKE 16153, 129 

5260 FOR X-16154 TO 16199 

5270 POKE X, 32 

5280 NEXT X 

5290 POKE 16200, 137 

5300 POKE 16201, 176 

5310 FOR X=16202 TO 16213 

5320 POKE X, 32 

5330 NEXT X 

5340 POKE 16214, 160 

5350 POKE 16215, 134 

5360 FOR X-16216 TO 16264 

5370 POKE X, 32 

5380 NEXT X 

5390 POKE 16265, 130 

5400 POKE 16266, 131 

5410 POKE 16267, 140 

5420 POKE 16268, 140 

5430 POKE 16269, 140 

5440 FOR X-16270 TO 16273 

5450 POKE X, 176 

5460 NEXT X 

5470 POKE 16274, 140 

5480 POKE 16275, 140 

5490 POKE 16276, 140 

5500 POKE 16277, 131 

5510 POKE 16278, 129 

5520 FOR X=16279 TO 16380 

5530 POKE X, 32 

5540 NEXT X 

5550 PRINT §927, "THATS IT1 

5560 END 



Spelling Errors? Does your TRS-80* word processor need help? 




T.M. 



CAN SPELL rendezvous AND mnemonic AND OVER 38,000 OTHER WORDS 

Now let your TRS-80 and Proofreader by Soft-Tools check your Scripsit*. Electric Pencil, or other documents 
for spelling and typographical errors. It has all the features needed to meet your proofreading requirements. 



Checks every single word of even your biggest 

document in under 5 minutes. 
The 38.000 word dictionary is one of the 

largest available. 
Dictionary can be easily extended to add more 

words such as technical terms or names. 



• All unknown words are listed on the screen and 

can be saved on a file for printing. 

• Works with almost any TRS-80 wordprocessor 

including Scripsit and Electric Pencil. 

• Comes with complete and easy to understand 

User's Manual. 



Proof-Edit™, optional interactive corrections feature for Model I /III 

QKAMMATlk" 

BEYOND SPELLING CHECKING 



A spelling checker may not be enough! This paragraph 
contains a number of common errors (indicated by 
underlining) that will be discovered by Grammatik that 
would seldom ever be caught by a spelling checker. 
FOr example, Grammatik checks for improper word 
usage as identified by a number of writing style man- 
uals (such as '^seldom ever)^ Grammatik will check for 
the presence of certain words such as jargon or sexist 
terms, _it also checks for consistant punctuation, cap- 



itali/Ation. balanced quotation marks and parentheses, 
and and repeated words. In addition, it will produce a 
list of all unique words found in your document with the 
number of times each was used. Grammatik comes 
with a dictionary of commonly misused phrases and a 
dictionary of sexist terms. It also includes a complete 
set of utilities to build,, sort, and merge phrase and 
jargon dictionaries of your own. Works with Scripsit. 
Electric Pencil, and other standard TRSDOS text files. 



MODEL I Requires 32K RAM. 1 disk drive. TRSDOS or NEWDOS. 
MODEL II Requires 64 K RAM. 1 disk drive. TRSDOS 2.0 

(can check 1 .2 files using XFKRSYS) 

MODEL III Requires 32K RAM. 1 disk drive. TRSDOS 

Manual only, specify model (refundable) 



Proofreader 
$54.00 

$109.00 

$64.00 

$3.00 



Grammatik 
$49.00 

$99.00 

$59.00 

$5.00 



Proof-Edit 
$30.00 

N/A 

$30.00 
$5.00 



Soft-Tools are professional quality software tools 
developed for the TRS-80 by a Ph.D. in Computer 
Science. Other tools include: 

— SOFT-SCREEN™. a powerful, state of the art 
full screen text editor. Over a year in development. 
Soft-Screen is compatible with all TRS-80 programming 
languages, including BASIC. FORTRAN, MACRO, 
Ratfor. and COBOL. Easy to use. comes with tutorial 
and full documentation. 

— RATFOR. a structured language preprocessor 
for Fortran developed at Bell Labs. Soft-Tools Ratfor 
provides a number of extensions, including "case" and 



"string". Includes complete manual with all the 
information needed to learn and write Ratfor programs. , 
Requires FORTRAN. 

— PP-RATFOR. a pretty printer for use with 
Soft -Tools Ratfor. Automatically formats and indents 
Ratfor source programs. 

Ratfor 

MODEL I $49.00 

MODEL II $99.00 

MODEL III $59.00 

Manual only(refundable) 

MODEL I. Ill require 4NK. 2 drives. TRSDOS 
MODEL II requires 64K. I drive. TRSDOS 2.0 
Please call or write for more details. 



PP-Ratfor 


Both 


Soft Screen 


$30.00 


$74.00 


$69.00 


$49.00 


$139.00 


$99.00 


$34 00 


$84.00 


$75.00 




$12.00 


$15.00 




Orders sent postpaid by first class mail. 
Terms: Cash, check, money order, VISA, or 
Master Card. NM residents add 4% tax. 
When ordering, specify model, memory size, 
number of dri-es, and operating system. 

* Trademark of Tandy Corporation 



SOFT TOOLS ^449 
P. O. Box 339 
Dept. M 

Tijeras, NM 87059 
Dealer inquiries invited (505) 281-1634 

Proofreader, Soft-Tools, and Soft-Screen are trademarks of Soft-Tools. 




■See List of Advertisers on page 354 
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GRAPHICS 



Animate your TRS-80 by packing those strings. 



Picture This 



Dan Keen 

Dave Dischert 

RD 1 Box 432 

State Highway 

Cape May Court House, NJ 

08210 



We have this conception of 
a man who bought the 
first TRS-80 that rolled off the 
production line, took it home, 
spent several minutes with it, 
stumbled onto something that 
isn't in the owner's manual, and 
proceded to write a game called 
"Android Nim" that soon 



became a well known standard 
in the world of microcomputing. 

We're sure things didn't come 
that easy to Leo, but he sure 
makes graphics look easy. He 
proved the TRS-80 is capable of 
a lot more than Radio Shack 
gives it credit for. Smooth, rapid- 
ly executing graphics are possi- 
ble using Basic. 

There have been a few articles 
scratching the surface of this 



II AS»'A* 

20 K-VAKITR(AS) 

30 AD-PEEK <K*2)*2b6*PF,EK(K + l) 

40 P0KEAD.191 

.i PRINTA$ 



Program Listing 1. 



technique, but only enough to 
whet our appetites. We will fol- 
low an animated scene from 
start to finish using string pack- 
ing procedures. All you need is a 
Level II machine, with or without 
Disk Basic, with any amount of 
memory. 

What It Packing? 

This procedure stores ASCII 
characters in the space where a 
string normally goes. The 256 
ASCII characters are actually 
machine code which represents 
letters, numbers, graphics and 
instructions. The Basic interpre- 
ter section of the computer is 
not used— one reason why 
printing with string packing is 



ie as 

208 Fl>*'»j000O00000OO000OO0O0O0O0O0CC0CO0OO0OOOOOO00O0Oa' 

282 K*VHro(Flt).flD*EBC(K*2)*25£«FEEK(KH> 

284 »Tfc76, 176, 176. 176. 176. 128, 26. 24, 24, 24, 24, 24, 24, 24, 24, 184, 19L 179, 19t 191 191 19L 189. 184. 149. 128. 26. 24, 24, 24, 24, 24, 2«. 24, 24. 24 

, 24. 24, 138. 141 183.191 191 191, 191 135, 138, 133, 128 

286 FGRP*T048 JOB POtfflW.X.HXTP 

^8 F2***»0W0OO0O0000OO00O0O0OO0W«CO0COO00OU0«OWCO«' 

212 K-VRRPTK(F2«> HWBX<K*2>*25WEK(k>l) 

214 MTA176, 176, 176. 176. 176, 128. 26. 24, 24, 24. 24. 24, 24. 24, 24, 184. 191. 17?, 191, 191, 191. 191, 189. 184, 134. 128. 26, 24, 24, 24, 24, 24. 24. 24. 24, 24 

, 24. 24. 13a 141 185. 191, 191 191 191, 135. 138. 137, 128 

216 F0RP*TO48 ROCK PWHW.X KXTP 

228F3«>*X»CO00O0MOO00O0O0O0000«>O00OO0M00O0000O00O00CO(' 

222 K>VRROTR<F3S) HWEEK«»2 >*&#& •♦: 

224 »T«76. 176. 176. 176. 176. 128, 26, 24. 24, 24, 24, 24. 24. 24. 24, 184, 191 179, 191 191 191 191 189, 176, 148, 128, 26, 24, 24, 24, 24, 24. 24, 24, 24, 24 

.24, 24, 13a 141 185. 191 191 191 191 135, 12* 131. 128 

226 FOT=*Tt)48 ROW POttflD* . X JEXTP 

238 F4f 3 *XXXXXXXXMO0000O0OOO000OOO000000O00000O0O0O0000O(X* 

232 K*VfW>Tfc<F4l: flWEEr<KO«256*fmo.K«l; 

234 MTW76, 176. 176. 176, 176, 128. 26, 24. 24, 24, 24. 24, 24. 24. 24. 184. 191. St 191 191 191. 191, 189. 184, 149. 128, 26. 24, 24. 24, 24. 24, 24. 24, 24, 24 

,24, 24. 13a 141 185, 191 191 191 191 135. 13a 131 128 

236 FWW048 (BW POKEOMP.XIEXTP 

nmuiinn it 

1818 PPIUTHaFll, GDSB1188 

1828 PRIKTHG. F2*. 08181188 

1838 W'KTHani, GKIBU88 

1835 IFUK4S2T)CN2M 

1848 S*SW»1 IF9K2TKM818BJEPRINTI10.F4S. G09JBU88 9*4 GOT01828 

1188 FO81T015 IfXTQ LOtO-1 RETURN 



Program Listing 2. 



so swift. 

Packing machine code makes 
graphics faster, conserves 
memory space, eliminates the 
need for USR functions to ac- 
cess the code (which gets tricky 
in Disk Basic since you must 
know an entry address to use it), 
eliminates the need to answer 
the memory size question (pro- 
grams are not limited to any size 
Ki. and makes it easy to CLOAD 
from tape since the program is 
in Basic. (Machine-code tapes 
are notorious for their difficult 
loading.) 

Program Listing 1 is the bare 
minimum needed to set up a 
simple packed string. The num- 
ber POKEd in line 40 can be any- 
thing from zero to 255. The 
graphic code for lighting six 
blocks is 191. AS can equal any- 
thing; only the length is impor- 
tant. If you change line 40 to 
POKE AD.191 :POKE AD + .191, 
AS must have two characters, 
A$ = "AB". 

Run Listing 1. Printing AS did 
not display an A, but instead 
acted as if the computer was in- 
structed to print CHRSH91I 
Now list the program and look at 
line 10. It changed! It has been 
packed and really is no longer a 
string. It now reads: 10 
A$ = "USING". The machine 
code number 191 is there 
though only the Basic word 
which represents that number is 
visible. 

Since AS doesn't really equal 
the word using, just typing in 
"using" won't accomplish the 
same thing. Packing takes up no 
string space at all— the code is 



214 • 80 Microcomputing, September 1981 



POKEd right into the program 
line. So, although there are five 
letters in A$. it does not neces- 
sarily take up five bytes. You can 
add: 5 CLEAR 8, and the pro- 
gram will still run. You can de- 
lete lines 20, 30, and 40, save the 
leftover two-line program on 
tape or disk, and always get a 
perfect run when reloaded. 
Once a string is packed, you no 
longer need the POKE state- 
ments. 

Let's create a cartoon. Keep 
in mind these hints: Always be 
sure to put in the characters that 
the string is set equal to quota- 
tion marks. It won't matter in 
Listing 1, but if there were more 
POKEs, leaving off the end 
quote would result in destruc- 
tion of the next few lines of the 
program. Also, incorporate 
blanks or spaces (ASCII codes 
32 or 128— both do the same) in- 
to your animated subject to 
erase behind it when moving it 
across the screen. CLS is too 
slow and choppy to get smooth 
movement. 

We will make a fish swim 
across the screen from right to 
left. As he swims, his tail will 
wiggle and he will occasionally 
blink. 

To accomplish this, we will 
create a series of compressed 
strings, each a different varia- 
tion of the fish, then print them 
in sequence, printing and incre- 
menting as we go along. We 



10 CLS 

288 Fl*='[€Fl*n)EFII€FKFE»a£HteIia0^ 

282 K*VWTR(F1*> flD=P£K<K*2)»256*PED!((!*l) 

284 MTfttTfc 176, 17fc 176, 176. 128. 26. 24, 24, 24. 24, 24, 24, 24, 24, 184, 191. 179, 19L 191 19L 19L 189, 184, 149, 128, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24 

, 24, 24, 13a 141 185, 19L 191, 19L 19t 135, 13a 133, 128 

286 F0fiP=«TO48.REflDX:POKBIMf,X:«XTP 

218 F2f»*CEFD€n)eFDEn)£FEJI>CtB^ 

212 K-VWTIKF2*) :flD«rtEK<K*2)*256+fEEK«*l) 

214 MTR176. 176, 176. 17a 17a 12a 2a 24, 24, 24, 24. 24. 24, 24, 24, 184, 191, 179, 19L 191, 19L 191 189, 184, 134, 12a 2a 24, 24, 24, 24, 24, 24, 24, 24, 24 

, 24, 24, 13a 143, 185. 191 191 19L 19L 135, 13a 137, 128 

216 FORW048 (BOX.POXEHHf.XIfXTP 

228 F3*='C€FD£F[l£Ft€n)CFD€ia£«WINC^^ 

222 K«VflRPTR(F3»):flWK»:<K*2)»256*fmMK*l) 

224 MTfttTa 17a 17a 17a 17a 12a 26, 24, 24. 24, 24, 24, 24, 24, 24, 184. 191, 179, 19L 191, 191, 191 189, 17a 14a 12a 2a 24, 24, 24, 24, 24, 24, 24, 24, 24 

, 24, 24. 13a 141 185. 191. 19L 191 191 135, 12a 13t 128 

226 F0RP4T048:REHDX:P0KEflM > ,X:«XTP 

238F4t«'(!CFDEFI)EFC€FDEFEW<I£m5IN^^ 

232 K«VflRPTR(F4*) flC-PEB(K*2)*256^£E»!(K*l) 

234 MTR176, 17a 17a 17a 17a 12a 2a 24, 24, 24, 24, 24, 24, 24, 24, 184, 191 191 191 191 191 191 189, 184, 149, 12a 2a 24, 24, 24, 24, 24, 24, 24, 24, 24 

, 24. 24, 13a 141 185. 191 191 191 191 135. 13a 133, 128 

236 FiW=8TM8 REflDX POKEHHP, X *XTP 

1888 OS 10=582 3W 

1818 PS!NTft.C, FU, GogjBiiee 

1828 niNTtUlF2S. oosueiiee 

1835 IFUX452DEN2888 

1848 SH=S**i . IFSJK2THEN1818ELSEPRIKTIL0. F4«. QOSUBllBe 9W G0T01828 

1188 FCHWT015 rCXTfl L04.0-1 RETURN 

Program Listing 3. 



In our animated fish scene, 
we use four variations. Three 
have different shaped tails, to 
give the illusion of swimming, 
and the fourth is the same as the 
first except that the eye is 
closed to simulate a blink. The 
variable SW is used as a switch 
to select between the blinking 
and unblinking variations. 

The four fish are set up in 
lines 200 through 236. It takes a 
few seconds for the machine to 
run these lines. Lines 1000-1 100 
create the action on the screen. 



one graphic block. The fish 
would move forward twice for 
each PRINT @ position. Instead 
of 40 usable frames there would 



be 80. 

We hope this takes some of 
the mystery out of the string 
packing process.! 



"We will follow an animated 

scene from start to finish 

using string packing procedures." 



avoid the CLS command since it 
causes the action to look rough. 
Instead, a space is added to the 
tail (actually two spaces, one 
underneath the other since the 
fish is two lines tall) so that the 
trailing blanks are printed along 
with the fish. You don't see the 
blanks, but their effect is to 
erase any characters left on the 
screen from the last printing. 
This trick brings us closer to real 
cartoon action. 

Note the use of ASCII codes 
26 and 24 to downshift and 
backspace. Any size object can 
be stored in one string using 
these codes. 



Program Listing 2 is the pro- 
gram as you must type it in. 

Program Listing 3 is the pro- 
gram after you run it once. As 
stated earlier, once the program 
is run, you can delete lines 202, 
204, 206, and so forth (all the 
POKE, VARPTR, and data state- 
ments). The program can then 
be saved or CSAVEd and will run 
correctly. No one will ever know 
your original program was twice 
as long. 

It is possible to refine the fish 
movement further. Rather than 
incrementing a character space 
at a time, several variations of 
the fish could advance the fish 




EMMANUEL B. GARCIA, JR 
a ASSOCIATES 

203 N WABASH 

CHICAGO. ILLINOIS 60601 

PHONE (312) 782 9750 



NOW IN ITS THIRD YEAR OF 
SPECIALIZING IN PRODUCTS 
RELATED TO THE TRS-80* 

. Dealer of quality software and hardware— 
we sell only the best, proven items. 

. Sponsor of CHICATRUG— monthly 
learning sessions for TRS-80 users. 

. Publisher of "CHICATRUG News,'* monthly 
publication for TRS-80 users. 
■ ■ Send for sample issue ■ ■ 

. Sponsor of the FORUM-80 of Chicago, a 
24-hour computerized bulletin board. 

. Author of "Pensionmaker," the revolutionary 
defined benefit pension system running on 
the TRS-80 Model I where other pension 
actuaries are using mainframes. 

. Repair facilities (90-day warranty on new 
equipment and 30 days on used). 

E.B.G. & Associates is NOT affiliated with Tandy Corporation or Radio Shack. 
•TRS 80 is • Iradnmart. ol Tandy Corporation 
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Ever wanted 
to Hr -things to your TRS-80 
thai .ladio Shack said couldn't be done? 
How about reverse video, high-resolution 
graphics, a high-speed clock, and audible 
keystrokes? 

Not enough? How about turning an 
8-track into a mass storage device, making 
music, controlling a synthesiser, individual 
reverse characters, and a real-time clock? 

If the thought of using a screwdriver gives 
you the shivers then you can turn to the 
software section. Learn how to make 
BASIC programs auto-execute, reset 
memory size, pack program lines with 
machine code, and generate sound effects. 

The Custom TRS-80 and Other Mysteries 
is packed with page after page of practical 
information, and tested software. Get a 
copy and turn your TRS-80 into a 
supercomputer! Available from your local 
IJG dealer for only $29.95. 




C - 



1260 West Foothill Blvd., 
Upland, California 91786 

(714) 946-5805 
TRS-80 is a trademark of Tandy 




BASIC 

is not nearly 

as slow as most programmers think 

BASIC Faster and Better shows you 
how to supercharge your BASIC, with 
300 pages of fast, functions and subroutines. 

You won't find any trivial poorly designed 
'check-book-balancing' programs in this 
book - it's packed with useful programs. 

Tutorial for the beginner, instructive for 
the advanced, and invaluable for the 
professional, this book doesn't just talk . . . 
it shows how! All routines are also 
available on disk, so that you can save hours 
of keyboarding and debugging. 

The #1 disk BFBDEM contains all the 
demonstration programs, and #2 BFBLIB 
has all the library functions. 

BASIC Faster & Better is $29.95, 
and the two program disks are $19.95 each. 

Get the book and/or disks direct from 
IJG, or your local IJG dealer. 



• 37 



1260 West Foothill Blvd., 
Upland, California 91786 

(714) 946-5805 

TRS-80 is a trademark of Tandy 




'.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!' - William Barden Jr. 




OTHER 
MYSTERIES 



312 pages 
$29.95 



Get them at your local IJG dealer! 



'It has twelve thousand one-liners 

in it, and every one is great!' 

- Dennis Kitsz. Phone orders (714) 946-5805 

TKS-Mi '!• u trademark ofi'anth. Microsoft is ir.irirm.irk nf Microsoft. 



TRS-80 Disk and Other Mysteries is the 
definitive fixit book for disk users. Writen 
by Harvard Pennington it has more than 
130 pages of easy to read, entertlfcing and 
immensely useful information ^ind out 
how to recover disk files, the layout of 
information on the disk, memory maps, 
problem solutions . . . the list goes on! 

Many readers have saved days of work 
by recovering files that had been unread- 
able. Now in its fourth updated printuag, 
TRS-80 Disk and Other Mysteries fas 
been getting rave reviews in several mag- 
azines. Yours for only "$22.50 (plus $1.50 
shipping, CA residents please add $1.35 
sales tax). 

Microsoft BASIC Decoded and Ofjher 

Mysteries is the complete guide to your 
Level II ROMs. With over seven thousand 
lines of comments and 6 additional chap- 
ters packed with information, this is easily 
the biggest, and best, book about the Level 
II ROMs available. * 

Exploit the full power of Microsoft 
BASIC, with the aid of more than 300 
pages of tested examples, understandable 
explanations and detailed comments. Now 
available in a revised second printing, only 
$29.95 (plus $2.00 shipping, CA residents 
add $1.80 sales tax). 

IJG Computer Services, ^-3? 
1260 West Foothill B^yd., 
y^l Upland, CA 91786 $ 

Please send me a copy of TRS-80 Disk 

and Other Mysteries for $22.50 plus $1.50 
shipping. □ 

Please send me a copy of Microsoft BA- 
SIC Decoded and Other i\fysteries for 
$29.95 plus $2.00 shipping. □ 
Please send me a copy of> The Custom 
TRS-80 and Other, Mysteries for $29.95 
plus $2.00 shipping. D 
OK, send me alL ..three IJG books for 
$82.40 plus $5.00 shipping. □ 
Overseas add $8.00 per book airmail. 

Name 




Address 

City 

State Zip 

Charge my: 

D MasterCard Interbank Code . 

D Vjsa Expiration Date 

Card No 

□ Check enclosed for 

□ Ship COD ($2.00 extra) 
Signature 
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COr&TRUCTION 



Cassette loading may seem square to you 
but your computer likes it that way. 



The Wave Shaper 



R.B. Shreve 
2842 Winthrop Rd. 
Shaker Heights, OH 44120 



Few would argue the desir- 
ability of a backup file for ir- 
replacable data, or backup 
copies of programs represent- 
ing the investment of many 
hours of time or substantial 
sums of money. Cassettes are 
less expensive backup.f iles than 
floppies. There is widespread 
misunderstanding, however, of 
what makes the volume control 
setting on a CTR so critical 
when loading files and disagree- 
ment on the easiest way to en- 
sure good loads. 

In "No More TRS-80 Cassette 
Woes" by Paul Goetz and David 
Miller {73 Magazine, September, 
1979, p. 96), the authors point 
out that it is not the amplitude of 
the pulses put out by the cas- 
sette recorder that cause 
loading problems, but their 
duration. I have verified this by 
monitoring the output of several 
recorders with an oscilloscope 
under conditions producing 



good and bad loads. The wave 
shapes differ from Miller and 
Goetz' illustrations, probably 
due to different audio circuit 
characteristics, but the results 
were consistent with their con- 
clusions. 

Fig. 1 shows the output 
waveform of a CTR-80 recorder 
when loading a tape made on 



the same recorder with my 
TRS-80. Fig. 1a is the wave with 
a volume control setting be- 
tween four and six, which gave a 
satisfactory load. Fig. 1b is with 
a setting above eight, which did 
not. Obviously, if you want to 
add an oscilloscope to your pe- 
ripheral equipment, you could 
get a good load every time. You 




Fig. 1a. Satisfactory Load Setting 
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Fig. 1b. Unsatisfactory Load Setting 
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Fig. 1c. Wave-shaping Device Output 
Fig. 1. Output Wave forms of CTR-80 Recorder 



can buy a lot of disks for the 
price of a good 'scope, however. 

Why go to the trouble of in- 
stalling a monitor? Goetz and 
Miller have the right idea; modify 
your recorder's output before it 
gets to the computer. 

Digital equipment doesn't like 
sloping wave shapes that rise 
and fall gradually (measured in 
terms of time as a computer 
sees it), but thrives on short 
pulses with sharp edges and 
square corners. Let's give our 
TRS-80 what it wants. The E-Z 
Loader described by Goetz and 
Miller does it very well, but it is 
more complex than necessary. 
My device converts the CTR-80 
output to the waveform shown 
in Fig. 1c no matter whether it 
looks like Fig. 1a or Fig. 1b com- 
ing out of the recorder, and it is 
easier to assemble and less ex- 
pensive. 

An Inexpensive Wave-shaping 
Device 

Here's the parts list, with 
prices: 



1-SN74121 Monostable Multi- 
vibrator IC 

1-2N2222 NPN Transistor 

2-Mylar capacitors: 0.1 and 
.01 mfd (20« each) 

5-one fourth watt 5% Resis- 



$.35 
.25 
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tors: two at 1K, 1 each 




2.2K, 4.7K, and 10K ohms: 




(5c each) 


25 


1-Silicon Diode, such as 




1N914or 1N4148 


.10 


Total Cost: 


$1.35 



REGULATOR 



The unit requires a five-volt 
power source, and draws pulses 
that probably exceed 50ma. 
when connected to the TRS-80. 
If you want to install it inside the 
cassette recorder and power it 
from the recorder, you will need 
a voltage regulator. The one 
shown in the circuit diagram 
uses the following parts: 



1-LM340T-5 Regulator 


$ 1.25 


1- lOOOmfd 16V Electro- 




lytic Capacitor 


.54 


1-200mfd 16V. Electrolyt 




ic Capacitor 


.23 



$2.02 

The entire unit, including 
regulator, can be assembled on 
a one-inch by three-inch piece of 
perforated board, and located in 
the recorder battery, compart- 
ment. I added a miniature plug 
that fits the recorder ear jack, 
and a matching jack to take the 
plug on the wire to the com- 
puter. This avoids rewiring the 
existing jack, which is hard to 
get at, and permits the recorder 
to operate normally if I want to 
use it for something besides 
computer tapes. 

The circuit is shown in Fig. 2. 
Layout is not critical; arrange 
the parts to fit your mounting 
board and the space. You can 
use an IC socket if you wish; it is 
easier than making soldered 
connections to the IC pins. You 
could make a PC board if you 
want to be fancy. 

Operation 

The secret is the SN74121. 
This is an IC that might have 
been designed just for this pur- 
pose. It has three inputs, two of 
which (pins 3 and 4) are de- 
signed to be triggered by square 
waves. The third, pin 5, can be 
triggered by a slow-rising wave 
shape like our cassette output. 
Whichever input triggers it, it 
will output a single square pulse 
at pin 6. Pulse duration is in- 
dependent of anything that hap- 
pens after it is triggered, and is 
determined by the timing resis- 
tor and capacitor connected to 
pins 10 and 11. 

According to the manufac- 




Fig. 2. Circuit 



turer's data sheet for an 
SN74121, the values shown in 
Fig. 2 should produce a pulse of 
approximately 32 microseconds 
duration, whether the triggering 
wave looks like Fig. 1a or 1b. In 
other words, the setting of the 
recorder volume control is disre- 
garded as long as it is high 
enough to trigger the IC. 

Actual pulse duration will 
vary from this figure, depending 
on how close the components 
you use come to the design val- 
ues. This is no problem; the tape 
should load satisfactorily with 
any pulse up to 150 microsec- 
onds. The voltage divider and 
transistor in the output circuit 
limit the pulse amplitude to ap- 
proximately 2V while providing 
enough current for the low im- 
pedance load of the TRS-80 in- 
put. The resistor from pin 5 to 
ground returns the device input 
to ground potential after it is 
triggered and the diode protects 
it against any negative voltage 
that might occur by accident. 

Installation in the CTR-80 

Installation is easy in the bat- 
tery compartment of your re- 
corder: 

• Remove the back of the 
recorder, by removing the three 



RED WIRE 



Phillips-head screws, one in the 
bottom of the battery compart- 
ment, and one at each corner 
opposite the battery. 

• Drill a hole in the side of the 
back cover next to the battery 
compartment, of a size to mount 
the new output jack, and on the 
same side of the recorder as the 
other inputs and outputs. Drill 
another small hole alongside 
the first for the wire that will 
connect to the input plug. 



tions will be made. hig. g shows 
part of the foil layout of the 
CTR-80 circuit board. The Phil- 
lips-head screw on the left will 
help you identify the ground 
bus. The two brown wires and 
one red wire at the top will help 
locate the + 6V point — the 
small pad to which the red wire 
and one brown wire connect. 
Run leads from these points to 
the battery compartment and 
connect them to the wave 
shaper. Connect its output to 
the output jack. Run the wire for 
the input plug through its hole 
and connect it. 

• While you have the back off 
the recorder, you may want to 
solder another silicon diode 
such as a rectifier diode or 
1N914 across the points where 
the shielded wire to the drive 
motor is connected to thecircuit 
board. This has nothing to do 
with the installation of the wave- 
shaping device, but is good pro- 
tection against voltage spikes 
generated when the motor is 
stopped. These spikes can put a 
glitch in the middle of a tape if 



"Goetz and Miller have the right 
idea; modify your recorder's 
output before it gets to the computer. 



SHIELDED WIRE 
TO MOTOR 




• Mount the jack. I made it 
easier by cutting away some of 
the thin plastic wall of the bat- 
tery compartment on which the 
contact springs are mounted, 
using a small pair of diagonal 
cutting pliers. If you do this, first 
trim off or tape up any loose bat- 
tery wiring. 

• Locate the points on the 
recorder circuit board at which 
the + 6V and ground connec- 



CONNECT 6V+ LEAD HERE 



TWO BROWN WIRES 
CONNECTED HERE 



DIODE HERE 



CONNECT GROUND LEAD 
TO THIS FOIL 



Fig. 3. Foil Layout— CTR-80 Circuit Board 



the computer stops the record- 
er, as it may when saving data 
under program control. 

• Reinstall the back of the 
recorder. 

• Put a small piece of sponge 
rubber or other padding in the 
bottom of the battery compart- 
ment, rest the wave shaper on it, 
and reinstall the battery com- 
partment cover. The padding on 
the cover will hold the device in 
place. 

That should do it. Connect the 
recorder to your TRS-80 and try 
loading a cassette with the level 
control set at six or higher. It 
should load on the first try. Note 
that this device will not load 
tapes saved on TRS-80s with 
modified speeds. No one in the 
Cleveland area has had any pro- 
blems in either construction or 
operation to my knowledge. If 
you do, drop me a line.B 
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TECHNIQUE 



Why don't you do it in machine language? 



High Speed Sorts 



Richard R. Robson 

13 Stilwell 

Fort Leavenworth, KS 66027 



It all started when my friend 
Phil told me the sort in his 
mailing list program took for- 
ever to complete. He hated to 
add any records to his files 
because the Add program auto- 
matically called up the Sort pro- 
gram, resulting in endless hours 
of a churning and gurgling Basic 
sort. 

In any sort, swapping string 
variables is a fact of life. In a 
TRS-80 Level II Basic sort, exten- 
sive string swapping is nothing 
but trouble. 



Look at the simple version of 
a sort of the array TG$( ) in Pro- 
gram Listing 1. Each time a 
TG$(n) or SVE$ is assigned a 
new value, Level II Basic 
searches for the next available 
chunk of string storage space to 
store the new value. The previ- 
ous value of the string variable 
remains in its original location 
in memory, and the pointer for 
TG$(n) is updated to point to the 
newly found chunk of storage 
space containing the latest 
value. This can't go on forever; 
this spendthrift method soon 
leads to an out-of-string-space 
condition. 

When this occurs, Level II 
calls the garbage collector 
routine. This routine causes all 
normal processing to stop while 
it goes through string space, 
collecting the space occupied 
by superceded values of string 
variables. Having done this, it 
then reorganizes the string 
space so all the current values 
of string variables are neatly 



lined up from the top of avail- 
able memory downward. At the 
same time, it updates all the in- 
ternal pointers to these values. 
During all this, the resident pro- 
gram watches from the side- 
lines. 

In a sort of any size, the com- 
puter could call the garbage col- 
lector several times during each 
pass through an array, but there 
is a better way. Machine code is 
the answer. 

Sorting Out Sorts 

The usual approach to sorting 
involves moving or switching 
blocks of data. The approach 
taken here leaves the string un- 
disturbed in memory. But how 
do you resequence the data if 
you never touch it? Simple: You 
don't rearrange the data in the 
TRS-80's memory; you merely re- 
arrange the internal pointers to 
the data. 

When you ask Level II (or Disk 
Basic) for VARPTR(TG$(1)), you 
get an answer which represents 
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the memory location where 
TG$(1) is stored. If that memory 
location is abbreviated as M, 
then M-3 (read as "M minus 
three") contains the length of 
TG$(0), and M + 3 contains the 
length of TG$(2) 

M + 1 and M + 2 point, respec- 
tively, to the LSB (least signifi- 
cant bit) and MSB (most signifi- 
cant bit) of the memory address 
where the actual value of TG$(1) 
is stored. Similarly, M-2 and 
M - 1 contain the LSB and MSB 
of the location where data is 
stored for TG$(0). Table 1 il- 
lustrates this concept and in- 
dicates that, given VARPTR 
(TG$(1$)), we can tell a machine 
code program all it needs to 
know about the TG$( ) array. 

Let's say that while our sort is 
going through the TG$( ) array, it 
is looking at TG$(1) and TG$(2). 
Table 1 tells us that their respec- 
tive lengths are at M and M + 3 
and that their data can be found 
at the addresses whose LSB 
and MSB are found at M + 1, 



Given: M = VARPTR (TG$<1)) 


Then: 




Memory Location 


Contents 


M-11 


"3" signifying String 


Variable 




M-10 


"G" (of "TG") 


M-9 


Tf ") 


M-8 


who knows? 


M - 7 & M-6 


who knows 


M-5 


LSB of $ of elements in TG$ ( ) 


M-4 


MSB of S of elements in TG$ ( ) 


M-3 


LEN( TG$(0) ) 


M-2 


LSB of address of TGS<0) data 


M-1 


MSB of address of TG$(0) data 


M 


LEN(TG$(1)) 


M + 1 


LSB of address of TG$(1) data 


M + 2 


MSB of address of TG$(1) data 


M+3 


LEN< TG$(2) ) 


M + 4 


LSB of address of TG$(2) data 


M + 


MSB of address of TGS<2) data 


M + 3'n -3 


LEN( TG$<n) ) 


M + 3 - n -2 


LSB of address of TG$(n) data 


M + 3'n -1 


MSB of address of TG$(n) data 


Table 1 VARPTR Structure 



M + 2 and M + 4.M + 5. With 
those addresses and lengths, 
we can compare each byte of 
TG$(1) with the corresponding 
byte of TG$(2) and continue to 
do so until we hit a not equal 
condition, the end of the shorter 
of the two strings, or the simul- 
taneous end where the lengths 
are equal. 

There are three possible out- 
comes. First, the unequal case: 
Assuming that our desired se- 
quence is ascending (low values 
to high values), if TG$(1) is 
greater in value then TG$(2), we 
want to switch the two strings to 
establish an ascending se- 
quence. If this is not the case, 
leave well enough alone; they 
are already in ascending se- 
quence. 

The second case occurs when 
both strings arethe same length 
and are exactly equal in value. 
Don't worry; ascending se- 
quence exists whenever TG$(1) 
is less than or equal to TG$(2). 

The third case occurs when 
we compare the two strings byte 
for byte, and continue to get an 
equal condition. Suddenly we 
reach the end of the shorter of 
the two strings. The shorter of 
the two strings is really the less- 
than string and it should be 
switched or not, determined as 
was the first case. 

A sort in machine code can 
buzz along at a pretty good 
clip, but it is still quite cumber- 



some when it has to move large, 
variable length blocks of data. 

Look closely at Table 1. Why 
not switch the pointers instead 
of switching the data to which 
they point? That way, you move 
only three bytes at a time and 
you don't have to emulate the 
garbage collector to accommo- 
date switching variable length 
blocks. More importantly, by 
rearranging the pointer for 
TG$( ), you make things much 
nicer for yourself when you 
return to the Basic program 
once the sort is done. On return, 
TG$(1) will contain the data with 
the lowest values and TG$(n) will 
have the string with the highest 
values. To list those strings in 
ascending sequence, dump 
them out one at a time with a 
simple For. . .Next loop. If you 
want descending instead of 
ascending sequence, dump the 
array with the following code: 



FOR N = (highest subscript) T0 1 STEP - 1 

PRINT TG$(N) 

NEXTN 



A Calling Program 

Program Listing 2 is a sample 
calling program written for any 
16K to 48K, disk or tape system. 
Lines 20 through 1 10 contain the 
decimal values of the machine- 
code sort program's instruc- 
tions. Lines 130 and 140 de- 
termine what size system you 



have and compute a starting 
point for the sort program. In 
line 150, a dummy string is set 
up which in effect reserves 255 
bytes at the top of memory into 
which the sort program is 
POKEd by line 160. This string 
(ZZ$) must never again be re- 
ferred to in the Basic program 
to protect it from the garbage 
collector. Line 160 computes a 
hash total (T) of the decimal 
values. If you keyed in lines 
20-110 correctly, the total of all 
190 numbers would be 18,217. 
Lines 180 through 200 check 
this and, if you made a mistake, 
allow you to check your work 
and make necessary correc- 
tions. 

Lines 230-250 determine 
whether your system is a tape or 
a disk system and set up the 
proper USR interface. Once you 
are sure your data lines are cor- 
rect, you can delete lines 170- 
220. 

The rest of the program sets 
up a test array, prints it in its 
original sequence, sorts it using 
the call at line 390, and then 
prints the sorted results in 
ascending and descending se- 
quence. Lines 510-550 let you 
enter 18 values and sort them. 
The actual sort takes place 
quickly with little delay between 
the dump of the unsorted array 
and the dump after the sort (less 
than one second). 

The key to this speed is the 
machine-code sort routine. Pro- 
gram Listing 3 is an Assem- 



bly listing of this relocatable 
program. The first part receives 
the value of VARPTR(TG$(1)) 
passed by the calling Basic pro- 
gram and saves it in Start. Five 
is then subtracted to get the 
M-5 pointer to the number of ar- 
ray elements. The element 
count is reduced by two (once 
because we don't use TG$(0) 
and once because the bubble 
sort stops short of the last 
element— (TG$(n)). The adjusted 
element count is then stored in 
ELEMS. The last part of the 
paragraph stores LEN(TG$(0)) in 
TGNOTG for later reference. 

Once the housekeeping is 
done, the program gets down to 
business in Sort. First it sets up 
the IX index register to contain 
VARPTR(TG$(1)). It also loads IY 
with the adjusted element count 
and initializes the switch flag 

to zero. 

In DOTAG, the program loads 

HL with the address of byte 1 of 
the second of the two strings 
and loads DE with byte 1 of the 
first of the two strings to be 
compared. The B and C regis- 
ters are loaded with the lengths 
of the two strings. To illustrate 
this, assume we are comparing 
TG$(1 ) and TG$(2). The C register 
would contain LEN(TG$(1)) and 
DE would point to byte 1 of 
TG$(1). Similarly, B contains 
LEN(TG$(2)) and HL points to 
byte 1 of TG$(2). 

In EXAMIN, we compare the 
two strings byte for byte. We 
come back to EXAMIN again 



H ' FIGURE 1 - BASIC SORT 

28 ' 

30 CLEAR 1008 

48 DATA SMITH, BAKER, ABLE, JONES, M, HOTEL, KILO, GEORGE, ZULU, CABIN 
50 DATA DOG, FOX-TERRIER, FOXTERRIER , SMI TH A , WERE, MHJKI.XYZ, ABC 
60 T=18: DIM TGS (T) 

70 LPRINT, "FIGURE 1 - PROGRAM OUTPUT (. TIMING USING BASIC STRING 
SORT":LPRINT" 
": LPRINT, "BEFORE SORTING" .TIMES 
80 FOR N = 1 TO T: READ TGS(N): LPRINT TGS(N): NEXTN 

9* ' 

100 LPRINT, "BEGIN SORTING" .TIMES 

110 GOSUB160: REM PERFORM SORT IN BASIC 

120 LPRINT, "END SORTING" .TIMES 

130 FOR N = 1 TO T:LPRINT TGS(N): NEXT N: REM PRINT SORTED ARRAY 

140 END 

150 ' SORT ROUTINE 

160 ' (IN BASIC) 

17 FLAG = 8 

188 FOR N = 1 TO T-l 

190 IF TGS(N) > TGS(N+1) THEN GOSUB 238: REM SWITCH ROUTINE 

200 NEXT N 

210 IF FLAG <> e THEN GOTO 170: REM LOOP TIL NO SWITCHES MADE 

220 RETURN: REM FINALLY PASSED THRU ARRAY WITH NO SWITCHES 

230 ' ROUTINE TO SWITCH VALUES 

240 FLAG ■ 1:REM SET FLAG TO INDICATE AT LEAST 1 SWITCH MADE 

250 SVES = TGS(N): REM SAVE TGS(N) 

260 TGS(N) = TGSIN+1): REM MOVE N+l TO N 

270 TGSIN+1) - SVES: REM MOVE N TO N-t 1 VIA SVES 

288 REM NOTE STRING VARIABLES ASSIGNED NEW V 

ALUES 

298 RETURN 



Program Listing 1 
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and again until we arrive at one 
of the three outcomes dis- 
cussed earlier. If the two strings 
are already in the proper se- 
quence, the program falls into 
Next, where it increments the 
IX register to point to the next 
VARPTR and checks to see if we 
have reached the next to last 
VA.-.PTR. If not, we loop back to 
DOTAG; otherwise, the program 
checks to see if we made any 
switches along the way, and if 
so, goes back to Sort. 

The program returns to Basic 
only after it has made a com- 
plete pass through the array 
without performing a single 
switch (flag = 0). 

The next busiest section of 
the program is Switch. Here 
the program physically switches 
the length/LSB/MSB triads 
when the compar' ">ns in EX- 
AMI N dictate a re., angement 
of the sequence. Upon exit from 
this section Flag is set equal to 
one, indicating a switch has 
been made. The data (strings) 
are never switched— only the 
pointers are switched, requiring 



movement of two sets of three 
bytes each. 

Tag Sorts 

One often wants to sort a 
large file, for instance, a mailing 
list. The sort is usually keyed on 
one small field out of a record 
that could exceed 100 charac- 
ters in length. Phil's mailing list, 
for example, had a couple hun- 
dred records, each 85 charac- 
ters long; but his sort key was 
only six bytes long. 

If Phil tried to read all those 
records into memory to sort 
them on the six byte keys, it 
would be a tight fit and a very 
long sort. I nstead, he could easi- 
ly fit the six byte keys into 
memory and sort on them. Once 
he sorted the array of keys, they 
would be in sequence. 

As he reads in the records 
from his disks, he uses a record 
number (RN) uniquely associat- 
ed with each record. This record 
number can be converted into 
two ASCII (American Standard 
Code for Information Inter- 
change) bytes by the following 



code: 

MSB = INT(RN/256) 

LSB = RN - (256- MSB) 

KEYS = CHRS(LSB) + CHR$(MSB) 

In Disk BASIC: KEYS = MKI$(RN) 

While saving the desired field 
(for example, FLD$) in the array, 
Phil saves the record key as well 
by concatenating the six-byte 
field with the two-byte tag: 

TG$(N) = FLDS + KEYS 

After the TG$( ) array is 
sorted, each element in the ar- 
ray will be in ascending se- 
quence and will carry the tag 
with it to its parent record out on 
the disk. The array element can 
then be broken out back into the 
field component and the tag 
component: 

FLDS = LEFT$(TG$(N),LEN(TG$(N)) - 2) 

KEYS = RIGHT$(TG$(N).2) 

RN = ASqLEFT$(KEYS,1)) 

RN = RN + 256-ASC(RIGHT$(KEY$,1)) 

In Disk BASIC: RN = CVI(KEYS) 

The tag sort technique can 
also be used in another fashion. 
Assume an in-memory informa- 



tion system used the following 
arrays for name (NM$( )), phone 
(PH$( )), and street (S$( )), and we 
wanted to display the data in 
phone-number sequence. If we 
did a regular sort on PH$( ), the 
phone numbers would be in se- 
quence but the rest of the data 
would not. 

For example, before the sort, 
NM$(1) = ADAMS,PH$(1) = 999 - 
9999, NM$(n) = ZULU, and 
PH$(n) = 111 -111. After the 
sort, PH$(1) would be 1 1 1 - 1 1 1 , 
PH$(n) would be 999-9999; 
NM$(1) would remain ADAMS 
and NM$(n), ZULU. But now 
ADAMS has ZULU'S phone num- 
ber and vice versa. The tag sort 
would fix that. Examine the 
following code: 

FOR I = 1 TO n 

MSB = INT(I/256):LSB = I - 256. MSB 

TG$(I) = PHS(I) + CHRS(LSB) + 

CHR$(MSB) 

NEXT I 

(call sort on TG$( ) ) 

FOR I = 1 TO n 

KEYS = RIGHTS (PHS(I),2) 

KEY = ASC (LEFTS(KEY$.1)) 

KEY = KEY + 256-ASC(RIGHTS 

(KEYS.1)) 

PRINT NM$(KEY).PH$(KEY). S$<KEY) 

NEXT I 



IF YOUR PERSONAL COMPUTER WERE STOLEN TODAY. . . 

Would you know the best way to insure its recovery and apprehend the guilty party? 

We can help' Register your serial numbers with The Registry Service In the event of theft, simply 
notify us by^phone or mail We immediately will notify the law enforcement agencies and computer 
dea'ers irv'your area and provide them with a list of your serial numbers and a reward offer 
With your registration, you will receive free of charg e the first year's membership in World Associa- 
tion of Computer Owners (Memberships in W A C are normally $15.00 per year ) 

Along with a $12.00 check or money order, please include an itemized list of each piece of equip- 
ment with accompanying serial numbers 



P O Box 905. Waco. Texas ?6?oj 



MODEL 



PATCHES 



* Scripsit and/or Visicalc $15.00 * ST80D 



$15.00 



Works if vou have already backed 
up twice 

Unlimited backups of your original 



Patches your Model I ST80D 
program to work on the Model II 



No programming or technical knowledge required. 
• Apparats NEWDOS 80 Only $149.95 (Specify Model i or 



All orders shipped 

within ten days. 

Visa or Master Charge accepted 




n l xr. s 



PATA.IMC ^143 
316-665-3611 526 East 4th Hutchinson, Ks. 67501 
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NEW PROGRAMS 
FOR THE TRS-80 

incopROP 

Income Property Analysis 
for the TRS-80 

INCOPROP: Based upon standardized methods 
of property analysis used throughout the real 
estate industry Generates a 3 page report contain 
ing an annual property operating statement and a 
comprehensive 10 year cash How analysis Con 
tains IRS tax table to proiect alter lax income 
stream and investor's I R R 

• Handles 5 dilferent methods ol la. depreciation 

• Handles up to 3 loans & 3 ditterent lype loans 

• Highly interactive formal permits Sensitivity Analysis 

• Disk tiles created tor permanent storage ot daia 
Minimum system requirements 3?k RAM t drive and 
printer Sold with informative 78 page user 9 manual cover 
mg basic aspects of income properly investment *. 50 
data worksheets 

Model I & ill on cassette loi easy transfer 

to disk StAJOO 

Model II on 8 inch diskette SI45 00 

Model II Version available in MBASIC 

, running under CPrM 

MAINDEX: An easy-to-use program to aid you in 
the indexing ol your dies on disk Can'l find lhat 
program you wrote last month'' Put your computer 
lo work 1 Find any program or data tile in your sys- 
tem in seconds 

• A Mam Index ol an your other disk s directories 

. Alphabetizes list ol liies and gives you names, grans 
used dates written tracks and Me descriptions 

• Sorts Files by name, disk and categories 

• File descriptions can be searched loi key words 

• Prints disk labels with disk name and Me names 

• Uses all the advanced and extremely last tile mampu 
lanon capabilities ol Apparal Inc s NE WDOS'80 

Heguires Level II 48K I disk dene and NEWDOS'80 on 
cassette tor easy translei to disk S?0 95 

■■■ •s r ~\ 



165 00 




DEPT EM, PO BOX 591.NOVATO. CA 94947 



Program Listing 2 



FIGURE 2 - SAMPLE PROGRAM TO LOAD i CALL A/L SOR 
31 AUG 88 



1 REM 
T 

2 ■ 

3 ' 

18 CLEAR1BB8:CLS:PR1NT"WAIT.. .SETTING UP SORT A/L PROGRAM* 

28 DATA285, 127, 18, 34, 42, 65, 17, 251, 255, 25. 229, 221, 225, 221, 118, 8, 2 

21,112,1,43 

38 DATA43, 34, 48, 65, 221, 126, 2, 58, 44, 65, 42, 42, 65, 229, 221, 225, 42, 48 

,65,229 

48 DATA253, 225, 62. 8, 58, 39. 65, 221, 118, 4. 221, 182, 5, 221, 94, 1,221, 86 

,2,221 

58 DATA78. 8. 221. 78, 3. 58, 44. 65, 254, 8. 48, 14, 128. 254. 3, 56. 2. 5. 5. 121 

68 DATA254, 3, 56, 2, 13, 13, 26, 198, 8, 48, 4, 56, 18, 48, 39, 19, 35. 5, 13, 121 

78 DATA254, 8, 48, 7, 128, 254, 8, 48, 25, 32, 231, 253, 43, 253, 229, 193, 221, 

35,221,35 

88 DATA221, 35, 128, 177, 32, 177, 58, 39, 65, 254, 8, 32, 153, 281, 229, 213, 2 

21,229,225.17 

98 DATA29. 65, 1.3, 8. 237, 176, 221, 229, 289, 1,3, 8. 237. 176, 33, 29, 65,1, 

} 

188 DATAB, 237, 176, 62, 1,58, 39, 65, 289, 225, 24, 195, 78, 7 3, 78, 7 3, 8 3, 7 2 

,76,68 

118 DATA9, 65, 44, 48, 68, 6 9, 41, 228, 2, 8 

128 ' 

138 TM-PEEK(16598)*256»PEEK(16599) : IFTM>32767THENTM»TM-65536 

140 TM«TM-198:REM TM-(TOP-MEM) - (SIZE OF A/L PROGRAM) • START P 

01 NT FOR PROGRAM 

158 ZZ$-STR1NG$(255,8):REM SET UP DUMMY STRING TO HOLD PROGRAM 

168 FORI -BTOl 89: READ J:POKE (TM+ I) , J:T-T+J iNEXTI 

178 REM LINE ABOVE POKES PROGRAM AND COMPUTES "HASH - TOTAL 

171 • 

17 2 REM LINES 188THRU 28B CAN BE DELETED ONCE YOU HAVE THE DATA 

CORRECTLY TYPED 

173 ■ 

188 L-1B:REM NEXT LINE CHECKS HASH TOTAL, IF WRONG, DISPLAYS EAC 

H DATA LINE FOR RECONCILIATION — DELETE ONCE DATA ARE OK 

185 ' 

198 IFT018217 THEN PRINT'ERROR IN DATA. ..CHECK DATA STATEMENTS" 

: RESTORE: FORI •8T0189STEP28:L-L+ 18 : PRINT'DATALINE* j L:F0RJ-BT019:R 

EAOK:PRINTUSING-MI " jK; : NEXTJ :READK : PRINTUSING'MI ";K: INPUTVE 

NTER> FOR NEXT LINE* ;K :NEXTI :STOP 

195 ' 

288 PRINTTM:REH JUST FOR DEBUGGING, THIS LINE CAN BE DELETED 

285 ' 

286 REM LINES 218-228 ARE NICE TO HAVE, BUT CAN BE DELETED 

287 ' 

218 TS-PEEKI16599) :REM FIND OUT TYPE SYSTEM 16,32 OR 48K 

228 IFTS>191 THEN TSS-* 48K " ELSE IF TS > 127 THEN TSS-" 32K * 

ELSE IF TS < 128 THEN TSS- " 16K " 

238 BB-PEEK ( 16549) :REH BB IS MSB OF BEGINNING BASIC ADDRESS ASSU 

MED TO BE 66 FOR TAPE SYSTEM 

235 • 



LINE 388 IS JUST SHOWBIZ 



236 REM THE PRINT STATEMENTS ON LINES 240 i 25 CAN BE DELETED, 

TOO 

241 IF BBO66 THEN DEFUSR1-TM: PRINT" NOW SET UP FOR" ;TSS; "DISK S 

YSTEM'S USUI" 

258 IFBB-66 THEN POKE16526 ,65 :POKE16527 , PEEK ( 16599) :PRINT"NOW SE 

T UP FOR*;TS$J*TAPE SYSTEM'S USR" 

268 ' 

278 REM THIS IS END OF MODULE TO SET UP THE SORT PROGRAM 

288 REM FOR ANY SIZE SYSTEM, TAPE OR DISK 

298 ' 

388 'TEST DATA GOODIES FOLLOW 

328 DATASMITH, BAKER, ABLE, JONES, M, HOTEL, KILO, GEORGE, ZULU, CABIN, DC 

G,rOX-TERRIER,F0XTERRIER,SMITHA,WERE,MHJKI,XYZ,ABC 

338 A-18iDIMTGS(A) :REM SET UP TEST ARRAY 

348 F0RI-1T0 A 

358 READTG$(I) 

368 PRINTTGSU) 

378 NEXTI 

375 ' 

376 REM 

377 • 

388 IFBBO66 THEN PRINT'BEGINNING SORT AT ";TIMES 

382 • 

383 * 

384 REM LINE 398 IS THE ACTUAL SORT CALL 

385 REM (NOTE IT USES BB TO DETERMINE IF 

386 REM SYSTEM IS TAPE OR DISK AND ASSUMES 

387 REM SORT ARRAY IS TGS(N) ) 

388 • 

389 ' 

398 IFBB«66THENX-USR(VARPTR(TGS(1))) ELSE X-USR1 (VARPTR(TGS (1) ) ) 
:REH USR1 FOR DISK, USR FOR TAPE 

391 ' 

392 ' 

393 ' 

395 REM LINE 48B IS MORE SHOWBIZ 

396 * 

488 IFBBO66 THEN PRINT"ENDING SORT AT " (TIMES 

418 REM DISPLAY ARRAY IN ASCENDING ORDER 

428 F0RI-1T0A 

438 PRINTTGS(I) 

448 NEXTI 

458 INPUT"<ENTER> FOR DESCENDING ORDER" ; I 

468 REM NOW IN DESCENDING ORDER 

478 FOR I ■ A TO 1 STEP -1 

488 PRINT TG$(I) 

498 NEXTI 

495 * 

588 REM ROLL YOUR OWN SORT ARRAY 

518 INPUT"<ENTER> TO INPUT 18 NEW STRINGS . SORT" J I 

528 F0RI-1T018 

538 PRINT'ENTER STRING •"•tfl INPUT TGS(I) 

548 NEXT I 

558 GOTO 398 

568 END 




Radio /hack 



DEALER 



TRS-80 DISCOUNT 



□ NO OUT-OF-STATE TAX 

□ NO SHIPPING COSTS 



TRS-80 
MODEL II 64K 



*3500 



PACKS ENOUGH DATA HANDLING POWER FOR 
MANY SMALL BUSINESSES 




TRS-80 MODEL III 

32K-2 DISKS 

*2100 

NEW PERSONAL COMPUTER. . 
REAL-TIME CLOCK. SHARPER 
CRT IMAGES AND FASTER 
LOADING CASSETTES 



CERTIFIED CHECKS 
CASHIERS CHECKS 
OR CREDIT CARDS 




TRS-80 COLOR 

COMPUTER OR VIDEO 



S339 



each 



A LOW COST. COLOR COMPUTER FOR PERSONAL BUSINESS OR ENTERTAINMENT 

PERRY OIL & GAS INC. s 

137 NORTH MAIN STREET, PERRY. MICH. 48872 

PHONE (517) 625-4161 1-800-248-3823 

WARRANTIES HONORED BY ALL RADIO SHACKS • *T.M. TANDY CORP J 
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Radio Shack Dealer #R491 
MODEL III 

LEVEL III BASIC 
26-1062 




$825.00 



WE ACCEPT CHECK. MONEY ORDER. OR PHONE ORDERS WITH VISA OR MASTER 
CHARGE. SHIPPING COSTS WILL BE ADDED TO CHARGE ORDERS. DISK DRIVES, 
PRINTERS PERIPHERALS. AND SOFTWARE— YOU NAME IT, WE'VE GOT IT 
WRITE OR CALL FOR OUR COMPLETE PRICE LIST 

C 4 S ELECTRONICS. LTD 32 EAST MAIN ST MILAN. MICH. 48160 
^ 145 (313)439-1508 (313)439-1400 



C » S ELECTRONICS MART IS AN AUTHORIZED RADIO SHACK DEALER #491 



THE BIGGEST NAME IN LITTLE COMPUTERS*' 

TRS-80 Model H— Your Best Buy 
In a Business Microcomputer 




on 



TRS-80 computers, 
software and peripherals 

Similar volues on oil merchandise 
CALL COLLECT: 

915-283-2920 

Van Horn Office Supply 

701 W. Broadway -- P O Box 1060 
Van Horn, Texas 79855 

DEALER G055 ■? 

Form F48 Provided ™ 

Standard Warranty in Effect 
THE NA TIONWIDE SUPERMARKET OF SOUND* 
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One potential problem with 
the tag sort is that it adds two 
bytes to the target string and 
could lead to a bad sequence in 
the case of strings of unequal 
lengths. To visualize this, take 
the case where TG$(255) = ABC 
and TG$(256) = ABCD. The con- 
catenated strings (in ASCII deci- 
mal) would be: 



65 66 67 255 ("ABC" + KEYS of 255) 
65 66 67 68 1 1 ("ABCD + KEYS of 156) 



Comparing the two strings, 
the sort program finds equality 
through the first three bytes but 
calls for a switch upon examin- 
ing byte four of each string (255 
is greater than 68). The result 
places ABCD before ABC, a bad 
sequence. 

Refer again to Listing 3 and 
the paragraphs labeled CHTAG, 
ADJB and ADJC. These para- 
graphs adjust the lengths over 
which the byte-for-byte compari- 
sons are to be made, to avoid 
comparing tag bytes with data 
bytes. These adjustments are 
made only if the calling program 
had previously assigned some 
value to TG$(0). If TG$(0) is left 
unused, as a null string (zero 
length), then the respective 



lengths are not adjusted. To 
enable a tag sort as opposed to 
a normal sort, we must intialize 
TG$(0) to some dummy value. 

Out of Sorts 

For those who couldn't care 
less how it works, this sort 
technique can be implemented 
with the code shown in Program 
Listing 2, lines 20-160 and lines 
230-250. The actual sort call 
(assuming the target array is 
TG$( )) can be placed anywhere 
in the Basic program and is one 
of the following two calls (de- 
pending upon whether the sys- 
tem is a tape or disk system): 

X = USR(VARPTR(TG$(1))). . Tape system 
X = USR1(VARPTR(TG$(1))). . Disk system 

I have a homebrew mailing 
list program with around 120 
records on the disk. I often sort 
it on fields ranging in size from 
15 to 25 bytes. Not counting the 
time it takes to read in the fields 
from the disk or to access and 
print the records after I have 
done the tag sort, the sort itself 
takes about five seconds. Unfor- 
tunately, I can't give you any 
comparative times for a pure 
Basic sort on my files— I don't 
have the time.B 



Program Listing 3 



00010 | 
00020 ; 
00100 ; 



FIGURE 3...USR ROUTINE 
SORT UTILITY (TAGSRT/SRC & TAGSRT/OB 



80130 
ING ARRAY TGS(N) 

00140 

00150 
G CONCATENATED 

00160 
BE ASSIGNED 

00170 



00110 .-RELOCATABLE VERSION (30 AUG 80) 
00120 ,-GIVENS: 



(1) BASIC CALLING PROG WANTS TO SORT STR 



CALLING VIA "X-USR1 (VARPTR (TG$ (1 ) ) ) " . 

(2) IF SORT IS A TAGSORT (WITH 2-BYTE TA 



TO EACH ARRAY ELEMENT), THEN TGS(0) MUST 
SOME VALUE, OTHERWISE TGS(0) MUST BE NULL 



EARRANGED SO 
ENCE. 



7D00 CD7F0A 

7D03 222A41 

GSU)) 

7D06 11FBFF 

7DS9 19 

LEMENTS 

7D0A E5 



00190 ,-ON RETURN: 

00200 ; POINTERS IN ARRAY TGS(N) WILL HAVE BEEN R 

00210 ,-THAT THE ARRAY IS ORDERED IN ASCENDING SEQU 

00220 | 

00221 ; PROGRAM MAY BE LOADED INITIALLY TO 32000-32 

00222 ;THEN RELOCATED TO WHEREVER USER DESIRES 

00223 ,-USING PEEKSPOKE 

00224 ; 
4127H ;USE ARITH WK AREA OF 

411DH 

; "DID WE SWITCH" FLAG: 1= 

0000 ; HOLDS • OF ELEMENTS (M 

0000 ,-HOLDS VARPTR (TGS(D) 
;0-NO TAGSORT, >0 MEANS DO 

0A7FH ;ROM ROUTINE TO PASS V 

32000 ;CAN BE ANYWHERE 
00296 ; INITIAL LOCATION OF PROGRAM; RELOCATABLE 
08300 BEGIN CALL GETARG ;GET POINTER INTO HL 



4127 


00230 




ORG 


ROM/ RAM 








411D 


00240 


SAVE 


EQU 


4127 00 


002S0 


FLAG 


DEFB 


YES, 2-NO 








4128 0000 


80260 


ELEMS 


DEFW 


INUS 1) IN 


ARRAY 






412A 0080 


00270 


START 


DEFK 


412C 00 


08288 


TGNOTG 


DEFB 


A TAGSORT 








0A7F 


00290 


GETARG 


EQU 


ARPTR ARGUMENT TO HL 




7D00 


00295 




ORG 



( START), HL ; (START) = VARPTR (T 



00320 
00330 



LD 


DE.-5 




ADD 


HL.DE 


; POINT TO 1 OF ARRAY E 


PUSH 


HI. 


program continues 
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program continued 








7DBB DDEl 


00350 




POP 


IX 


7D0D DD6E00 


00360 




LD 


L,(IX+0) (GET * OF ARRAY ELE 


MENTS 










7D10 DD6601 


00370 




LD 


H,(IX+1) 


7D13 2B 


00380 




DEC 


HL .-LESS 1 (FOR TGS(0) ) 


7D14 2B 


00390 




DEC 


HL ,-LESS 1 FOR SORT 


7D15 222841 


00400 




LD 


(ELEMS), HL ;SET t OF ARRAY E 


LEMS LESS 2 










7D18 DD7E02 


00410 




LD 


A.IIX+2) ;GET LEN(TGS(0)) 


7D1B 322C41 


00420 




LD 


(TGNOTG),A .-SAVE IT 


7D1E 2A2A41 


00430 


SORT 


LD 


HL, (START) ;GET 1ST VARPTR I 


NTO IX 










7D21 E5 


00440 




PUSH 


HL 


7D22 DDEl 


00450 




POP 


IX 


7D24 2A2841 


00460 




LD 


HL, (ELEMS) 


7D27 E5 


00470 




PUSH 


HL 


7D28 FDE1 


00480 




POP 


IY ;• OF ELEMS IN IY 


7D2A 3E00 


00490 




LD 


A,0 


7D2C 322741 


00500 




LD 


(FLAG) ,A 


7D2F DD6E04 


00510 


DOTAG 


LD 


L,(IX*4) ; POINTER TO N+l 


7D32 DD6605 


00520 




LD 


H,(IXt5) 


7D35 DD5E01 


00530 




LD 


E, (IX+1) ; POINTER TO N 


7D38 DD5602 


00540 




LD 


D, (IX+2) 


7D3B DD4E00 


00550 




LD 


C,(IX) ;LEN(TGS(N)) 


7D3E DD4603 


00560 




LD 


B, (IX+3) ;LEN(TGS(N+1)) 


7D41 3A2C41 


00570 


CHKTAG 


LD 


A, (TGNOTG) ;CHECK IF TAGSORT 


7D44 FE00 


00580 




CP 





7D46 280E 


00590 




JB 


Z, EXAMIN ;NOT A TAGSORT 




00600 


;TAGSORT, SO: 


MUST ADJUST BSC BY -2 


7D48 78 


00610 


ADJB 


LD 


A,B 


7D49 FE03 


00620 




CP 


3 ;B MUST BE >= 3 BYTES 


7D4B 3802 
IT 


00630 




JR 


CADJC ;IF NOT, DON'T ADJUST 


7D4D 05 


00640 




DEC 


B ,-ELSE B=B-2 


7D4E 05 


00650 




DEC 


B 


7D4F 79 


00660 


ADJC 


LD 


A,C ;SAME BUSINESS WITH C 


7D50 FE03 


00670 




CP 


3 


7D52 3802 


00680 




JR 


C, EXAMIN 


7D54 0D 


00690 




DEC 


C 


7D55 0D 


00700 




DEC 


C 




00710 




.•RETURN WITH B&C ADJUSTED BY -2 IF T 


AG SORT 












00720 




.-ELSE 


RETURN WITH B&C UNTOUCHED. 


7D56 1A 


00730 


EXAMIN 


LD 


A,(DE) 


7D57 BE 


00740 




CP 


(HL) 


7D58 00 


00750 




NOP ; 


(NOP'JUST FOR DEBUGGING) 


7D59 2804 


00760 




JR 


Z,AGN 


7D5B 3812 


00770 


LT 


JR 


C.NEXT ;IF N>-N+l THEN NEXT 


TAG 










7D5D 3027 


00780 


GT 


JR 


NC, SWITCH ;N<N+1 


7D5F 13 


00790 


AGN 


INC 


DE ;HERE, BOTH ARE » SO FAR. 


7D60 23 
RS 


007 91 




INC 


HL ; INCREMENTING BOTH POINTE 


7D61 05 


00800 
00810 




DEC 


B .-DEC LEN(TGS(N+1) ) 


7D62 0D 


00820 




DEC 


C ;DEC LEN(TGS(N) ) 


7D63 79 


00830 




LD 


A,C 


7D64 FE00 


00840 




CP 


; AT END OF TG$(N)? 


7D66 2807 


00850 




JR 


Z.NEXT ;YES, THEN SEQ IS OK 


7D68 78 


00860 




LD 


A.B ;NO: 


7D69 FE00 


00870 




CP 


;AT END OF TGS(N+1)? 


7D6B 2819 
EQ 


00880 




JR 


Z, SWITCH ;YES, THEN OUT OF S 


00890 






(BECAUSE TGS(N) IS LONGER AN 


D BOTH 


00900 






.•WERE = UP TO LEN(TGS(N+1) ). 


7D6D 20E7 


00910 




JR 


NZ, EXAMIN 


7D6F FD2B 


00920 


NEXT 


DEC 


IY ; » OF ELEMS 


7D71 FDE5 


00930 




PUSH 


IY 


7D73 CI 


00940 




POP 


BC 


7D74 DD23 

TR 

7D76 DD23 


00950 




INC 


IX (STEP IX REG TO NEXT VARP 


00960 




INC 


IX 


7D78 DD23 


00970 




INC 


IX 


7D7A 78 


00980 




LD 


A,B (CHECK TO SEE IF AT END 


OF ARRAY 










7D7B Bl 


00990 




OR 


C 


7D7C 20B1 


01000 




JR 


NZ, DOTAG (NOT AT END OF ARRA 


Y 

7D7E 3A2741 


01010 




LD 


A, (FLAG) j# END, CHECK IF WE 


HAVE SWITCHED 








7D81 FE00 


01020 




CP 





7D83 2099 


01030 




JR 


NZ.SORT (WE HAD SW ITCHED. .. M 


AKE ANOTHER 


PASS 








7D85 C9 


01040 




RET ; 


FULL PASS WITH NO SWITCHES. .. BA 


CK TO BASIC 












01100 


.•ROUTINE TO SWITCH NTH AND N+1TH ELEMENTS 


7D86 E5 


01110 


SWITCH 


PUSH 


HL (POINTS TO VARPTR T$(N) 


7D87 D5 


01120 




PUSH 


DE 


7D88 DDE5 


01130 




PUSH 


IX ;«> VARPTR (TGS (N) ) 


7D8A El 


01140 




POP 


HL («> VARPTR (TGS (N) ) 


7D8B 111D41 


01150 




LD 


DE.SAVE 


7D8E 010300 


01160 




LD 


BC,3 (SIZE OF VARPTR 




01170 




; VARPTR IS: 




01180 




;(1) STRING LENGTH 




01190 




;(2) LSB OF ADDRESS OF STRING 




01200 




;(3) MSB " " " 


7D91 EDB0 


01210 




LDIR 


(MOVE VARPTR (N) TO 3 -BYTE SA 


VE AREA 












01220 




.-NOW 


HL ==> VARPTR TS(N+1) 


7D93 DDE5 


01230 




PUSH 


IX (==> VARPTR (TGS (N) ) 


7D95 Dl 


01240 




POP 


DE (AND DE «=> VARPTR TS(N) 


7D96 010300 


01250 




LD 


BC,3 


7D99 EDB0 


01260 




LDIR 


(MOVE VARPTR (N+l) TO VARPTR (N) 


7D9B 211D41 


01270 




LD 


HL.SAVE 




01280 




;DE ALREADY »=> VARPTR TS(N+1) 


7D9E 010300 


01290 




LD 


BC,3 


7 DAI EDBB 


01300 




LDIR 


(MOVE SAVED (VARPTR (TGS (N) ) ) TO 


VARPTR (TGS (N+l)) 








7DA3 3E01 


01310 




LD 


A,l (TURN "SWITCH" FLAG ON 


7DA5 322741 


01320 




LD 


(FLAG) ,A 


7DA8 Dl 


01330 




POP 


DE 


7DA9 El 


01340 




POP 


HL 


7DAA 18C3 


01350 




JR 


NEXT 


7DAC 46 


01360 


EOJ 


DEFM 


'FINISH' 


49 4E 49 53 48 








0000 


01370 




END 




00000 TOTAL 


ERRORS 










SCRIPLUS 



Scriplus is a modification to Scripsit 01 which enables 
you to take advantage of the special functions, 
features, and print formats of your printer while your 
document is being printed. Allows you to: 



change «ee? ><: |z> ai n cdl ♦=? crl print 
change no- o-f characters per inch 
or underline in mid— line! 



All in accordance with the capabilities of your printer. 
You can change your print size at will! Features: 

1) The user can send commands to the printer to 
activate special formats 

2) Scriplus will not crash programs protected in high 
memory. 

3) "END" returns to DOS READY instead of re- 
booting. 

4) The initial line-feed is changed to a carriage return 
to empty the text buffer. 

5) The user can get an ALPHABETIZED directory 
from within scriplus. 

6) Optionally select automatic line feed after carriage 
return. 

7) Supports custom printer drivers (not included) 

8) Modifies Scripsit/LC or /UC. (MOD I) 

9) Works with MOD I and MOD III! (Including MOD III 
3.1 Scripsit!) 

10) Specifically written for the MX-80, but will work 
on ANY Printer that accepts CHR$ codes for 
control. 



Tape or disk — $ 24.95 

(specify) 



— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

■ 11500 STEMMONS EXPRESSWAY, SUITE 104 ■■■ 
DALLAS, TEXAS 75229 VJ$* 

PHONE (214) 484-2976 *^» 

IRS 80 1 Script!) are MICRONET 70130,203 ^2/ Price Does Not Incbde 



Trademarks ol Tandy Corp 



Poslaje 
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TECHNIQUE 



Where one will learn from another. 



Erudite Arrays 



George Barnes, Ph.D. 
Nevada Department 
of Education 
400 West King Street 
Capitol Complex 
Carson City, NV 89710 



Many of the statistical appli- 
cations I have for my Level 
I TRS-80 require multiple arrays 
and matrices. To handle these 
applications, I developed a sim- 
ple system for using the one ar- 
ray in Level I as a series of ar- 
rays or as a multidimensional 
matrix. Basically, I use various 
portions of the one available ar- 
ray for different purposes. 

Multiple Arrays 

If you need to set up two ar- 
rays, and can set an upper limit 
X as the number of items in one 
of the arrays, then one array can 
take the form A(l) and the other 
array can take the form A(X + 1). 
The variable I identifies the item 



in either array with which you 
are concerned. This system can 
be expanded to produce the ef- 
fect of any number of arrays. For 
example, if four arrays of X 
length are desired, they could be 
designated A(l), A(X + I), 
A(2 x X + I), A(3 x X + I), where (I) 
represents the number of the en- 
try in any array. 

If you want to use arrays with 
different lengths within the 
same program, you should alter 
this system slightly. For exam- 
ple, if you want three arrays 
which include 10, 100 and 500 
numbers, your designations 
might be A(l), A(10+l) and 
A(10+100 + l). 

Matrices 

As you can see, multiple ar- 
rays are fairly simple, but what 
do you do if you need to set up a 
matrix? You basically do the 
same thing to set up a matrix 
that you do to set up arrays, only 
you do it more times. To set up 
an (X, Y) matrix with X values of 1 
through A and Y values of 1 
through B, you need B arrays of 
1 through A. Any cell (X,Y) in 



such an array can be designated 
A(X + YxA). 

To visualize this more clearly 
look at the 3 by 4 matrix in Table 
1. Notice that in the one array 
available, the array Y = 1, X = 1 
to 3 sits on top of the array Y = 2, 
X=1 to 3, which sits on top of 



the array Y = 3, X=1 to 3. You 
will also notice that the array po- 
sitions A(0) through A(3) are not 
used. For programs which don't 
come close to using your com- 
puter's memory capacity, it 
won't be necessary to correct 
this. When it is necessary to 





X attributes (A = 3) 




Y attributes 
(B = 4) 




X=1 


X = 2 


X = 3 




Y = 1 


A(X + Y*A) = 
A(1 +1*3) = 
A(4) 


A(X + Y*A) = 
A(2+1*3) = 
A(5) 


A(X + Y"A) = 
A(3+1*3) = 
A(6) 


Y = 2 


A(X + Y'A) = 
A(1 +2'3) = 
A(7) 


A(X + Y*A) = 
A(2 + 2*3) = 
A(8) 


A(X + Y*A) = 
A(3 + 2'3) = 
A(9) 


Y = 3 


A(X + Y'A) = 
A(1+3*3) = 
A(10) 


A(X + Y*A) = 
A(2 + 3*3) = 
A(11) 


A(X + Y'A) = 
A(3 + 3 # 3) = 
A(12) 


Y = 4 


A(X + Y*A) = 
A(1 +4*3) = 
A(13) 


A(X+Y*A) = 
A(2 + 4'3) = 
A(14) 


A(X + Y*A) = 
A(3 + 4*3) = 
A(15) 




Table 1 
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conserve memory, cells in an 
(X,Y) matrix can be designated 
A<X + YxA-A-1). 

Many statistical applications 
require three or four dimension- 
al matrices. To create these you 
can expand upon the two-dimen- 
sional matrix designations just 
described. For example, any cell 
(X, Y, Z) in a three-dimensional 
matrix can be designated A(X + 
AxY + AxBxZ), and any cell 
(X, Y, Z, W) in a four-dimension- 
al matrix can be designated 
A(X + AxY + AxBxZ + Ax 
Bx C x W), where the maximum 
values of X, Y and Zare A, B and 
C. If memory space is at a premi- 
um, positions in three and four 
dimensional matrices can be 
written as A(X + A x Y + A x B x 
Z-A-1) and A(X + AxY + Ax 
BxZ + Ax$BxCxW-A-1). 

Matrix Subroutines 

As you can see, the expres- 
sions which represent matrix 
positions are sometimes rather 
long, and they can eat up memo- 
ry space fast if they are repeated 
many times in a program. The 



solution to this problem is to 
handle them with a subroutine. 
First set the dimensions of your 
matrix, and identify a particular 
cell's coordinates using the 
following variables. 



Number of dimen- Dimensions Cell 
sions in ma trix of matrix * Coordinates 

2 ~~ A XTY 

3 A, B X, Y, Z 

4 A.B.C X.Y.Z.W 

'One less than the total number of dimen- 
sions is all that needs to be set. 

Use the command GOSUB 
10000 to obtain a value H such 
that A(H) which represents the 
cell which you have identified 
with cell coordinates. 

For two dimensional matrices: 
10000H = X + YxA-A-1 : RET. 

For three dimensional matrices: 
1000 H = X + AxY + AxBxZ-A-1 : 

RET. 

For four dimensional matrices: 

10000 H = X + AxY + AxBxZ + AxB 
xCxW-A-1 :RET. 

The subroutines which do this 
task are marvelously short, as 
you can see, and they give the 
Level I TRS-80 tremendous power 
for statistical applications.! 



P&T CP/M®2 Supports 
Hard Disk Storage 

for the TRS-80 Model II 

P&T CP/M 2 now supports two popular hard 
disk subsystems for the Mod II; thus you can 
combine all the features of the best CP/M for 
the Mod II with the speed and capacity of the 
hard disk drives. 

Cameo Electronics 

• uses mature cartridge disk technology for 
maximum reliability 

• supports up to 4 drives 

• removable cartridges make backup and 
data transfer fast and easy 



Corvus System 
support for 10 and 20 Mbyte drives 
special mirror utility allows backup 
logical drive 
supports up to 4 drives 



by 
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Price: $250 (FOB Goleta) for P&T CP/M2-hard 
disk version (CA residents add 6% sales tax) 

PICKLES & TROUT 

P O BOX 1206 GOLETA. CA 931 16. (805) 685-4641 



CP'M is a '•gisierM iraaema'K ol Digit*' fl— ) H£l i rns-80 is a trademark o< Tandy Co<c 



IM\ < OIEOI MAKES IT ACROSS! 




t 

. . FROM OWE OFT RATI HO SYSTEM TO AHOTKERt 
A VITAL WAT TO PROTECT YOUR SOFTWARE 
I1CVE8TMB NT FOR THE FUTURE t! 

The KM (MM. .anguage runs on more different Oper- 
ating Systems and more dlfle rent-sized computers than 
any other similar language For starters, it runs on NCR 
and TI minicomputers and. in the micro field, on the 
CP/M- 1 . MP,**-. mSTJOS 3 . OASIS', MOA8I8\ and UNIX* 
(ONYX version) Operating Systems, to mention only 
a few 

Until now. serious business software of the scope and 
flexibility seen In the minicomputer world has not been 
available on micros KM CMMM. now allows transfer of 
such software with a minimum of fuss 

We have participated in such a nuni-to micro transfer 
of a major set of general business software using KM 
CMML as the transfer mechanism, of course Running on 
literally thousands at minicomputers, these refined, 
enhanced, and proven software packages cover AR A/P. 
O/L. P/R. Order Entry (with Invoicing and Inventory 
Control ) as well as Sales Analysis The packages define a 
new level of achievement for features and flexibility in 
micro applications software and offer top quality at a 
reasonable prloe 

Por immediate information, oall 714-848- 1922 for your 
complete product descriptions Be sure to circle no 
indicated below 

. . PLUS ALL THE OLD, FAMILIAR FAVORITES that 

we continue to offer, such as 

General Business -Client Accounting (CPA Write-up; 
PUS" ( Financial Modeling System ' 
NAD' ( Name and Address System ) 



-REAP ( Real Estate Acquisition Programs i 

PMS ( Property Management System ) 

MLS' ( Multiple listing System ) 

Health Care— APH' ; Automated Patient History) 

Word Processing and System Software -Magic Wand' 

QBOM 
CBAS1C2- 



( W? SMTW.THlSSOTHWE WlipfflNrrHY 

ENHANCE T)UK C OHBENI DATA PIOCESSIN6 
I HNANClAl flC CW M O « "tltvABIUTY. 




and Cybernetics' tmique TRS-80'. Model II CP/M offering 
high performance, hard disk support and CP'M com 
patibillty 
Trademarks of: 

1 - Ryan McParlano Corp 2 Distal Research. Inc . 3 Tandy 
Corp.. 4 - Phase On* System.. Ir.c .9 Be!) Telephone Laooralor 
las. Inc.. 6— American Business Systems. Inc . 7— Slrjcturatf 
Systems Group. Inc . 8 — Q/beme-jcs inc . 9 — Peechtree Software. 
Inc 1 0— Compiler System* Inc 




C V B E m N 



c 



(714)848-1922 



8041 NEWMAN AVE.. SUITE 208 
HUNTINGTON BEACH. CA 92647 



i/Sm Us! of Advertisers on asps 3S4 
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UTILITY 



These utilities do more than aid Level I to Level II conversions. 



Split and Splice 



Dr. Stephen Mills 
404 Wilson Avenue 
Kinston, NC 28501 



As programs grow, so do 
management and debug- 
ging problems, and soon the 
programmer is feeling the lack 
of text manipulation options in 
the Level I format. For instance, 
suppose you are 8K into a pro- 
gram and have worked out a 1 K 
subroutine useful elsewhere. Or 
suppose you're having trouble 
with lines 1000-1100, and every- 
thing else above and below 
these lines is a nuisance to the 
debugging operation. Or sup- 
pose you're on the verge of go- 
ing to Level II, and you have 
some very long programs to con- 
vert. Will there be enough RAM 
to load your Level I program 
along with the conversion tape 
program? 

What do you do? Just delete 
part of the programs in question 
and work with or CSAVE the 
rest. To do this in Level I, type 
the number of the lines you want 
to delete with no spaces or pro- 



gram material following the 
number, and the lines are de- 
leted from the program text. The 
method is simple, but it soon be- 
comes very tedious. 

It was ultimately the conver- 
sion question which led me to 
write Split, a program which cut 
my long Basic programs into 
pieces which could be convert- 
ed separately and merged again 
into a Level II program. But Split 
is equally serviceable for the 
other problems I mentioned, 
since its function is simply to 
split a program in two, saving 
the discarded portion to 



memory. CLOAD Split on top of 
it— a process which takes only 
seven seconds. Then enter a 
breakpoint line number, and 
specify whether you want the 
lower lines saved on tape or 
tossed into the bit bucket. If you 
want to save it, Split will turn on 
the cassette and CSAVE every- 
thing below the breakpoint line. 
Afterward, your program list will 
contain only the breakpoint line 
and those above it, which you 
can rework, CSAVE or split fur- 
ther. This utility makes life 
easier for the ambitious Level I 
programmer. You can make sep- 



"You can make separate 

recordings of subroutines and 

program variants without hesitation." 



cassette (if you so desire) and 
leaving the remaining lines in 
the computer. 

Split is simple to use. Just put 
the Split cassette in the recorder 
with the Basic program that 
requires surgery already in 



arate recordings of subroutines 
and program variants without 
hesitation. 

The perfect companion for 
Split is Splice. Once you have 
your Basic programs broken 
down into modules for editing 



and debugging, you'll want to be 
able to reassemble them. Splice 
modifies Level I's CLOAD opera- 
tion, so your loaded program 
does not cancel the one previ- 
ously in memory. You can merge 
Basic programs with a touch of 
the Enter key and return to Basic 
control by pressing Break. The 
newly loaded programs are 
stacked end-to-end sequential- 
ly. 

The catch, as you may have 
guessed, is that Split and Splice 
cannot be written in Level I 
Basic. Level I is absolutely intol- 
erant of system self-modifica- 
tions like these. You will need 
T-Bug or an appropriate 
editor/assembler tape to pro- 
duce your own copies. With 
T-Bug, you could produce Split 
and Splice tapes just by punch- 
ing in the values from the list- 
ings provided. However, I shall 
be doing more than just explain- 
ing the workings of Split and 
Splice. 

I'll discuss general tech- 
niques for using machine lan- 
guage programs to complement 
and facilitate Level I Basic. If 
you're writing long programs in 
Level I and have a hobbyist's in- 
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terest in computing, assembly 
language is probably the next 
frontier for you to conquer. I'll 
assume that the reader knows 
some of the principles of assem- 
bly or machine language pro- 
grams, although I won't be pre- 
supposing sophisticated practi- 
cal experience or knowledge of 
TRS-80 hardware and Level I 
ROM. 

The Trouble with Level I 

To understand how Split and 
Splice work, it helps to know 
how Level I Basic programs are 
managed in your computer. 
Level II stores its Basic state- 
ments in a condensed, one-byte 
code. With one exception, Level 
I Basic is stored exactly as you 
see it in the List. Each line is a 
string of ASCII alphanumeric 
characters. Each line ends with 
the decimal value 13 (OD hexa- 
decimal), which signifies the 
Enter key and operates like the 
carriage return of a typewriter, 
resetting your display to the 
next line. 

The one exception is an im- 
portant one— the line number it- 
self. It is not stored as you type 
it or as it is displayed but is con- 
verted to its hexadecimal equiv- 
alent. Every line number is a 
signed, two-byte number. The 
largest number that can be rep- 
resented this way (in 15 bits, 
plus one sign bit) is decimal 
32767, which is why this is the 
largest number you can use for 
a Basic line. (Incidentally, the 
space which is automatically in- 
serted between the number and 
the program statement is not 
stored; it is a consequence of 
how Level I ROM handles output 
conversions.) 

This difference between Level 
I and Level II should explain the 
relative slowness of Level I exe- 
cution; for in Level I, the text you 
typed in must be decoded every 
time it is executed, while in 
Level II it is partially decoded in 
the storage format. It also ex- 
plains why the merging tech- 
nique discussed in "APPEND 
It!" (February 1980, 80 Micro- 
computing) cannot be applied to 
Level I. 

Level I programs are always 
stored in RAM beginning at ad- 
dress 4200H or 16896 decimal. 
The section of memory dedi- 



cated to the video display ends 
at 3FFFH or 16383. What about 
those 513 bytes in between? 
Basic does use the area below 
4200H for some of its opera- 
tions, but the text of the pro- 
gram itself never goes there. 
When a program is not running, 
though, most of the space be- 
tween video memory and the 
Basic text is free. There are two 
good reasons why our assembly 
language programs ought to go 
in this area. One is that Split and 
Splice are then operable with 
any size memory and any pro- 
gram length, since this area is 
protected. 

However, there are seven ad- 
dresses in this area which 
should be respected, since they 
are concerned with the com- 
puter's general housekeeping 
requirements. The first six are 
actually three two-byte codes, 
occupying 4068H-406DH. 
4068H contains the address of 
the current position of the video 
cursor. Next, at 406AH, the com- 
puter stores the address of the 
end of available memory; this is 
7FFFH for a 16K system and 
4FFFH for 4K. The value is ap- 
parently determined when the 
computer powers up, and is not 
recalculated after a reset or 
01C9H reentry, so If you change 
this address, Level I ROM won't 
be able to determine how much 
RAM is available (of course, one 
could deliberately lower this 
value to protect a high-core 
machine language program). 
406CH contains the address of 
the last byte plus one of the resi- 
dent Basic program. 

After you type New, this ad- 
dress has the value 4200H, just 
the way it was before anything 
was loaded. The program text is 
still there, but ROM loses track 
of it when 406CH is reset. Split 
and Splice involve deliberate 
manipulation of the value stored 
at 406CH. Finally, 4090H con- 
tains a one-byte reference code 
to keep the status of output port 
OFFH in order. This port controls 
cassette operation, and the 
64-character mode of the video 
display. 

I mentioned a second reason 
for storing our programs below 
4200H. This concerns one of the 
obstacles facing any assembly 
language programming for a 




BASIC/S 3.0 (MOD l/lll) $39.95 

A Basic compiler for the Mod l/lll 48K Disk System. BASIC/ 
S compiles a subset of TRS-80 (C Basic into £80 machine 
code. The machine code can then be run as a /CMD file, 
most of the features and built in functions of Level II are 
implemented, along with sequential and random disk i/o. 
(including LRL/256). Allows variables, reals, and strings. 
This a programmer's compiler. Not intended to compile 
"off the shelf" software, but will compile code written or 
modified along it parameters. No royalty fee to pay! Many 
basic programs you are using today can be compiled. 
Supports all Mod I and Mod III operating systems. 

QSD UTILITY DISK #1 FOR 
LDOS® (MOD I) 69.95 

Increase the speed and power of LDOS! Contains: 

LZAP/CMD — Uses resident disk driver of LDOS and thus 
enjoys its flexibility & device independence. It will 
auto configure itself to drive capacity. LZAP will 
support any number of drives from 0-7, any cyliner 
count up to 255 and any sector number to 255. It 
supports both single and double denity automatical- 
ly! Various drive sizes and densities can be inter- 
mixed and LZAP will page between them without 
error. The ultimate ZAP routine for the ultimate 
system. Many more features including a "help" 
command for beginners to assembly code. 

RESIDELD/CMD — Allows you to SYSGEN system over- 
lays for increased speed and free space on disk, plus 
more! 
CLONE/CMD CHANGE/CMD DCAL/CMD 
VDISK/CMD STAT/CMD BINHEX/CMD 

And by Kim Watt . . . 

LCOPY/CMD — Mass file transfer package. Fast and 
versatile! 

LPURGE/CMD — Allows you to selectively purge by class, 
list, ext, etc. Contains over 20 features. A "mini 
super-utility!" 

RECOVER/CMD — A "smart" recover routine for "killed" 
files. 

DVORAK/CMD — the famous DVORAK keyboard layout. 

EXTRA SPECIAL DELIVERY 
(l/lll) $179.00 

Machine Language program to maintain your mailing list, 
print labels, and merge data from your mail list into a letter 
created by Scripsit® or Electric Pencil^. 

— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500 STEMMONS EXPRESSWAY, SUITE 104 ^ m§m 
DALLAS, TEXAS 75229 vm; 

PHONE (214) 484-2976 i^^ 

IRS Ml Serial are MICRONET 70130,203 ^27 Price Dm Not Include 

Trademarks of Tandy Corp. Pos,a « e 
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Level I computer: You must load 
something In addresses 41FEH 
and 41 FFH, the two bytes imme- 
diately before the start of Basic. 
As long as two bytes must go 
there, we might as well assem- 
ble the whole code below 4200H. 
Split and Splice have been tai- 
lored to fit snugly between 
4090H and 4200H. 

Level I does not have a Sys- 
tem format. The only way of get- 
ting non-Basic programs Into 
the computer and running them 
is via tape, and it is important for 
the Level I user to know how this 
is done. When you type CLOAD 
and the TRS-80 goes into Its In- 
put routine, a value is stored at 
the two bytes just below 4200H. 
This value Is the address to 
which the program counter will 
go when the CLOAD is com- 
pleted. Normally, with a Basic 
program, this is an address In 
ROM (more about it later). But, if 
you CLOAD a tape which inputs 
a different value to this address, 
you can take control away from 
ROM. This is exactly what T-Bug 
and the System tape of Radio 
Shack's Editor/Assembler do; 
they overwrite the stored ROM 
address with the desired RAM 
address— the starting address 
of the machine language code. 

There are two more special 
problems before Split and 
Splice can work. First, we can't 
put Split in the desired area be- 
cause T-Bug, or the System 
tape, is already there. If you try 
to produce a copy of Split using 
T-Bug. you'll be changing T-Bug 
itself, and the System tape con- 
tains the 500-baud input pro- 
gram necessary to get an as- 
sembled program into Level I. 
The solution is, of course, to as- 
semble at a higher address, 
transfer the program down and 
produce a 250-baud tape for 
future use. For this purpose we 
have a subroutine, applicable 
not only to Split but to any as- 
sembly language program for 
producing a second-generation 
program that can be loaded and 
run without messing around 
with the T-Bug or System tape. 

The second problem is impor- 
tant for programs like Split, 
which interact with Basic. We 
have to place the program's 
starting address at 41FEH. So it 
would seem we have to write a 




2 games per cassette 

(or the TRS-SO Model I or III 16 K 
Lerei 1 1 oc Modal 1 1 1 BASIC nocrocomputtn . 

.1 out programs hate 

ACTION SOUNDS & GRAPHICS 




Tou design roar own space tighter and 
then blast oft into battle Human or 
10 Computer Opponent* fight in 2 or 3 
dimensions Three scoaanos "Smuggler 
"Refuel Option" . and Phoenu Decathlon 

THE NEW STARSHIP VOYAGES 

A brilliant "trek' type spacebar 3D 
galaiy with wrap around. Moving enemy 
craft, some are "Cloaked It commands 
Rescue starbase Delta treat the Rogues 
catalog No 2001 S 19.95 




PARSECTOR V 



Still 
To* 

Ultimate 

Space 

War 



Unique split screen gives each player a 
private display launch I leet battle cralt 
aad match them tight fire high ponered 
energy beams or short range weapon spreads 
Human or computer opponent 

PARSECTOR 8 tournament Version. 
Ciant galaiy to coarser Intense Strategy ' 
catalog No 2M2 S 19 9S 
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tailing 

War 
letaeen 

let 
Colonies 

fast, machine language speed Three game 
variations "Open field". "Nest Barrier' 
aad "Digging Ants" 2 platers or computer 
opponent Easy to play, Challenging ta 
master fua packed game tar all ages ! ' ! 

THE NEW STARSHIP VOYAGES 

catalagNo 2003 S 14 95 



HIGH SPEED LIFE 
The FASTEST most ADVANCED version of 
I H Corneal s famous mathematical game 
Spectacular kaleidoscopic animation 
S00 gen/mm typical 32 preprogrammed 
patterns Multiple control functions 

! HjtMHo 1 ,n dOSoMoanCrilKiu*, luu* S ) 

NAME THAT STATE QUIZ 

A top notch educational game Drans 
SO states and asks five questions 
Three aan types Easy to use 
catalog No 2004 S 14 9S 
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Add t ' 00 poataga a handling COD ado t? SO 
fij Rn *JU4\ u. IkWCnKkoiUO payabW ic 

Synergistic Solar, Inc. 

POBoi SS0595 Miami ft 33156 

►^231 



i-*av aireta h> i 



| inro Deal*' inquiry *nvit«d 



program ending at 41 FFH and 
Insert the required two-byte 
value in the last two locations. 
But unfortunately, Level I ROM's 
CLOAD technique prevents us 
from doing that. When a tape is 
CLOADed, the actual storage is 
one byte longer than the pro- 
gram Itself. The last byte record- 
ed by CSAVE is a checksum 
byte and when the computer fin- 
ishes loading, it compares its 
tally of the input with the one 
claimed by the tape to deter- 
mine if everything loaded cor- 
rectly. If they don't tally, you get 
that all too familiar What? 
message after the load. 

Unfortunately, ROM doesn't 
just look at the checksum; it 
stores it right after the end of 
the program. So if we simply as- 
sembled our start address word 
to go into 41FEH-41FFH. the 
checksum would automatically 
get POKEd into 420OH— which 
contains the low-order byte of 
our Basic program's first line 
number. 

We could, of course, require 
inputting the Basic program 
after Split, but that would make 
Split very inconvenient to use. A 
better solution is to incorporate 
the checksum into the program 
itself. We formally end the pro- 
gram at 41FEH, which will con- 
tain the low-order byte of our 
two-byte address, and let the 
checksum byte fall in 41 FFH— 
making sure that the checksum 
equals the high-order byte of our 
starting address. This little feat 
is also handled by our block- 
transfer and dump subroutine. 
In fact, the editor/assembler 
makes it so easy that we can do 
it without ever knowing what the 
actual values are! 

Split 

You can either duplicate the 
assembly code with an edi- 
tor/assembler or just key in the 
machine language opcodes us- 
ing T-Bug. Split (like Splice) is 
tailored to 255 bytes for reada- 
bility to make it easy to compare 
its assembly location (from 
4A00H) to its final working loca- 
tion (4100H). Note that Split it- 
self ends at 4AFEH; the lines 
from 4AFF are the subroutine 
for producing the final product. 
If you use the editor/assembler, 
assemble Split, load your 
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You've cot 

TOTAL ACCESS 



© 



(specializing In TRS80 *) 



Rose 



@ 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



I've cot 

* Disk Drives 

TA400 < 40-T ) $289 

TA 800 ( 80-T ) $41 9 

TA400 Flippy $319 

TA800 Flippy $439 

All with silver case and 
power supply 

* CABLES 

2-Drlve $23.95 

4-Drlve $33.95 

Extender cable $14.95 

* BARE DRIVES 

TA400B $259 

TA800B $389 

TA400B Flippy $289 

TA800B Flippy $409 

+ EPSON PRINTERS 

MX70 $379.00 

MX80 $475.00 

MX80 F/T $589.00 

Parallel Cables $29.95 

* OPERATING SYSTEMS 

TRSDOS 2.3 Disk & Manual ...$17.95 

LDOS $129.95 

NEWDOS/80 $129.95 

DOSPLUS 3.3, 3.3D $89.95 

* IRON 

Disk Drive Power Supply, 

Single $37 

Disk Drive Case (silver) 

and Base $19 

Memorex Diskettes ( bx of 10 ) 
$25 

90 day warranty on drives. Add $5.00 fretont per 
drive In Cont US. UPS COO charge $1.40. There Is 
also a 15 day FRK trial on TA drives, \f not com- 
pletery satisfied I'll refund your money ( less ship- 
ping ). ill take exception to improper use or 
mishandling. 

* USERS CROUPS 

When your club makes a group buy, 
be sure to call me for a price. 
Rose 

TRS80 ' COMPUTERS 
•COMPUTERS 

26-1061 Mod III, U, 4K. $595 

26-1062 Mod III, Ul, 16K $850 

26-1063 MOd III, 32K/2 DISk/RS232 

$2150 

26-4002 MOd II, 64K. $3300 

26-3001 Color Computer, 4K. . . $330 
26-3002 Color Computer, 16K. . $510 
26-3501 Pocket Computer $212 

* DISK EXPANSION. MOD II 

26-4160 One Disk $977 

26-4162 Three Disk $1998 

lobo drive units also available. 



• PERIPHERALS 

26-1140 0K Exp. interface $255 

26-1141 16K Exp. interface $305 

26-1142 32K Exp. interface $355 

26-1172 D.C. Modem II $135 

26-1 206 CTR-80 Recorder $51 

26-3503 P.C. interface $42 

• PRINTERS 

26-1165 Line Printer v $1581 

26-1166 Line Printer VI $986 

26-1158 Daisy Wheel u $1694* 

• LIMITED AVAILABILITY 



The complete line of Radio Shack 
products is available through ta 
with standard RS limited warran- 
ty. Call me for price and delivery. 
Just cause you don't see it, don't 
mean we ain't got it. 

ROSE 



• SOFTWARE 

we have Adventure, Big 5, Circle J, 
Med Systems, SBSC. Snapp, Radio 
Shack and much more. Call or write. 

DO IT NOW! 



ROSES 
SPECIAL 
OF THE 
MONTH 

* PRINTERS* 

EPSON MX70. .. $369.00 

EPSON MX80. .. $475.00 

STARWRITER 45CPS 
DAISYWHEEL.. $1795.00 

Parallel Cable for TRS80 
for any of the 

above $29.95 

you can't live 

without a bunch 

of these! 



ROSe'S T-SHIRTS 

With any order of $1,000.00 or 
more, ill send you one of my 

''MINI-FLOPPY" T-Shlrts! 

REAL TIME 
CLOCK-CALENDER 

T-Tlmer© ... $89.95 

DRIVE TABS 

Disk drives need identity! no more 
that drive ! Make em be somebody 
- call em 0, 1, 2 and 5. They'll never 
forget yal 

Set of 4 $4.50 

Set of 2 $2.75 



ORDER NOW! 
TOLL FREE 
800-527-3582 

write or call Rose toll free at 
1-800-527-5582 (Texas residents call 
214-234-1770). Please use the toll 
free lines for orders and literature 
requests onlY. Technical help or tnr- 
vice use the Texas line. You can pay 
by visa or mastercard, you can 
send check or money order (allow a 
couple of weeks for personal checks 
to clear) or order COD (we ship COD s 
cash, certified check or money 
order only). Rose will take American 
money In Just about any form. Add 
freight (UPS where possible) on a 
orders under $1000. if you buy 
$1000 or more Rose eats the freight! 
Texas residents cough up 5% sales 
tax. Allow 2-4 weeks for delivery. 
Order today - 1 need the money! 

TOTAL ACCESS, 

P.O. BOX 3002 
RICHARDSON, TX 75080 

214-234-1770 

■ TRS80 & Radio snack are trademarks of 
Tandy Corp. 

Copyrignt 1981 TOTAL ACCESS ^ 6 



TO ACC / 23 
TOACC1/24 



>Sm List of Advrtisers on page 354 
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500-baud version with the Sys- 
tem tape and hit the slash key. If 
you produce it using T-Bug, after 
you've typed in the whole code 
and double-checked it, type J 
4AFF. Either way, the CRT 
should read Ready Cassette, 
which means that the block- 
transfer and the checksum ad- 
justment are complete, and the 
computer is ready to save your 
program to cassette. 

Insert a blank cassette and 
Enter, and a copy will be record- 
ed. The Ready Cassette mes- 
sage will return when the copy 
has been made, and you can 
make as many as you like. You'll 
probably want to make a whole 



string of them, since this elimin- 
ates the constant rewinding and 
leader delay. Exit the recording 
loop by pressing the Break key. 
If you understand assembly 
language, you can follow the 
workings of Split in the 
mnemonics and notes of Pro- 
gram Listing 1. Remember that 
the assembly has to be modified 
for the post-transfer location. 
For that purpose, I have defined 
the label DIF for the displace- 
ment the program receives by 
transfer. DIF is used to adjust 
other assembly addresses for 
JP, CALL and some internal LD 
instructions, while relative 
jumps (JR) are calculated cor- 



rectly without the displacement 
value. 

Lines 150-380 are video dis- 
play and cassette operation 
subroutines. Initially, Split loops 
through a keyboard input ROM 
routine, waiting for the value of 
ODH, the Enter key. It restarts if 
Clear is pressed— a necessary 
safeguard since Clear automati- 
cally functions when ROM's key 
scan routine is used. It is useful 
to know something about the 
operation of the routine at 
0B40H in ROM, since the prime 
or alternate registers contain 
some useful information. The 
active (non-prime) A register 
contains the input byte, or zero 




BUCKS 

Model II 64K $3395 

26-4160 1 Drive Exp $1014.00 

26-4161 2 Drive Exp 1559.00 ^r^™ tt» 

26-4162 3 Drive Exp 2099.00 MUDfcL III 

264530 Scripsit II 259.00 26-1061 4K I 

264512 Profile II 159.00 26-1062 16K III ... . 

264511 Visicalc II 259.00 26-1063 32K III 

264501 Gen Ledger 179.00 W/2 Drives, RS 232 

264506 Mail List 72.00 26-1162 1st Drive .. 




i 599.00 
. 859.00 

2225.00 
. 765.00 



IDS PAPER TIGERS 

Dot Resolution Graphics quality print 

IDS 445G 7 wire printhead, graphics (List $ 985) $ 795.00 

IDS 460G 9 wire printhead, graphics (List 1094) 886.00 

IDS 560G 9 wire, wide carriage, graphics. . . (List 1394) 1129.00 



Model I 

26-1140 Expansion Interface $249.00 

26-1141 16K Exp. Interface 359.00 

26-1142 32K Exp. Interface 469.00 

26-1145 RS 232C Board 84.00 

26-1160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26-1566 Visicalc 83.00 



PRINTERS 

26-1167 9'/ 2 Line Printer VII .... $ 360.00 

26-1166 Line Printer VI 1080.00 

26-1158 Daisy Wheel II 1798.00 

26-1165 Line Printer V 1710.00 

26-1401 Cable 36.00 



Color Computer 4K $353 

26-3001 4K $353.00 

26-3002 16K Ext. Basic 533 00 

26-3009 Joysticks 2250 

26-3010 Color Video 353 00 

26-1206 Recorder 54.OO 

All prices are subject to change without notice. Freight, handling, and 
insurance charges are extra. Most items are shipped United Parcel 
Service. Model II and other hardware weighting over 50 lbs. is ship- 
ped freight collect by truck. Certified Check for immediate shipment 
from stock. Master Charge, Visa or Bank Card add 3% surcharge. 



Vern Street Products 1 14 West Taft Sapulpa, Ok 74066 
The Computer Store, Inc. 4949 South Peoria Tulsa, Ok 74105 

918-747-9333 



(^111 
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if nothing is entered during the 
scan. The B' register contains 
the ASCII code for the character 
pressed, a value which may or 
may not equal that in A, depend- 
ing on the nature ot the charac- 
ter and whether or not Shift is 
depressed. The D'E' register pair 
has the value of the keyboard 
address line of the key pressed. 
For our purposes, the important 
detail is that H'L' contains the 
cursor location. 

After Enter is hit, the key scan 
loop falls through to line 480, 
which converts the string of nu- 
merals typed in and displayed 
into a hexadecimal, 16-bit num- 
ber. It scans video memory 
backward from the cursor loca- 
tion to find the string and con- 
verts it directly from memory, 
using the H'L' pair, so there is no 
need to fetch the cursor location 
out of 4068H. This calculation 
aborts if it produces overflow, a 
negative number or encounters 
a non-numeric input. In other 
words, it must get a number be- 
tween one and 32767 to pass to 
the next stage. If successful, be- 
ginning at line 940, Split search- 
es the resident Basic program 
for the correct line. This is easy 
since the byte ODH will only oc- 
cur at the end of a line. The pro- 
gram scans the Basic text, com- 
paring the two bytes after an 
ODH with the calculated num- 
ber. It will not take the first line 
of Basic (hence the start at 
4202H in line 950) and does not 
scan quite to the end of the pro- 
gram (which is fetched from 
406CH) to avoid reading the final 
carriage return and a coinciden- 
tal match with the garbage bits 
that follow it. If the search fails, 
the program restarts. 

When the program gets the 
address of the chosen line of 
Basic, the subroutine CTON is 
called. This asks if the lines be- 
low the breakpoint are to be 
saved on tape. In this case, the 
input comes not from ROM's key 
scan routine, but is taken direct- 
ly from keyboard addressing. If 
Enter is pressed, the program 
goes to ROM's turn-on-cassette 
routine at 0FE9H. Note this is 
done by a JP rather than a Call. 
This causes the program 
counter to return to line 1 180 di- 
rectly after the ROM routine 
ends. If Break or Clear is press- 
ed, the program restarts, allow- 



ing you to change your break- 
point. If one of the vertical arrow 
keys is pressed, the cassette is 
not turned on, and the value 
three is stored at 41A6H. 41A6H 
is where the displacement value 
of the relative jump at line 1220 
is located. As Split is recorded, 
this value is zero, which means 
line 1220 does nothing. If the 
value is changed to three, the 
CSAVE Call at line 1230 is skip- 
ped over. 

Finally, everything from the 
breakpoint to the end of the 
Basic program is block-moved 
down to 4200H. Radio Shack's 
published reentry point for Level 
I is 01C9H. So what's this 
OEECH in line 1360? Well, that's 
a branching point that ROM 
goes to after a CLOAD. For our 
program, it is necessary to store 
the new end-of-program address 
at 406CH. Reentering Basic at 
this address gets this done for 
us automatically. After this is 
done, ROM evaluates the Z-flag 
following the checksum test 



and goes to 01C9H if everything 
is okay. Since there is a test 
here, lines 1320-1340 of Split 
prepare for it by checking the 
last byte transferred, which 
should be the final carriage re- 
turn of the Basic program. If it 
isn't, it reflects something seri- 
ously wrong, and you'll get the 
old What? message. But this is 
one case in which you're not 
likely to see it pop up. 

Lines 1470 and 1480, by the 
way, self-test your Split to make 
sure it loaded correctly. If not, 
control goes to ROM address 
08C9H (the old What? again). 
The resident Basic program will 
not be messed up by the bad 
CLOAD (unless the addresses 
were misread, but that will pro- 
bably hang up the computer and 
require a reset), and the end-of- 
program marker will not be 
changed. 

The ADJ subroutine (lines 
1630 to the end) accomplishes 
the relocation of Split and the 
checksum adjustment. Note 



that the stack pointer is initially 
reassigned out of the way; 
otherwise, the transfer will 
crash into the stack defined by 
Basic. During the transfer, every 
byte moved is subtracted from 
the accumulator to calculate to 
checksum adjustment. Why 
subtract? The checksum is 
something of a misnomer for the 
final byte of a Basic tape dump. 
The final byte stored on tape is 
not the sum of the bytes of the 
program, but the two's comple- 
ment negation of the sum. The 
CLOAD routine test Is not per- 
formed by a CP instruction be- 
tween the value read and the 
value reached during the load. 
Rather, the checksum byte is ad- 
ded to the rest. This should give 
a final total of zero if everything 
went right. Hence we keep a run- 
ning subtract of the bytes as 
they are moved. 

Finally, the value 41 H is sub- 
tracted from that result. 41 H is 
the checksum byte we want at 
41FFH— the high byte of Split's 



starting address. This value is 
then POKEd into a convenient 
unused zero byte in the trans- 
ferred Split, and Split is ready to 
be CSAVEd by a call to the ROM 
routine. The Break key will get 
you out of the CSAVE loop, and 
the Enter key will keep making 
copies of Split. 

Splice 

Splice is the other side of the 
editing coin. It, too, loads into 
the safe zone below 4200H. You 
can CLOAD it with your com- 
puter's memory empty, but 
since Splice is made with the 
same checksum adjusted meth- 
od as Split, you can also begin 
with your first Basic program al- 
ready in memory. Splice is not a 
one-shot program like Split; it 
loops continuously until you 
Break, so you can merge as 
many programs as you want. 
Splice is very useful for reas- 
sembling programs debugged in 
modules and getting complex 
blocks of data statements ap- 





Program Listing 1 


4A55 39D9 
4A57 6F 


99679 
09689 


JR 

LD 


NC, START [INPUT 
L,A [STORE I 








4A58 2699 


996 99 


LD 


H,0 [CLEAR HI REG 








4 ASA 79 


90700 


LD 


A,C [CET DECIMAL CT 




00010 


;SPLIT 


4A5B 0C 


00710 


INC 


C (AND BUMP IT 




00020 


; LEVEL I BASIC EDITING UTILITY 


4A5C D5 


00720 


PUSH 


DE (SAVE CURRENT SUM 




00030 


(BY STEPHEN MILLS 


4A5D B7 


00730 SHIFT 


OR 


A [IS IT 9? 




00040 


; 


4A5E 2811 


007 40 


JR 


Z.DONE 




00050 


(SHORT UTILITY TO DIVIDE A LEVEL I BASIC 


4A60 29 


00750 


ADD 


HL.HL [DOUBLE ( 




00060 


(PROGRAM AT A SELECTED LINE NUMBER 


4A61 38C4 


00760 


JR 


C, START [CHECK OVERFLOW 




90070 


(LINES BELOW BREAKPOINT ARE SAVED TO 


4A63 E5 


99779 


PUSH 


BL (TRANSFER TO 




09989 


(CASSETTE, AND CONTROL IS RETURNED TO 


4A64 Dl 


997 89 


POP 


DE [ANOTHER REG 




00099 


(BASIC MONITOR WITH UPPER LINES. 


4A65 29 


997 99 


ADD 


HL,HL [DOUBLE RESULT 




99199 


(THIS EDTASM VERSION ASSEMBLES AT 4A00H 


4A66 38BF 


90800 


J P. 


C, START [CHECK OVERFLOW 




99119 


(TRANSFERS TO 4109B AND GENERATES A 


4A68 29 


00819 


ADD 


HL.HL [AGAIN FOR 




00129 


(259 BAUD LEVEL I LOADABLE COPY 


4A69 38BC 


00820 


JR 


C, ST ART [TIMES 8 


4A99 


99139 


ORG 4A00H 


4A6B 19 


00830 


ADD 


HL,DE [HL » 18 TIMES I 


0900 


00140 DIF 


DEFL STACK-41FEH (DISPLACEMENT 


4A6C 38B9 


00840 


JR 


C, START [OVERFLOW? 


4100 


00150 WRITE 


DEFL S-DIF 


4A6E 3D 


00850 


DEC 


A 


4A00 46 


00160 HWRITE 


LD B,(HL) (GET BYTE CT 


4A6F 20EC 


00860 


JR 


NZ, SHIFT 


4A01 DS 


09170 


PUSH DE (SAVE DE 


4A71 Dl 


00870 DONE 


POP 


DE [RESTORE SUM 


4A02 23 


00180 


INC HL (BUMP VIDEO PTR 


4A72 19 


00888 


ADD 


HL.DE [SUM ADDRESS 


4A03 7E 


00190 


LD A,(BL) (GET CHARACTER 


4A73 38B2 


00890 


JR 


C, ST ART [OVERFLOW? 


4Af4 D7 


00209 


RST 10H (LEVEL I DISPLAY 


4A75 EB 


00900 


EX 


DE.HL [PUT SUM IN DE 


4AI5 10FB 


99219 


DJNZ HWRITE+2 


4A76 18CF 


09919 


JR 


BUMP [GO FOR NEXT DIGIT 


4AI7 3E0D 


99229 


LD A.0DH (FOR CAR RET 


4A78 CB7C 


00920 BREAK 


BI7 


7,H (IS 1 NEGATIVE? 


4A99 D7 


90230 


RST 19H (WHEN DONE 


4A7A 20AB 


• 1930 


JR 


NZ, START [CANCEL IF SO 


4A(A Dl 


00240 


POP DE 


4A7C 2A6C40 


00940 


LD 


HL,(496CH) [END OF PROG 


4A0B C9 


00250 


RET 


4A7F 010242 


00950 


LD 


BC,4292H [BASIC TEXT 


410C 


00260 CTON 


DEFL S-DIF 


4A82 C5 


00960 


PUSH 


BC [HERE AFTER LINE 1 


4A0C 21CB41 


00270 


LD HL,CSMS (CASSETTE 


4A83 ED42 


00970 


SBC 


HL,BC [GET BYTE CT 


4A0F CD0041 


00280 


CALL WRITE (DISPLAY IT 


4A85 E5 


00980 


PUSH 


HL (AND MOVE IT 


4A12 3A4038 


00290 PAUSE 


LD A,(3849H) ( KEYSCAN 


4A86 CI 


00990 


POP 


BC [TO BC 


4A15 E61F 


00399 


AND 1FH (FORGET UPPER BITS 


4A87 El 


01000 


POP 


HL [START ADR IN HL 


4A17 28F9 


90319 


JR Z , PAUSE 


4A88 0B 


• 1919 


DEC 


BC [FORGET CHECKSUM 


4A19 IF 


99329 


RRA (SEE IF ENTER 


4A89 0B 


91*29 CMPR 


DEC 


BC [AND CAR RET 


4A1A DAE9IF 


99339 


JP C9FE9H (FINISH IN ROM 


4A8A 9B 


91939 


DEC 


BC [ADJUST COUNT 


4A1D E603 


99349 


AND 3 [BREAK OR CLEAR? 


4A8B 23 


91949 


INC 


HL [AFTER TEST ADJUSTMENT 


4A1F 2006 


90350 


JR NZ, START (ABORT IF SO 


4A8C 3E9D 


11959 


LD 


A, 13 [END OF LINE INDICATOR 


4A21 3E03 


00360 


LD A, 3 (RELATIVE JUMP 1 


4A8E EDB1 


91969 


CPIR 


[RESTART IF LINE NOT 


4A23 32A641 


08370 


LD (41A6H),A ( LOAD USECAS+1 


4A98 2995 


01070 


JR 


NZ, START- [FOUND 


4A26 C9 


00380 


RET 


4A92 7E 


01080 


LD 


A, (HLI [GET LOW ADR 


4127 


00390 LSTART 


DEFL S-DIF 


4A93 23 


911190 


INC 


HL [POINTS TO HI-BYTE 


4A27 310942 


00400 START 


LD SP,4200H ,-REINIT STACK 


4A94 BB 


81100 


CP 


E [MATCH E? 


4A2A 2199F7 


00410 


LD HL.STMS (MESSAGE 


4A95 29F2 


01110 


JP 


NZ.CMPR [RECYCLE 


4A2D CD0041 


09429 


CALL WRITE 


4A97 7E 


01120 


LD 


A,(HL) [GET HI ADDR 


4A3I CD410B 


09439 HTZ 


CALL 0B40B 


KEYSCAN 


4A98 BA 


01130 


CP 


D (SEE IF MATCH 


4A33 PE0C 


99449 


CP 9CH 


CLS? 


4A99 20EE 


91149 


JR 


NZ.CMPR ,-REDO IF NO MATCH 


4A35 28F0 


99459 


JR Z, ST ART 


YES-START OVER 


4A9B 2B 


91159 HATCH 
• 1169 


DEC 


HL [BACK TO LOW ADR 


4A37 FEID 


99460 


CP 9DH 


CAR RETURN? 


4A9C EB 


EX 


DE.HL [SET ASIDE 


4A39 1 .':-■■ 


99479 


JR NZ.WTI 


NO, SCAN AGAIN 


4A9D CD0C41 


91179 


CALL 


CTON [START CASSETTE 


4A3B D9 


09489 


EXX (GO TO PRIME REGISTERS 


4AA0 210042 


01180 


LD 


HL.4299H [BASIC ADR 


4A3C 3E20 


00490 


LD A.29H (ASCII FOR BLANK 


4AA3 E5 


01190 


PUSH 


HL [SAVE IT 


4A3E 2B 
4A3F BE 
4A40 28FC 
4A42 D9 
4A43 AF 
4A44 5F 
4A45 4F 
4A46 57 
4A47 D9 
4A4B 7E 
4A49 2B 
4A4A D9 
4A4B FE29 


00500 NOBL 
00510 


DEC BL [DEC VIDEO POINTER 


4AA4 D5 


01200 


PUSH 


DE [SAVE ADDRESS 


CP (HL) [IS IT BLANK? 


41A5 


01210 USECAS 


DEFL 


S-DIF [BRANCH MADE BY CTON 


09529 

99539 

09549 

99559 

99569 

99579 

99589 BUMP 

99590 


JR Z.NOBL [YES-KEEP GOING 

EXX [CHANGE REGISTERS 

XOR A (CLEAR A 

LD B,A [CLEAR E 

LD C,A (CLEAR C 

LD D,A [ZERO D 

EXX 

LD A, HL 


4AA5 1800 
4AA7 CD4B0F 
4AAA 2A6C40 
4AAD Dl . 
4AAE ED52 
4AB0 B5 
4AB1 CI 
4AB2 El 


01220 
01230 
01240 
01250 
01269 
91279 
91219 
91299 


JR 

CALL 

LD 

POP 

SBC 

PUSH 

POP 

POP 


S+2 [DEFINES 9 JUMP 
9F4BH [SAVE PROGRAM 1 
HL,(496CB) [PROG TAIL 
DE [RESTORE ADDR 
HL.DE ,-CALC NEW PROG LENGTH 
HL (MOVE TO BYTE 
BC [ COUNTER 
HL [GET 4299H 


99699 

99619 
00620 


DEC HL 
EXX 

CP 2BH [SEE IF END OF 


4AB3 EB 
4AB4 EDB0 


91390 
01310 


EX 

LDIR 


DE.HL (SWAP 
[PROGRAM IS CUT DOWN 


4AB6 2B 


01320 


DEC 


HL (GET LAST TRANSFER 


4A4D 2829 


00630 


JR Z, BREAK [INPUT 










♦MP D639 


88640. 


SUB 38H I SUB ASCII 










4A51 38D4 
4A53 FEIA 


00650 
00660 


JR C, ST ART [AND TEST 
CP It [FOR VALID 






Program continues 
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Program continued 












01330 




LD 


A,(BL) >AND SEE IF CAR RET 




FE0D 


01340 




CP 


■DH /POR 'CHECKSUM' 






01350 




EX 


DE.HL iGET END ADR IN HL FOR 


4ABB 


C3ECBE 


B136B 




JP 


BEECH /RETURN TO BASIC 


41BE 




01370 


STMS 


DEFL 


HISTMS-9B0H 


4ABE 


ec 


0138B 


HISTMS 


DEFB 


12 /MESSAGE LENGTH 


4ABF 


ec 


01390 




DEFB 


0DH (CAR RET 


4ACB 


42 


01400 




DEFH 


' BREAKPOINT? ' 


41CB 




01411 


CSHS 


DEFL 


S-900H 


4ACB 


1C 


■ 1421 


HICSMS 


DEFB 


28 ; FINAL MESSAGE LENGTH 


4ACC 


3C 


■ 1430 




DEFH 


■<ENTER> TO CSAVE' 


4 ADC 


BD 


01440 




DEFB 


13 ;CAR RET 


4 ADD 


5C 


■ 1450 




DEFB 


5CH /VERTICAL ARROW 


4ADE 


2> 


01460 




DEFH 


' TO DELETE' 


4AE8 


CA2741 


01470 


TEST 


JP 


Z,LSTART /CHECKSUM 


4AEB 


C2C9B8 


01480 




JP 


NZ.08C9H /TEST 


4AEE 


B8B0 


01490 




DEFH 


/THIS IS 


4AM 


BBBB 


01500 




DEFW 


/ STACK 


4AP2 


BBBB 


01510 




DEFW 


/AREA 


4AF4 


BBBB 


01520 




DEFW 





4AFe 


BBBB 


B153B 




DEFW 


• /ALL 


4AF8 


BBBB 


■154( 




DEFW 


■ /BYTES 


4AFA 


BBBB 


■ 155( 




DEFW 


/ EQUAL 


4AFC 


BBBB 


11561 




DEFW 


■ / ZERO 


4AFE 


E8 


■ 1571 


STACK 


DEFB 


TEST4 0PFH /LO ADR BYTE 






■ 1580 




; REMAINDER OF LISTING MOVES 






01590 




; ASSEMBLED PROGRAM TO BELOW 






01600 




; LEVEL 


I BASIC STARTING 






01610 




(ADDRESS AND CSAVES IT 






01620 




;FOR 25B BAUD LOADING 


4AFF 


..1FE49 


01630 


ADJ 


LD 


SP.49FEH 


4Bt2 


11PE41 


01640 




LD 


DE.41FEH 


4BBS 


21FE4A 


11650 




LD 


BL.4AFEH 


on 


S1FFBI 


01660 


B 


LD 


BC0FFH /BYTE CT. 


4BIB 


AF 


01670 




XOR 


A /CLEAR A 


IMC 


96 


01680 


TRANS 


S'JB 


(HL) /DO CHECKSUM 


4BSD 


EDA8 


01690 




LDD 


/BLOCK MOVE 


4B0F 


EA0C4B 


01700 




JP 


PE, TRANS 


4B12 


D641 


01710 




SOB 


41H /MODIFY 


4B14 


32PD41 


01720 




LD 


(41FDH) ,A /POKE IT 


4B17 


21CB4A 


01730 


DUMPIT 


LD 


HL, HICSMS 


4B1A 


0611 


B1740 




LD 


B,17 /PARTIAL MESSAGE 


4B1C 


CDB14A 


■ 1750 




CALL 


BWRITE+1 /PREPARE CASSETTE 


4B1F 


CD40BB 


01760 


DLOOP 


CALL 


0B408 ;KB INPUT 


4B22 


FEI3 


■ 1770 




CP 


3 


4B24 


CAC901 


01780 




JP 


Z.01C9B /BREAK TO BASIC 


4B27 


FE0D 


01790 




CP 


13 /ENTER 


4B29 


20F4 


01800 




JR 


NZ, DLOOP 


4B2B 


CDE90F 


01810 




CALL 


0PE9B /CASSETTE ON 


4B2E 


210041 


01820 




LD 


HL.41B0H /START ADR 


4B31 


11FF41 


01830 




LD 


DE.41FPH /END+1 ADR 


4B34 


CD4B0F 


01840 




CALL 


0F4BH /FOR LEVEL I 


4B37 


18DE 


01850 




JR 


DUMPIT /REDO IF DESIRED 


4AFF 




B1999 




END 


ADJ 



pended to the program that uses 
them. The programs are stacked 
up in the order in which they are 
CLOADed. So you must load the 
pieces so their line numbers are 
ascending and don't duplicate 
or cross each other. Splice will 
give you an error message if the 
program you're trying to load is 
clearly not in Basic (i.e., it 
doesn't start at 4200H); your 
RAM is exhausted; or a check- 
sum error occurs. 

Unlike ROM's CLOAD routine, 
a badly loaded program is not 
added to the stack. That is, 
Splice tests the checksum be- 
fore it modifies the end-of-pro- 
gram address 406CH and does 
not modify it on a checksum er- 
ror. This maintains the integrity 
of your expanding program. 

The heart of Splice begins at 
line 430. Basically, I have taken 
part of ROM's CLOAD routine 
and modified it to give the desir- 
ed results. The critical part of 
the CLOAD concerns the ad- 
dresses to be filled. After this 
part of the program is complet- 
ed, control jumps to ROM (line 



700) to finish the input and re- 
turns for the checksum test, 
end-of-program update and 
more merges. The address 
pushed in lines 430-440 is used 
for the ROM subroutine's return. 

I could not call that subrou- 
tine at line 700 because of inter- 
vening stack operations (see 
line 470). There is a POP DE in- 
struction near the end of the 
ROM routine (in 0F37H) which 
answers a PUSH DE at 0EF4H, 
an address skipped over by our 
modification of the CLOAD. 
Therefore, the return address 
had to be PUSHed before the DE 
PUSH to make the stack work 
correctly. The last-in, first-out 
stack action does not distin- 
guish between register PUSHes 
and subroutine Call storage. 
Without this adjustment, our re- 
turn address would have been 
POPped into DE at 0F37H, and 
program execution would have 
crashed into who knows what. 

Normally during a CLOAD, 
the starting and ending address- 
es are read off the tape, and 
these values control the input. 







Volume I: The most comprehensive 
book yet on the math routines in 
Level II ROM. Models I & III. In- 
cludes a fully commented listing 
from 0708H to 1607H and an in- 
credibly complete map of the ROM 
and reserved areas of RAM. 



THE 



RS_-80 ,m ROM 




If you ever do Assembly language program 
ming, or you just want to know more about 
your TRS-80 ROM, "THE BOOK"s are for you. 

•TRS-80 is a trademark ol Tandy Corp. 

Each volume is priced at: $14.95 + $1.50 
S&H = $16.45 ($17.05 in VA) Overseas add 
$2.50 for air shipment 

| Insiders Software Consultants, Inc. 
P.O. Box 2441, Dept. SUM2 
Springfield, VA 22152 

Please send me Volume I of THE BOOK 

LJ Please send me Volume II of THE BOOK 



^305 



NAME 

ADDRESS 

CITY. STATE. 




ZIP CODE 

Check payable lo Insiders Software Consultants. Inc 

MASTER CHARGE MC Bank Code 

VISA Exp Date Card Number 

Signature 



Dealer Inquiries Invited 



Volume II: Everything you want to 
know about the video, keyboard, 
cassette, and printer driver 
routines. Learn how to write your 
own! Remarkably detailed listings 
illustrate well-commented source 
code. Complement Volume I. now. 
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the software source 



Visit our new Retail Center at 20 Jericho Tpke.. Jericho. 
Long Island. NY. Call (516) 333 2266 lor hours S directions. 







ORCHESTRA 85 





TRS-80 MODEL I 16K TAPE OR DISK 

Jon Bokelman and Software Affair score again! Now there's a 
music/sound generating system even more powerful and ver- 
satile than their extremely popular Orchestra 80! 

Listen to what It doer 

ORCHESTRA 85 plays in sfereo, permits channel switching 
allows stereo separation by both instrument and voice, and 
supports percussion effects. 

ORCHESTRA 85 supports four voices (plus a fifth if a speed-up modi- 
fication is installed). 

ORCHESTRA 85 loads Orchestra 80 music (hundreds of songs), plays 
it in stereo. Compose! Orchestrate! Trade with others' 

Listen to what's Included: 

Software digital synthesizer, music language compiler, full screen 

editor, file manager, voice initialization utility. 

Hardware: a single PC board that plugs into expansion connector on 
on keyboard or into screen printer port on expansion interface Con- 
nects to any stereo amplifier system; external power source not required. 

Unit does not void your Radio Shack warrantee. Comes complete 
with tape and disk versions of software, detailed instruction 
manual, sample music programs. (Speakers, amplifiers not included.) 

All at a price that's music to your ears: ONLY 



TRS-80 is a trademark of Tandy Radio Shack Corp 



$129 00 



7U»f 



MIZ SPFXL 



TRS-80 MODEL I 48K DISK (Soon available for Models II & III) 
Picture the fastest, most accurate schoolteacher you ever had, point- 
ing out all your spelling errors so you can correct them instantly. 
This new spelling checker for Electric Pencil and Scripsit files is 
modeled after her: it's virtually impossible to misspell with MIZ SPELL! 
Unlike other spelling checking programs: 
MIZ SPELL will operate on one or more disc drives. (Some others 
require a minimum of two.) 

MIZ SPELL will work with words of any length. (Others have limits 
on maximum word length.) 

MIZ SPELL is interactive, you can correct mistakes as they are 
pointed out (Some others require multiple, time-consuming 
passes.) 

Check these features vs. other spelling checkers: 
MIZ SPELL maintains separate dictionaries for specialized vo- 
cabulanes. each with a 27,000 word capacity. (1 8,000 included ) 
MIZ SPELL permits examination of unused dictionary space and 
allocation of space for new dictionaries. 
MIZ SPELL learns new words from your text files as it check for 
spelling errors. (Words can also be deleted from the dictionary— 
but not accidentally, as with some other programs.) 
MIZ SPELL offers such options as: ignore word in text, delete word 
in text, change word in text, add all remaining words, etc. 
MIZ SPELL permits user configuration of system, including specifi- 
cation of default extensions for original and corrected text file 
Now check the low Introductory price: ONLY 



Meet author ARNOLD SCHAEFFER 

Attends Georgia Tech starting Fail. 1981. 

plans to major in computer science First 

exposed to computers in 6th grade sold 

program at age 16 Characterizes 

self as not a good speller", was 

nspired to write MIZ SPELL when 

he examined available 

programming in store decided 

it could have been done 

much better 



DEALER INQUIRIES INVITED. MIZ SPELL is published by SotPuC. 
inc For ■ntormation. contact Richard Taylor President. Programs 
Uni*niled at the address or phone numbers shown below 



$4995 




ATTENTION. SOFTWARE AUTHORS. So/Pub inc. may be the aggres- 
sive marketer youve been seeking lot your programs for oetans. contact 
Richard Taylor. Programs Ununited at the address ot phone below 



ij/Niii Tf\ f^DDPD' Ad0 »' °° ,or Postage ana nananng 
nUW I V W»ni/cn. NY Resents aM ^^s tax 

CALL TOLL FREE: (800) 645-6038 (except NY*) 

COMPUTER TO COMPUTER: (516) 334-3134 

WRITE: Dept. 881 M, Box 265. Jericho. NY 1 1 753 




IRIRIIIil^^^^^^^^S 



FULL GUARANTEE 

II for any reason dissatisfied with any purchase from PROGRAMS 
UNLIMITED, return merchandise in original condition and pack- 
aging for prompt, full refund 



•NY State residents caH 516- 997-8668 
(Call collect tor orders only, please) 



• See Ust ot Advert fen on page 354 



80 Microcomputing, September 1981 • 235 



After each input byte, the value 
\r\DE (initially the start address) 
is incremented, and the com- 
puter looks for more input until 
the value in DE equals the end 
address. We cannot allow the 
values on tape to control the in- 
put, however, because the pro- 
grams would simply be written 
over each other, always starting 
at 4200H. By Splice, the starting 
address is replaced by the old 
end-of-program value from 
406CH. The length & of the pro- 
gram is calculated from Jhe 
values read from tfie tape and 
used to calculate the new end- 
of-program. With that work 
done, RQM's routine can handle 
the actual program bytes. One 
of the CLOAD asterisks is re- 
placed by a*plus sign to indicate 
that a merge is taking place 
(lines 520-530). 

ADJ Subroutine 

The ADJ subroutine does for 
Splice what it did for Split, al- 
though there are some differ- 
ences in the way it was written. 



Split had a Ready Cassette pro- 
gram as part of its own message 
buffers, but Splice does not, so 
the Query message (line 1340) 
was added to the ADJ subrou- 
tine. Also, there is no difference 
in effect between simply sub- 
tracting the transferred program 
bytes and adding them with a 
negation of the final sum. As a 



assembly language program. 
This requires using some con- 
sistent labels, although the 
values will vary from one pro- 
gram to the next. 

Your main program must de- 
fine all JP, Call and LD instruc- 
tions by reference to Dl F. It must 
also provide a certain amount of 
free space below 4200H for 



"In Split and Splice, 

the high-order byte 

of the entry point was 41 H, 

but it need not be this value. " 



matter of fact, ROM does it the 
latter way. 

Using assembly language, it 
would be possible to generalize 
ADJ for any program you might 
want to load with the low-core, 
checksum, modified technique. 
You could then assemble a ver- 
sion of ADJ, save it on tape and 
load it after you've finished your 




ZIP UP YOUR 
MODEL I 



SPEED-UP UNIT - an easy to install electronic device that enables programs 
to run 2 to 3 times faster. It's the fastest and finest quality speed-up unit 
on the market. 

• guaranteed to double processing speed- no additional 
purchases required. 

• programs will run up to 3 times faster (5.3 mhz) by adding 
a Z8QB microprocessor and delay line - not supplied. 

• returns automatically to normal speed during disk and 
cassette operation - no software patches required. 

• keyboard power-on light changes color to indicate operating 
speed. 

$45.00 



VIDEO I. Reverses the video display to provide black characters and 
graphics on an all white screen for a much easier to read presentation 
Software controlled. Cures pulling and distortion problems commonly ex- 
perienced with TRS-80 monitors. For use with TRS-80 monitors only 
Assembled. 

$24.00 



"SATISFACTION GUARANTEED" 



Add $2.00 postage & handling - California residents add 6% sales tax 
-Foreign orders add 15%. 



ARCHBOLD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 

fj* (916) 635-5408 

J^™ Dealer inquiries invited 
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stack operations. Even if your 
program does not leave the 
stack there, remember that it is 
working during the CLOAD itself 
and if part of your program goes 
there, it will be changed before 
your program is ever run. This is 
the purpose of the string of 



DEFW lines in Split and Splice. 

Let's assume you regularly 
label the first byte of the pro- 
gram Head and your entry point 
Entry. You can then use your 
labels, plus your knowledge of 
the constant values like 41 FEH, 
to handle the block-transfer, 
checksum adjustment and cas- 
sette dump. There are certain 
logical operations which Radio 
Shack's Editor/Assembler sup- 
ports which are useful here. The 
value that eventually goes into 
41 FEH, the low-order byte of 
your starting address, can be 
specified Tail, DEFB, Entry and 
0FFH. The label Tail can be used 
to calculate the displacement, 
which is DIF, DEFL TAIL— 
41FEH. 

In Split and Splice, the high- 
order byte of the entry point was 
41 H, but it need not be this 
value. To avoid manual assem- 
bly on this matter, you can use: 
HIBYTE DEFL ENTRY<-8, and 
the value HIBYTE in the check- 



Program Listing 2 



0900 
4100 
4A00 
4A01 
4104 
4A04 
4A05 
4A06 
4A07 
4A09 
4A0B 
4A0C 
410D 
4A0D 
4A0F 
4A13 
4A14 
4A16 
4A18 
4A1C 
4A1F 
4A21 
4A24 
4A27 
4A2A 
4A2C 
4A2F 
4A30 
4A32 
4A35 
4A36 
4A39 
4A3C 
4A3D 
4A3E 
4A41 
4A43 
4A45 
4A47 
4A4A 
4A4B 
4A4E 
4A51 
4A52 
4A54 
4A57 
4AS8 
4A5A 
4A5D 
4A5E 
4A61 



10FB 
3E0D 



205E 

ED5B6A4I 

EB 

EDS2 

3855 

ED536C4I 

310042 

062A 

217A41 

CD0441 

3A4038 

CB57 

C2C901 

IF 

30P5 

210D41 

E5 

CDE90F 

110042 

D5 

AF 

CD810P 

FEA5 

20F9 

3E2B 

32003C 

3D 

32013C 

CDA10F 



2019 
CDA10F 



2013 
CDA10F 



CDA10F 
6P 



00010 
00020 
00030 
00040 
00050 
00060 
00070 



00110 

00120 

00130 

00140 

00150 DIF 

00160 BAD 

00170 

00180 

00190 DISPLA 

00200 SHOW 

00210 

00220 

00230 

00240 

00250 

00260 

00270 CONTNU 

00280 

00290 

00300 

00310 

00320 

00330 

00340 RESET 

00350 

00360 

00370 

00380 PAUSE 

00390 

00400 

00410 

00420 

00430 MERGE 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 



(SPLICE 

;LEVEL I BASIC UTILITY 

[BY STEPHEN MILLS 

;ALLOWS STACKING OF SEVERAL BASIC 

.•PROGRAMS FROM CASSETTE. 

; PROGRAMS MUST BE ENTERED 

;SO THAT LINE NUMBERS ARE ASCENDING 

1 (THOSE WITH LOWER It FIRST) 

;AND EXCLUSIVE. 

ORG 4A00H 

,-NOTE: THIS EDTASM ASSEMBLER PLACES 

; PROGRAM AT 4A00H, BUT ON ENTRY IT 

; BLOCK-MOVES TO 4100H AND CREATES A 

;250-BAUD LEVEL I LOADABLE TAPE. 



EQU 

EQU 

DEFB 

DEFM 

EQU 

LD 

INC 

RST 

DJNZ 

LD 

RST 

RET 

EQU 

JR 

LD 

EX 

SBC 

JR 



CALL 

LD 

BIT 

JP 

RRA 

JR 

LD 

PUSH 

CALL 

LD 

PUSH 

XOR 

CALL 

CP 

JR 

LD 

LD 

DEC 

LD 

CALL 

CP 

JR 

CALL 

CP 

JR 

CALL 

LD 

CALL 

LD 



900H 
4100H 

13 

'BAD' 
S-DIF 
A,(HL) 



; DISPLACEMENT 
;CAR RET 



/GET ASCII 
HL ;AND BUMP 
10H ;VIDEO DISPLAY 
SHOW (DISPLAY LENGTH 
A,0DH ;IN B, MESSAGE ADDRESS 
1»H ) IN HL 
;CARG RET AT END 
S-DIF 

NZ,FAIL [CHECKSUM TEST 
DE, (406AH) [MEM TOP 
DE,HL ;SWAP FOR TEST 
HL.DE ;SEE IF IT FITS 
C.FAIL ;DON'T TAKE IT 
(406CH),DE (UPDATE PROG END 
SP.4200H (REINIT STACK 

B.MESSL (SET MAIN MESSAGE 
HL.MESG (GET ADDRESS 
DISPLA (SHOW IT 

A,(3840H) (GET COMMAND MEM 
2, A (BREAK KEY 
NZ,01C9H 
(FIRST BIT=ENTER 
NC, PAUSE 

HL, CONTNU (RET ADDRESS 
HL (PUSH FOR CALL 
0FE9H (TURN ON CASSETTE 
DE.4200H [WHERE BASIC STARTS 

DE [BALANCE STACK 
A 

0F81H (CALL BYTE SEARCH 
0A5H [SYNC BYTE? 
NZ.S-5 [REDO IF NOT 
A.2BH [SET t FLASHER 
(3C00H) ,A 

A [ASTERISK NOW 
(3C01H) ,A 
0FA1H [READ 
D [SHOULD MATCH 
NZ,FAIL [QUIT IF NOT 
0FA1H [READ LO BYTE 
[SHOULD BE 00 



NZ,FAIL 
0FA1H 

11, A 

0FA1H 

L,A 



[LAST BYTE 
[ADDRESS 
[READ 
(IN 



sum adjustment calculation 
SUB HIBYTE. 

With ADJ you have a valuable 
tool for other assembly lan- 
guage programs, including 
other possibilities to facilitate 
working within the confines of 
Level I Basic. Other I/O opera- 
tions possible are adding file 
name search to your CLOADs, 
speeding up your load rate or 
driving a line printer for hard 
copy dumps of your programs. 
Other editing aids, like line re- 
numbering and relocation, are 
also available. It's not quite as 
easy as typing out a command 
in Level II, but the programs are 
so short that they load in an in- 
stant. 

By the way, if you re wonder- 
ing what happens if you merge 
programs so the line numbers 
are out of sequence, try it and 
see. You'll get a weird assort- 
ment of results. Evidently Level I 
can only do its sorting and as- 
sembling from the keyboard. 



When Splice loads them in a 
mixed state, they will simply 
stack up out of order. Some of 
them will even run like that. But 
if you have, say, a line 100 stack- 
ed above a line 200, you won't be 
able to access it by Basic com- 
mand in most cases. 

The search technique used 
for editing, GOTO and GOSUB 
expects the lines to be in order 
and will not proceed beyond the 
barrier set by an out-of-se- 
quence line number. Also, lower- 
numbered lines are sometimes 
deleted after an out-of-se- 
quence merge, but I don't under- 
stand the selectivity of this. 
Split can help you out of such 
messes, since it will read 
through a whole program look- 
ing for a specified line (but in 
case there are two or more line 
100s, it will go with the first one). 
You may want to meet the chal- 
lenge yourself by writing a sort- 
ing, line renumberer or additive 
line adjustment program. ■ 



4A62 


B7 


01661 




OR 


A | RESET CARRY 


4A63 


EDS 2 


00670 




SBC 


BL.DE ; PROGRAM LENGTH 


4A65 


ED5B6C46 


116 80 




LD 


DE,(4«6CH) (CURRENT END 


4A69 


19 


80698 




ADD 


HL.DE ;CALC NEW END 


4A6A 


D2180F 


91718 




JP 


NC,IF18H ; FINISH IN ROM 


4AC0 


CDE48P 


18719 


FAIL 


CALL 


0FE4H /TURN OFF CASSETTE 


4A7» 


■614 


88728 




LD 


u, 4 ;MESS LENGTH 


4A72 


21(141 


88738 




LD 


HL.BAD ; MESSAGE 


4A75 


CDB4 41 


887 48 




CALL 


DISPLA ! PROGRAM LENGTH 


4A7S 


18A2 


88753 




JR 


RESET )N0T INCREASED 


417A 




81768 


MESG 


EQU 


8-DIP 


4A7A 


ID 


01771 


HAIMMS 


DEFB 


8DH ; INSTRUCTION 


4A7B 


58 


017 81 




DEFH 


'PRESS: ' 


4A81 


ID 


117 98 




DEFB 


•DH /DISPLAY 


4A82 


3C 


00801 




DEFH 


'<ENTER> TO MERGE 


4A92 


ID 


• 1818 




DEFB 


•DB ,-CAR RET 


4A93 


3C 


88821 




DEFM 


'<BREAK> WHEN DONE' 


II2A 




88838 


HESSL 


EQO 


S-HAIKMS 


4AA4 


II 


88848 




NOP 




41A5 




88858 


HEAD 


EQU 


S-DIF 


4AA5 


IC 


• 8861 


B I BEAD 


DEFB 


■CB /CLEAR SCREEN 


4AA6 


ID 


88878 




DEFB 


13 (SPACE FOR FLASHER 


4AA7 


4C 


11888 




DEFH 


'LEVEL 1 HERGE PROGRAM' 


4ABC 


ID 


11898 




DEFB 


•DB 


4ABD 


4C 


88988 




DEFH 


'LIMB NUMBERS MUST BE SUCCESS I 


••37 




18910 


BEDL 


EQU 


S-HIHEAD 


4 ADC 


II 


• •921 




NOP 




41D0 




• •931 


START 


EQU 


8-DIF 


4ADD 


C2ECIE 


• •941 




JP 


NX.IEBCH 


4AE( 


311142 


• 8958 




LD 


SP,42MB 


4AZ3 


•637 


68969 




LD 


B.BEDL (HESSG LENGTH 


4AE5 


21A541 


10970 




LD 


HL,BEAD 


4AE8 


CDI441 


11988 




CALL 


DISPLA 


4AEB 


C31C41 


68999 




JP 


RESET-DIF 


4AEE 


• III 


91666 


CKSUM 


DEFW 


• ; CHECKSUM ADJ 


4AF( 


III! 


• UK 




DEFW 


• (STACK 


4AF2 


8018 


01820 




DEFW 


• 


4AF4 


8900 


11138 




DEFW 





4AP6 


8810 


01041 




DEFH 





4AF8 


0000 


• 1«5« 




DEFW 





4AFA 


0000 


01868 




DEFH 


8 


4APC 


0010 


81178 




DEFW 


8 (AREA 


4AFE 


DD 


81681 


TAIL 


DEFB 


START-4181H (LOW ADR 


4APP 


31FF4A 


81698 


ADJ 


LD 


SP,8 (DON'T WANT STACK IN 


4B(2 


11FE41 


81188 




LD 


DE,41FEH (TRANSFER ZONE 


4BI5 


21FE4A 


81110 




LD 


HL,TAIL 


4B88 


I1FFII 


• 112* 




LD 


BC.ADJ-4A00H 


4BIB 


AP 


•113* 




XOR 


A /CLEAR A 


4BIC 


86 


• 1140 


BLOCK 


ADD 


A,(BL) ; CHECKSUM 


4B8D 


EDA 8 


• 1150 




LOO 


(BLOCK HOVE 


4BIF 


EAIC4B 


01160 




JP 


PE, BLOCK 


4B12 


ED44 


• 1171 




NEG 


/NEGATE A 


4B14 


D641 


11181 




SUB 


41 B (MODIFY CHECKSUM 


4B18 


32EE41 


• 1191 




LD 


(CKSUM-DIP) ,A 


4B19 


213C4B 


■ 12M 


TLP 


LD 


HL, QUERY (ASK FOR 


4B1C 


I6ID 


• 121* 




LD 


B,13 /251 BAUD COPIES 


4B1E 


CDI44A 


• 1221 




CALL 


SBOW /ASK ABOUT COPY 


4B21 


CD4IIB 


• 1231 


QWAIT 


CALL 


•B4IH (KEYSCAN 


4B24 


FE83 


• 1240 




CP 


3 /BREAK? 


4B26 


CAC9I1 


• 1258 




JP 


I,»1C9H /BACK TO BASIC 


4B29 


FBID 


6126( 




CP 


13 /EJTTER? 


4B2B 


21P4 


• 1271 




JR 


NX, QWAIT 


4B2D 


CDE9IF 


1128* 




CALL 


• FE9H 


4B31 


211141 


01290 




LD 


HL.41MH 


4B33 


11FF41 


61366 




LD 


DE.41FFH 


4B36 


CD4BIF 


•13K 




CALL 


• F4BB 


4B39 


AF 


• 1321 




XOR 


A /SET Z FLAG 


4B3A 


18DD 


11331 




JR 


TLP /LOOP POR MORE COPIES 


4B3C 


43 


• 134* 


QUERY 


DEFH 


'CSAVE SPLICE?' 


4APF 




11999 




END 


ADJ 



for the I to- 80 from Micro- Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. ■ 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 
The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I or Model III) 

THE GREEN-SCREEN $13.95 

Add $1.50 for postage and handling. 

THE ULTIMATE STAR TREK PACKAGE 



Tired of trivial computer games? This complete Star Trek 
package will provide you with endless fascination and 
challenge. In addition to the program cassette, it includes 
comprehensive instructions, a pad of "Voyage Log" record 
sheets, and a free-standing "Torpedo and Maneuvering 
Chart. " 

The package is built around the latest version of Lance 
Mick I us' incomparable Star Trek III, a 13,000 byte program 
with a host of subtle and imaginative features, which in- 
clude numerous dynamic and spectacular graphic displays. 
Star Trek III puts you in command of the Enterprise cruising 
in a galaxy of 192 quadrants filled with uncharted hazards, 
including hostile Klingons, pulsars, and black holes. You 
have at your disposal scanners, various weapons and 
defense systems, on-board computers, and a loyal crew. 
(You will need them all to survive the Klingons.) 
Your mission is to rid the region of Klingons and to locate 
five inhabitable planets, all within 300 stardays, before re- 
turning to Star Fleet Headquarters where your overall effec- 
tiveness as a starship commander will be scored. High 
scores are possible only with careful planning and effective 
battle tactics. The "Voyage Log" sheets will guide your 
strategy, and the "Torpedo and Maneuvering Chart" will 
give you a vital edge in combat. (When you engage three 
Klingon ships you can't afford to miss.) 




STAR TREK PACKAGEftor Level II. 16Konly). 
Add $2.00 for postage and handling. 



$22 95 



Terms: Check or money order, no CODs or credit cards, please Add amount 
shown lor postage and handling to price of the item. All items shipped within 48 
hours by first class or priority mail. Virginia residents, add 4% sales tax. 



Micro- Mi -qa • P.O. Box 6265 ■ Arlington, \/a 222Q6 
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TENPINS 



SPACE ROCKS 

By Steven K earns from Acorn 
Clgantlc antimatter rocks appear on the Tact 
i«" Display Screen of your spacecraft. You 
blast away with lasers and they just explode 
into smaller chunks. To score in this fast ar- 
cade game with sound, you must destroy the 
rocks. To stay in the game at all, you must 
avoid them! 

To add to your woes, time bombs appear peri 
odically. If their timers reach lero BOOM! 
And if that's not enough, the aliens will be 
glad to send out some spaceships loaded with 
antimatter torpedoes. Fire thrusters to move, 
shoot laser cannon, jump to hyperspace 
anything to avoid the onslaught. One or two 
players can compete, with five levels of dif- 
ficulty . 

16K protected tape.. .-$19.95 
32K protected disk. . .$19.95 



GOLFER'S 
CHALLENGE 




By Charles Butler from Liberty 
Take on the formidable "Liberty Links" golf 
course by yourself or with a friend. The 
course changes each time you play, offering 
18 holes replete with doglegs, trees, water 
hazards, sand traps, and out of bounds ar 
eas. You choose your club and the direction 
you wish the ball to go, but watch out for the 
breeie or a poor hit it can play havoc with 

your shot! 

16K tape. ..S14.95 32K disk . . . S18. 95 



ALIEN ARMADA 

By Waldron Hodsdon from Liberty 
Hmmm. Looks like another "Space Invaders" 
type game. Nice neat ranks of aliens poised 
over your defensive base . . . but WATCH 
OUT! Here they come, swooping down with 
their bombs and Kamakazi like dives. There 
are individual attackers plus group flights -- 
all intent on destroying your three bases be 
fore you destroy them. ALIEN ARMADA al 
lows up to two players and has three levels of 
difficulty from beginner to expert. 

16K tape... $14. 95 32K disk. . . S18. 95 



By John Allen from Acorn 

TENPINS brings you all the thrills of champ 
ionship bowling. Up to four players partici- 
pate, and the program automatically senses 
the skill of each. Beginners can simply pos 
ition the ball and "roll" it while more skilled 
players can vary the force, roll a curve, and 
cause it to spin as it heads for the pins. All 
this plus 3-D graphics and sound effects 

adds up to a realistic and thoroughly 
challenging bowling game. 

Protected tape. . .$14.95 
Protected disk. . .$20.95 




By Sparky Starks w from Adventure Int. 
As mercenary and galactic police officer, you 
must maintain the condition and control of all 
parts of your spacecraft. You sit at the con 
trols while peering out of the digital space 
view port. Suddenly something appears on 
your screen: is it a Starplrate or a friendly 
merchant ship? You can't tell yet, and at this 
speed you may have only a fraction of a sec 
ond to make an attack no attack decision. 

Speed and sound effects enhance the graphic 
action of this tactical game. Can you take the 
pressure? 

Model I till. 16K tape. . .$24.95 
Model I disk version S29.95 



HIGH 
FINANCE 




By Leonard Kaufer from Cybernautics 
It's almost literally "dog eat-dog" in this 
manufacturing simulation. You and from one to 
five opponents test wits against each other 
and the market as competitors in the dog food 
business. You must buy raw materials at a 
good price to be able to sell at a profit. 
Sneaky moves by you or your opponents can 
drive up the cost of needed materials or de 
press the prices of finished products. You 
will be amazed at how a friendly game can 
turn into a cutthroat showdown of wills and 
wiles. 

16K tape.. .$14.95 



THE 
DOCUMENTER 




•--VIXW NAnE II 



From P80NUT Software 

If you would love to be able to document your 
programs with a flowchart but lack the time, 
talent, or inclination, this program is for 
you. THE DOCUMENTER will produce a log 
ical flowchart directly from any suitable 
BASIC program and print it on the screen or 
most lineprinters. 

You get a flowchart and branch map that will 
help you follow program flow and aid your 
debugging efforts. Even memory filling 
programs can be broken down into segments 
and flowcharted. 

16K tape...S19.95 32K tape. . . $19. 95 
48K tape. ..S19.95 48K disk . . . $29. 95 



COLOR COMPUTER 

The Program Store stocks a selection of pro- 
grams for the TRS-80 Color Computer, too! 
For more information, send 50 cents for our 
Color Computer mini catalog. 

(CCT: Color Computer Tape 
ECB : Extended Color Basic) 

MINI ARCADE 1: Computer Simulations 
Five arcade games. 16K tape. .. $14.95 

COLOR SPACE INVADERS Spectral Assoc. 
Machine language action. CCT...$21.95 

COLOR METEOROIDS- Spectral Assoc. 
Destroy deadly meteoroids. CCT. . .$21.95 

COLOR SPACE WAR : Spectral Assoc. 
Blow up the Death Star. CCT. ..$21.95 
CAME OF LIFE: Spectral Assoc. 
Classic rules of generation. CCT. ..$19.95 

BLOCKADE INTERPRO 

Joystick arcade game. CCT.'lbK ECB.. $19. 95 

CRAPHIC AIDE: Computer Simulations 
Master illustration program. 16K...S10.95 

TYPEWRITER Computer Simulations 
Simple word processing. 16K...S14.95 

COCOBUG Allen Celder Software 
Debugging monitor. 16K ECB... $19. 95 

SCREEN EDIT CONTROL SYSTEM Datasoft 
Screen editor t much more. 16K...S29.95 

SICMON: Datasoft 

6809 monitor containing mini assembler. 

disassembler and debugger. CCT . . $29. 95 

COLOR COMPUTER DISASSEMBLER 
Access to the ROM. 16K ECB ... $19.95 
MAGIC BOX : Spectral Assoc. 
Use Model I III BASIC programs. CCT $24.95 



Visit Our Baltimore, MD Store: W.Bell Plaza -6600 Security Blvd 



TO ORDER CALL TOLL FREE 800 424-2738 



For information 
Call (202) 363-9797 
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THE PROGRAM STORE 

4200 Wisconsin Avenue NW, Dept.E09Box 9609 
Washington, D.C. 20016 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1.00 postage & handling. D.C. residents, add 
6% tax. Charge card customers: include all embossed 
information on card. 
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Get th« molt from your micro with 
software and accessories from on* of 
the world's largest selections. 



The 

rTogram 
Store 



CALL TOLL FREE 

800 424-2738 



Pi 




By Richard Wilkes from Acorn 
Using your Superscript modified Scripsit 
Word Processor and a compatible printer, you 
can now underline, boldface. insert text 
during printout, slash zeros, set type pitch, 
subscript and, of course, superscript 1 You 
can even read your directory and kill files 
without ever leaving Scripsit. 

Superscript comes with drivers for popular 
serial and parallel printers (now including 
Centronics 737 and RS Daisy II). and easy 
Instructions for patching to your Scripsit 
program (does not include Scripsit) . 

Model I, 32K disk.. . S«9.95 




From Soft -Tools 

Computers may not make mlsteaks. but people 
do. That's why you need PROOFREADER if 
you use your computer for word processing. 
In about five minutes, this program can 
check any word processing disk file against 
its dictionary of more than 38.000 words. Any 
words that don't agree with the dictionary are 
listed on the screen and. optionally, to a disk 
file for later retrieval . 

For words words you use that aren't in 
PROOFREADER'S vocabulary, an easy to use 
auxiliary file is provided. Five minutes with 
PROOFREADER can save hours of time 
proofreading . 

Model 1 . 32K disk ( 1 drive min . ) . . . $M 00 



z 

? 
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By Infocom from Personal Software 
In Zork, the Great Underground Empire, un 
earthly creatures guard JO treasures. Bring 
all the treasures back to the trophy case and 
you can leave alive! You must pkk your way 
through intricate mazes, collecting objects 
that may help or hinder you in your quest. 
But keep your wits about yo\j. because in 
Zork. they take no prisoners! 

TRS 80 or Apple II, 32K Disk. . .539.95 




DECATHLON 

By Timothy Smith from Microsoft 
The graphic* capabilities you were promised 
when you bought your computer are finally 
utilized In this marvelous series of programs. 
Just like the reel Decathlon, you compete In 
10 demanding games that encompass different 
forms of running, jumping and throwing. 
Playing alone or with as many as eight compel 
Itors. the gold medal will always go to the 
skillful, because) your score depends entirely 
on skillful manipulation of the keyboard. 

Model I. 16K tape. .S2» 95 32K disk . . S2«. 95 



Unbelievable Realti 




FLIGHT Sl/OtULATlON 



From Sub Logic 

The wait is over' If 3 D graphics seem im 
possible on the low resolution TRS 80, you 
haven't seen this brilliant program. During 
FLIGHT SIMULATION, you instantly select 
instrument flight, radar, or a breathtaking 
pilot's eye- view. But be sure to strap your 
self in you're liable to get diziy! 

Once you put in some air time learning to fly 

your TRS-BO. head for enemy territory and 

try to bomb the fuel depot and airstrip while 

fighting off five enemy warplanes. Good 

Luck' 

Model I. !6Ktape.. $25.00 

OMNIKEY 

From Discovery Bay 

Use your energy for programming, not typ- 
ing! Single keystroke entry of 26 Basic state 
ments, auto repeat on all keys, and selectable 
upper lower case (if your keyboard is so 
•quipped) speed Bask program entry 
immensely . 

OMNIKEY's arrow controtied cursor gives you 
full-screen editing capabilities. Insert or 
delete text at will. You can break multiple 
statements into separate program lines or 
combine them to save memory. Even reposi 
tioning of lines within a program is as easy as 
typing a new line number' Once you've used 
OMNIKEY. you won't program without It. 



Model I tape (transferable to disk) .. .$22.95 



THE PROGRAM STORE 
Franchises Available 



TYPING TUTOR 




By Ainsworth L Baker from Microsoft 
Speed up your programming and word pro- 
cessing with this excellent touch-typing In- 
structional program. Divided into two tac- 
tions, the program first teaches propajr finger 
positioning. You practice keying various 
characters, the program adding new ones as 
you progress. In the practice paragraph *ec 
tlon. you are evaluated for accuracy and 
rated in words p*r minute. The program con- 
tinuously adjusts to your Increasing 81(111, 
telling you which characters you miss and 
where you ere slow. One of the most practical 
programs we know of for TRS 80. 
Model t 1bK tape. . . S>». 95 



fcrS L»S LOOS 1006 LOOS LOOS LOOS LOOS LOOS 



bos 1.00* LOOS LOOS LOOS LOOS LCOS LOOS 
LDOsf LDOS LOOS _ _^ ^j. gm LBBt LOOSj 
Loot LOOS LOO | IjCjS S LD * S 
LCOS L."' i "* # ^r*'ClS LfJOS 



LOOS 
L0OJ 

LDOJS L0 



LOOS L»S LDOS LOOS LOOS LOOS : DOS 



XX noTT^ IXS L50S ^ S L50S LOOS L30S 



I f new I DOS were just another disk operating 
system (DOS), we would not recommend it to 
you. However, two differences make this 
system unique and Important: customer 

support and user benefits. 

When you buy any DOS, you need service for 
programming assistance, updates and tips on 
how best to use its features. This is part of 
what you buy with LDOS. First, you are 
supported by a toll free phone line listed on 
your registration card. Second, you will be 
promptly i»otified of all i»pdates and may send 
your original diskette to a service center for 
updating. You pay only the cost of return mail 
you can do it every week if you like. 
Third, a regular newsletter informs you of 
any updates and provides tips on using some 
of LDOS's many special feature*. 

With LDOS you get a well docua>ented, 
thoroughly tested, and powerful DOS. The 
publisher is committed to a professionally 
written and detailed users' manual. 

The power of CDOS is its ease of operation, 
its independence of hardware configuretion. 
and its device independence. You can make 
selected backups, chain together a series of 
programs and operations, and operate several 
different types of drives from the tomputer. 
LDOS has all the features of VTOS «0, fully 
implemented and working. There are hund- 
reds of features which we do not have room to 
mention, but the best features are its ease of 
use for the new disk owner combined with Its 
sheer power potential for the expert. We will 
gladly send you more information on LDOS if 
you |ust call our toll free number. 

For Model I t III, with manual, .fttt.tt 



! THE PROGRAM STORE • Dept EQ9 Box 96QQ- 4200 Wisconsin Ave, NW • Washington, D.C. 20016 
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TECHNIQUE 



A memory saving technique for Level II owners. 



Delete and Save 



ft Gene Lahgston 
10755 Liscard Rd. S. 
Jacksonville, FL 32216 



After running some program 
instructions, I wanted to 
delete the block of statements 
that housed the instructions, 



enabling me to have more 
memory in which to load my ar- 
rays. I included, at the end of 
the instruction statements, a 
DELETE XXXX-XXXX line. Sure 
enough, as the program ran, it 
deleted the appropriate line 
numbers, but it also fell back 
into the command mode and I 
got a Ready prompt. I knew I 



128 


END 


171 


LSET 


214 


< 


129 


FOR 


172 


RSET 


215 


SGN 


130 


RESET 


173 


SAVE 


216 


INT 


131 


SET 


174 


SYSTEM 


217 


ABS 


132 


CLS 


175 


LPRINT 


218 


FRE 


133 


CMC 


176 


DEF 


219 


INP 


134 


RANDOM 


177 


POKE 


220 


POS 


135 


NEXT 


178 


PRINT 


221 


SQR 


136 


DATA 


179 


CONT 


222 


RND 


137 


INPUT 


180 


LIST 


223 


LOG 


138 


DIM 


181 


LUST 


224 


EXP 


139 


READ 


182 


DELETE 


225 


COS 


140 


LET 


183 


AUTO 


226 


SIN 


141 


GOTO 


184 


CLEAR 


227 


TAN 


142 


RUN 


185 


CLOAD 


228 


ATN 


143 


IF 


186 


CSAVE 


229 


PEEK 


144 


RESTORE 


187 


NEW 


230 


CVI 


145 


QOSUB 


188 


TAB( 


231 


CVS 


146 


RETURN 


189 


TO 


232 


CVD 


147 


REM 


190 


FN 


233 


EOF 


148 


STOP 


191 


USING 


234 


LOC 


149 


ELSE 


192 


VARPTR 


235 


LOF 


150 


TRON 


193 


USR 


236 


MKIS 


151 


TROFF 


194 


FRL 


237 


MKS 


152 


DEFSTR 


195 


ERR 


238 


MKD 


153 


DEFINT 


196 


STRINGS 


239 


CI NT 


154 


DEFSNG 


197 


INSTR 


240 


CSNG 


155 


DEFDBL 


198 


POINT 


241 


CDBL 


156 


LINE 


199 


TIMES 


242 


FIX 


157 


EDIT 


200 


MEM 


243 


LEN 


158 


ERROR 


201 


INKEYS 


244 


STRS 


159 


RESUME 


202 


THEN 


245 


VAL 


160 


OUT 


203 


NOT 


246 


ASC 


161 


ON 


204 


STEP 


247 


CHRS 


162 


OPEN 


205 


+ 


248 


LEFTS 


163 


FIELD 


206 


- 


249 


RIGHTS 


164 


GET 


207 


, 


250 


MIDS 


165 


PUT 


208 


/ 


251 




166 


CLOSE 


209 


t 


252 




167 


LOAD 


210 


AND 


253 




168 


MERGE 


211 


OR 


254 


| 


169 


NAME 


212 


> 


255 


ISA 


170 


KILL 


213 


= 










Table 1. 







could delete my line numbers 
and still stay in the program, 
but first I had to find out how 
the computer did it. 

Here is some background on 
the TRS-80 statement format. 

Go to your keyboard and type 
New. Now enter: 

1M PRINT 

Now, PEEK at the addresses 
that hold this statement. Level 
II memory stores the first ad- 
dress of the program at 17129. 
After entering the PEEK routine 
listed, you should get this 
result: 

FORX = 17129T0 17136:PRINTX; M ="; 
PEEK(X):NEXT 

17129 = 239 

17130 = 66 

17131 = 100 

17132 = 

17133 = 178 

17134 = 

17135 = 

17136 = 

The Next Statement 

In Level II Basic the 17129 and 
17130 addresses point to the 
beginning of the next state- 
ment. The first section (239) is 
the Least Significant Byte 
(LSB) and the second (66) is the 
Most Significant Byte (MSB). 
To convert this to something 
we can identify with, multiply 
the MSB by 256 and add the 
LSB. For example: (256*66) + 
239 = 17135. This means that 
the next statement (if one is 
there) will begin at 17135. 

The statement line number 
makes up the next two ad- 
dresses, 17131 and 17132. The 
MSB and LSB are computed the 



same way as before. Line 
numbers up to 255 are obvious, 
and the rest are computed as 
shown. 

Ignoring the next address for 
a moment, we find that 17134 
holds a zero. This is used as an 
end-of-line indicator. The last two 
addresses, 17135 and 17136, are 

the locations (as computed 
above) where the next line 
would start if there was one. As 
you can see, this is the last 
statement in our program and 
these pointers are set to zero. 

This indicates that there are no 
more statements to follow. If 
there was another line, these 
two addresses would hold the 
pointer for the next statement, 
as did 17129 and 17130. 

All of the addresses between 
the line number and the end of 
line indicator contain the text 
of the statement. Usually, there 
will be many more than the 
single one in our example. The 
text is composed of ASCII 
codes (see the Level II reference 
manual), and Level II statement/ 
function storage format (see 
Table 1). Line 17133 contains the 
code for Print 178. 

Suppose our line had been: 
100 ONZGOTO200. Then our 
PEEKing would have revealed: 



17129 = 244 

17130 = 66 

17131 = 100 

17132 = 

17133 = 161 

17134 = 90 

17135 = 141 

17136 ■ 50 

17137 = 48 

17138 = 48 
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17139 = 

17140 = 

17141 = 

I discovered that at least 
three things happen when the 
delete command is executed. 
First, the pointer at memory ad- 
dresses 16633 and 16634 is as- 
signed a new number. These 
pointers signal the end of a 
Basic program and the start of 
variable storage. MSB and LSB 
are computed as before. Sec- 
ond, the next statement 
pointers (of the first line de- 
leted) are reset to zero. And 
third, the statement line num- 
ber (of the first line deleted) is 
assigned a 4. j 

Now we must find the 
specific addresses that we 
wish to delete. 

Let's assume that the in- 
structions of a particular pro- 
gram are located in the last 60 
lines, starting with line number 
15000 and ending with 15600. 
The line preceding 15000 is: 
14950 GOTO 100. To delete 
lines 15000 to 15600 (end of 
program) after displaying the 
information, we need to know 
the address of 15000. Edit 
14950 as follows: 

14950 GOTO 100% 

Notice that a single charj 
acter is added. You must use a 
character that has not been 
utilized in the program because 
we will search the memory for 
the ASCII code of this char- 
acter. If it is a unique code, the 
search will be that much easier. 
Enter this command: 

FORX = 17129T0 32767:IFPEEK(X)= 37 
PRINT X ELSE NEXT 

After a value is printed, verify 
that this is indeed the address 
that you want. If, for example, 
the address printed is 20248, 
verify this by Print PEEK (20247) 
and the value should be 48, the 
ASCII code for the zero that 
precedes it (GOTO 100%). If it 
is not verifiable, continue with 
your search until the character 
is found. 

Once you have found the cor- 
rect address, make a note of 
this address, A. Now delete the 
character you added in the line. 
Address A is now equal to the 
end-of-line indicator. 

,^Saa List ot Advertisers on page 354 



The next four addresses are 
the ones that we require for 
deletion. 

To'find the value of the ad- 
dress that we must set into 
1663a and 16634, evaluate the 
pointers as follows: 

• Divide address A + 3 by 
256. (A + 3 is the address 
where the line number to 
be deleted begins.) 

• Take the integer value of 
this division, B. 

• Compute address A + 3 
minus 256* B. Let this value 
equal C. 

Now we have address values of 
W, 'B' and 'C\ 

Let's look at part of our ex- 
ample program and see what 
we can do with these values: 

10 GOSUB 15000 

15000 REM INSTRUCTIONS BELOW 

15600 RETURN 

' In order to delete lines 15000 
t6»15600, put the following line 
after line 15000 in any position 
where it will be executed: 

POKE 16633,C:POKE 16634,B:POKE A + 1, 

0:POKE A + 2.0POKE A + 3,4:POKE 

A + 4,0:CLEAR 50 

Put the values you found in 
place of A, B and C. The clear 
Statement must be executed, 
but you can put in a value as re- 
quired by your program. 

These POKEs can be ex- 
ecuted and all statements 
following them will be executed 
just as if everything was nor- 
mal. After running the program, 
listing it will show that the lines 
have been deleted. 

In summary: 

•Add an unused character to 
the end of the last line not 
be be deleted. 

•Search memory for that 
character; verify. 

• Delete unused character. 

• Note address A. 

• Evaluate pointer (16633, 
16634) line. 

• Note values B, C. 

•Add these executable 
statements after last line to 
be saved: 

POKE 16633, C 
POKE 16634, B 
POKE A + 1,0 
POKE A + 2, 
POKE A + 3, 4 
POKE A + 4,0 
CLEAR 50 ■ 
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TSHARE 2.0 




MULTI-USER SYSTEM 

for the 

TRS-80® MODELS I 6 111 

Powerful addition to NEWDOS80® expands the capacity of a 

single TRS-80 to service TWO active users with full access to 

Newdos80. 

Users operate independently with joint access to disk and up to 

two printers. 

Execute BASIC or ASSEMBLY language (above 7740 Hex). 

2nd user communicates via a TERMINAL, modem, or second 

computer acting as a terminal. 

NEW BUILT-IN FUNCTIONS 

• Communicate between users 

• Execute two programs concurrently 

• Joint execution of single source 
program with separate data areas 

• Open same file by two users 

• Multi-user MINI-DOS 

Requires 32K model I or III with one disk drive and a serial port 

interface (software drivers built-in for RS-232*. HUH-8100®, 

TRS232*. and MPR-232* interfaces). 

SIMPLEX mode for non serial-pott users. Requires only expansion 

interface or TRS232 with printer to act as. second "screen". 

Jobs share TRS-80 keyboard under user control. 

CONFIGURE utility makes it easy to partition memory between 

users and select I/O modes. 

TSHARE 2.0 for NEWDOS80 $ 99 

Please specify model I or III (Model III available Sep. 1, 1981) 
TSHARE 1.3 for TRSDOS2.3/NEWDOS 2.1 $ 89 

TSHARE 2.0 + MPR-232 interface (for non RS-232 users) . . $199 



$10 Upgrade privilege for TSHARE 1.3 licensees 



DDM5 



$79 
MODELS I & III 



MULTI-FEATURE DATA MANAGER 



Up to 20 user defined fields. 

Files extend across multiple 

diskettes. 

Supports up to four drives. 

Automatic single drive disk 

mount requests. 



Four data types and compu- 
tational fields. 

Flexible REPORT GENERATOR. 
Fast assembly language sorts. 
MULTIFIELD sorts & searches. 
Keyed access on any sorted field. 
Indexed relations between files. 



VIEW 



$1995 CSTOCK 



$49 



A SCREEN FORMATER 
FORDBM5 

Full CURSOR control 

Protected fields 

User form DESIGN 

File data entry, inquiry, 

&edit 

Elegant & professional look 



DISK DATA BASE & 

ANALYSIS TOOL 

FOR STOCKS & OPTIONS 

1 Regression analysis 

> Charts 

> Portfolio selection 
' Risk management 



SERIAL I/O 
MPR-232 



A serial port interface designed to properly connect to TRS.-80 
with or without an expansion interface. 

• Glitch free operation 

• Connects with card edge connector 

• Uses TRS-80 power supply 

• All parameters switch selectable 

• Baud rates 50 to 19200 TO ORDER 
Manufactured by: 
Micro Projects Engineering Co. 
Culver City, CA . . 

$119 (ASSEMBLED & TESTED) 

TRS-80 tm 

Radio Shack/Tandy Corp. 
NEWDOS tm Apparat, Inc. 
TRS232 tm Small System 

Software 
HUH tm California Computer Systems. 



CcmScf t 

1 569 Westwood Blvd. 

Suite B 

W. Los Angeles, CA 90024 

^204 
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TUTORIAL 



The principles of operation at the user-programmer interface. 



Going Pro 



Nicolas Moss 
108 Via Hermosa 
Santa Cruz, CA 95060 



With the introduction of the 
affordable personal com- 
puter, many people who never 
dreamed of seeing a computer 
are now programming. Several 
are very good at it. Many of the 
younger self-taught computer- 
ists decide to write software 
commercially. The ubiquity of 
the TRS-80 has created a big 
market for Basic programs, 
along with modifications to ex- 
isting software (for the user who 
doesn't program). Very powerful 
software can be written at home 
for about $800. The sum makes 
part-time programming very ap- 
pealing. 

The purpose of this article is 
to tell you, the future part-timer, 



what to expect when you pro- 
gram for someone else. 

The Rules 

When you program for your- 
self, you know exactly what you 
want. You understand what 
you're doing because you have 
some background in the sub- 
ject. You also know the limits of 
the machine. This, of course, 
changes when you write a pro- 
gram for someone else. 

First, you do not really know 
what the user wants. How could 
you? Therefore, rule number t 
The user does not know what he 
wants. 

Second, you will probably not 
know what the user is talking 
about: Computers have yet to be 
programmed to understand 
buzzwords. Rule number 2: 
When the user has a vague idea 
of what he wants, research the 
subject. This allows you to know 
what he means when he says, 
"Could you cross-reference my 
G.L with my A.R. and A.P., and 
can you have it generate a cate- 
gorized P. & L. sheet?" 



Third, do not answer the 
user's buzzwords with your own. 
"Sure, I can do it, if your floppy 
can support file chaining and 
D.M.A., otherwise the interpreter 
will tie up the C.P.U. when it 
does string clean-up in high 
RAM." Rule 3: If you have to use 
buzzwords, use small, logical 
words that will not confuse the 
issue. 

Rules 2 and 3 pose the big- 
gest problem in the small-com- 
puter field. When a customer 
wants reasonably priced soft- 
ware, he shouldn't have to hire a 
third party to translate the con- 
versation. The programmer 
must communicate properly 
with the user! 

Rule 4 is derived from Rule 1: 
Application programs evolve. 
The first copy of a program will 
have to be changed radically to 
get the final copy. In the first 
program, avoid fancy tricks and 
leave plenty of room for modifi- 
cations. Make the code easy to 
change. 

Since the user doesn't really 
know what he wants, and is 



probably very non-technical, 
you will usually get a negative 
feeling about him. I therefore 
have Rule 5: The user is the 
boss; never criticize the boss! 
To help you cope with Rule 5, I 
suggest reading Zen and the Art 
of Motorcycle Maintenance by 
Robert M. Pirsig. 

Although these rules sound 
simple enough, they are the 
hardest damn things to live by! 
It takes discipline and concen- 
tration. 

So, for your first out-of-field 
programming experience, I sug- 
gest you choose to write a pro- 
gram for an accessible relative. 
This way, the user is close, and 
it is very hard to break Rule 5 if 
you are working for a relative; 
and if you do break it, affection- 
ate understanding will keep the 
programmer-user bond from 
breaking. 

Two last rules. After you satis- 
fy the user, he will think you are 
a god. Rule 6: Programmers are 
not God! Rule 7: Under any cir- 
cumstances, do not forget Rule 
6!B 
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Alone in your spacecraft, you are exploring an uncharted area when your Tactical Display Screen suddenly blossoms with 
gigantic moving objects. It would be bad enough if they were ordinary asteroids, but their size and behavior tell you they 
are much worse— huge chunks of deadly antimatter, capable of destroying your ship on contact! 

You fire your thrusters, hoping to escape the menacing onslaught, but here come more of the sinister shapes. You are sur- 
rounded, and the only way to avoid destruction is to fire your laser cannon. Aim . . . Fire ... A direct hit! But instead of 
destroying the rock, your blast has exploded it into several smaller— but equally lethal— pieces. Now each must be 
separately eliminated. 

The thought occurs to you that the sudden appearance of these rocks might be more than coincidence, and your suspi- 
cions are confirmed as time bombs enter the Tactical Display's field, their timer displays counting down toward your 
destruction! And finally the enemies themselves, in space ships firing antimatter torpedoes, join the fray. 

Can you destroy or avoid the rocks and the enemy, and at the same time still the incessant ticking of the time bombs? With 
SPACE ROCKS, you can try. It's a realtime arcade game with sound effects to enhance the action. One or two players can 
compete, and there are five levels of difficulty to keep up the challenge as your skills increase. 

Order SPACE ROCKS today for your TRS-80* model I or III. Available on 16K tape or 32K disk versions for just $19.95. 



ACORN PROGRAMS ARE AVAILABLE AT FINE COMPUTER STORES EVERYWHERE 




TENPINS 



By John Allen 

A realtime action game with 3-D 
graphics and sound, TENPINS 
brings the thrill of champion- 
ship bowling to your TRS-80* 

From one to four players parti- 
cipate, and the program senses 
the skill of each player. Begin- 
ners can simply "roll" the ball 
while more skilled players can 
vary the ball's force, direction, 
and spin. 

TENPINS even has factors to 
simulate imperfections in the 
lanes, adding even more real- 
ism. Available for only $14.95 
for 16K tape version, $20.95 for 
32K disk. 




PINBALL 



By John Allen 

Get your flipper fingers ready 
for action in this realtime, 
machine language game. 

Lots of sound and flashing 
graphics make this fast action 
game so much like the real 
thing that you'll have to remind 
yourself not to shake your 
TRS-80. Choose from five play- 
ing speeds to match your skill. 
Can you beat your friends' 
scores? Will you avoid the infa- 
mous "Bermuda Square?" Get 
PINBALL today and find out. 

For TRS-80* model I or III. Just 
$14.95 for the 16K tape version 
or $20.95 on disk (32K). 




INVADERS 
FROM 
SPACE 



By Carl Miller 



A fast machine language ap- 
proach to this classic (and 
addictive) space game. The 
aliens drop bombs, move around, 
and try to overrun your bases. 

You choose the speed, enemy 
bomb frequency and accuracy, 
and how many shots and bases 
you have. Unlike other games of 
this type, you can move your 
base and simultaneously fire at 
the invaders. Fun for all ages 
and skill levels, it has full sound 
effects for even more excitement. 

Available for TRS-80* model I or 
III. Only $14.95 on 16K tape ver- 
sion or $20.95 on 32K disk. 




(202) 544-4259 

Acorn 

Software Products, Inc. 



634 North Carolina Avenue, S.E.. Washington. D C 20003 



•Trademark of Tandy Corp 

ALL ACORN ENTERTAINMENT 

SOFTWARE SUPPLIED FOR 

TRS-80* MODELS I & /// 

MAIL ORDERS: Include $2.00 shipping & handling 
(D.C. residents add 6% sales tax). 
CHARGE CARD CUSTOMERS: Call (202) 544-4259 
for fastest service. 
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EDUCATION 



This mechanical horse race is heavy on positive reinforcement 



Math Derby 



Michael A. Duff in 
1507 East Ave. 
Berwyn, IL 60402 



One assignment I gave my 
introductory data process- 
ing students was to design and 
implement an educational 
game. Two students (Kay Keyes 
and Kathleen Schmaus) decided 
to write math games. 

Kathy's game used the tradi- 
tional "happy face" for a correct 
answer and "sad face" for an in- 
correct answer. The user speci- 
fies whether he or she wishes to 
add, subract, multiply or divide. 
To construct her figures, Kathy 
used the PRINT® instruction. 
Kay's game, on the other hand, 
concentrated on the graphic 
abilities of the TRS-80. Kay 
graphically constructed a race 
track and horse using the POKE 
and PRINT® instructions. In her 
game, if the user responds cor- 
rectly to an addition problem, 
the horse moves to the finish 



line. 

Learning from Students 

Combining the ideas of these 
two students and implementing 
a few of my own, I constructed a 
viable Horse Race game that re- 
quires a student to be quick and 
accurate in answering a prob- 
lem. It is an educational game 
designed to make math more in- 
teresting. It was written on a 
Level II TRS-80, and I believe it 
will work on a Level I machine as 
well, without any modification. 

One to three players may play 
this game. A math problem is 
presented and each player has a 
horse on the screen as a playing 
piece. A player's horse moves 
only when the math problem is 
answered correctly. The player 
may pick the type Of math oper- 
ation he wishes (i.e., add, sub- 
tract, multiply or divide). A cor- 
rect answer causes the horse to 
move, and the length of the 
move is determined by the type 
of operation chosen. 

The Program 

The most interesting routine 
in the program exists in lines 
5120 through 5150. This routine 



lets the player enter his or her 
answer to a math problem via 
the INKEY$ instruction. One ad- 
vantage of using this routine is 
that it allows the user to enter an 
answer that is more than one 
digit long. It does this by using 
an array, the VAL instruction in 
conjunction with the INKEY$ in- 
struction, and concatenation. 

Another advantage that this 
routine has is that it times the 
player's response. If I had used 
the Input instruction instead, 
the player could take out a cal- 
culator or take a short nap or a 
trip to Florida before he or she 
would have to respond to the 
problem presented by the pro- 
gram. The INKEY$ routine gives 
the player about 15 to 20 sec- 
onds to respond to the problem. 

The best way to explain how 



the routine works is by using an 
example. Assume that the play- 
er has said that he or she would 
like a division problem and that 
the computer has then present- 
ed the following problem: 8/3 = 

The answer is 2.67 

rounded to two decimal places. 

When the routine at lines 5120 
through 5150 is entered, the first 
thing it does is initialize the J 
index to one. Line 5128 sets 
B$(1) to the first number that has 
been entered. If no number has 
been entered (B$(1) = " "), then 
J is not incremented and the 
program waits a bit and then 
checks again. 

In our example when a digit is 
entered, B$(1) = 2 if a correct 
answer is being entered. At this 
time the condition at line 5128 
is false, so the program falls 



Program Listing 1. Horse Race (Math Game)—Duffin. 



REM 
REM 
REM 
REM 



HORSE RACE 



(MATH GAME) 



AUTHOR 



MIKE DUFFIN 



7 REM * (INSPIRED BY THE PROGRAMS WRITTEN BY KAY KEYES AND 
KATHLEEN SCHMAUS AT MORTON COLLEGE IN BERWYN, I LLINNOIS FOR 
DPR 101... AN INTRODUCTION TO DATA PROCESSING.) 

8 REM * 

9 REM ********»»*****•*****«**»**«•....««.*****,,.,***.»**,*». 

10 REM *** A LIST OF VARIABLES APPEARS AT THE END OF THE PROGRAM 

Program continues 
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INTRODUCING: 



SPECTRONICS, INC. 

(A Wholly Owned Subsidiary of Level IV Products) 

- OFFERING - 

The Full TRS-SO* Line at Discount Prices, 

and Extended Warranty Coverage 





COLOR COMPUTER 


MOD III COMPU 


TER 


16K(R) $440 


16K(R) 


$859 


16K(E) $359 


48K2-40 drives (R) 


$2010 


16Kw/ext basic (R) $529 


48K2-40 drives (E) 


$1859 


16Kw/ext basic (E) $479 


48K2-80 drives (E) 


$2119 




RS232 interface add 


$89 




MOD II COMPUTER 

32K(R) $2950 

64K(R) $3375 

Expansion Dr#l(R) $999 
Expansion Dr#l-2-3(E) $695 



NOTE: THE MOD III CAN BE ASSEMBLED WITH UP TO 4 MEG UNFORMATTED FLOPPY DISK STOR- 
AGE CAPACITY (4-80 TRK DOUBLE SIDED DRIVES) - CALL FOR A QUOTE ON THE SYSTEM 
TAILORED TO YOUR EXACT NEEDS. 



PRINTERS 




DRIVES 




PERIPHERALS 




Line Printer IV (R) 


$849 


COMPLETE 


RAW 


E.I. OK (R) 


$249 


Line Printer VI (R) 


$986 


40TRKMPKE) 


$309 


$245 


E.I.16K(R) 


$359 


Daisy Wheel il (R) 


$1679 


80TRK 






E.I.32K(R) 


$469 


C ITOH Starwriters 


Call 


MPI (E) 


$429 


$360 


E.I.16K(E) 


$305 


Centronics All 


Call 


40/40TRK 






E.I.32K(E) 


$362 


Epson All 


Call 


MPI(E) 


$445 


$375 


16KRAM(200MS) 


$ 39 


Anadex All 


Call 


8O/8OTRK 
MPI(E) 


$579 


$515 







DEALER'S INQUIRIES INVITED, CALL FOR OUR WHOLESALE DEPARTMENT (313) 525h5201 



WARRANTY POUCY 

Items including non-Radio 
Shack components (E) are 
covered by an extended six- 
month parts/labor warranty in 
our tech service center 

Items constructed from Radio 
Shack approved components 
(R) are covered by a 90day 
parts/labor warranty at any 
Radio Shack store, plus an addi- 
tional 90 days in our tech ser- 
vice center 

.' S»« List of AdrtrlisTt on ptgt 354 



TERMS OF SALE 



2% Discount allowed on cash 
pre-paid orders. Personal 
checks require two weeks for 
bank clearance. 

Visa. Master Charge and CO D 
orders accepted. Add S1.50 for 
COD'S. 

Shipping/handling/insurance 
add 1.5% or $2.50 minimum 

Prompt shipments from stock 




SPECTRONICS, INC. 
32461 SCHOOLCRAFT ROAD 
LIVONIA, MICHIGAN 46150 

MICHIGAN - (313) 525-6200 
TOLL FREE - 600-521-3305 



•TRADEMARK OF TANDY CORP 
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through to the next line, which 
Increments the J Index (J =2). 
This process repeats until the 
entire answer Is entered or time 
runs out. Assuming the correct 
answer is entered within the 
allotted time, then: 

8$<1)-"2" 
B$(2J = "." 
B$(3) = "6"anc] 
BS<4) = "7" 

Since these variables are in- 
terpreted by the computer as in- 
dividual strings rather than a 
single numeric answer, we must 
reforrrat these responses. Line 
5150 accomplishes this. The 
VAL instruction changes a 
string character to a numeric 
digit. The plus signs In the in- 
struction concatenate the in- 
dividual digits to a single 
answer. 

The routine controls the 
amount of time a player has to 
enter his or her response through 
the variables F,H and M, which 
are used in the three-layer 
For... Next loops in this rou- 
tine. If an extremely fast typist is 
playing this game, you might 



wish to decrease the value of H 
at line 5140 and Increase one or 
both the outer loops at lines 
5122 and 5124. 

The routine at lines 4216 and 
4217 clears the response from a 
previous question. 

The Instructions to the game 
are in lines 7000 through 7300. 
Once you are familiar with the 
game, Instructions are no longer 
necessary. The only unusual 
thing about these routines is the 
way one exits from them. Lines 
7038 and 7220 allow the instruc- 
tions to stay on the screen until 
a player has finished reading 
them. The player then presses 
any key to see the next set of in- 
structions. This is again accom- 
plished via the INKEY$ instruc- 
tion. 

Below the instructions vari- 
ables and their uses are listed. If 
you intend to modify the pro- 
gram the list will prove very 
useful. 

The track is drawn by lines 90 
through 4010. There is no partic- 
ular reason that both PRINT® 
instructions and POKE instruc- 



wabash 

When it comes to 

Flexible Disks, nobody 

does it better than 

Wabash. 

MasterCard, Visa Accepted. 
Call Free: (800) 235-4137 




Program continued 



11 CLS 

12 P(1)-32B : P(2)-P(l)+192 i P(3) -P(2) +192 

13 INPUT "DO YOU NEED INSTRUCTIONS" ;AS 

14 IF A$-"Y" THEN GOSUB 7000 ELSE GOSUB 7230 
20 PRINTS 63 + 25, "HORSE RACE" 

90 FOR Y-15360+195 TO 15360+835 STEP 64 

100 POKE Y,191 

110 NEXT Y 

990 REM BOTTOM LINE 

999 POR T-832T0895 

1000 PRINTST,CHR$(141)| 

1001 NEXT T 

1002 POR E-128+64 TO 191+64 

1003 PRINTSE,CHR$(156) ; 

1004 NEXT E 

2020 POR Y-15360+121+194 TO 15360+637+194 STEP 64 

2030 POKE Y,191 

2040 NEXT Y 

4000 PRINT? 896, "START" 

4010 PRINTS895+56, "FINISH" 

4090 REM **• HORSES *** 

4100 FOR V«l TO B 

4110 GOSUB 6000 

4120 NEXT V 

4200 FOR V-l TO B 

4204 X-RND(10) iY-RND(10) 

4205 REM *** CLEARS LINE **» 

4206 PRINTS 0," 

4210 PRINTS 0, "DO YOU WISH TO ADD, SUBTRACT .MULTIPLY OR DIVIDE 
I "N$(V) i INPUT AS 
4212 PRINTS 0," 

4214 REM CLEARS OLD ANSWER' 

4216 POR J-l TO 6 

4217 B$(J)-"« 

4218 NEXT J 

4219 REM *** GOES TO APPROPRIATE ROUTINES 

4220 IF LEFTS(A$,1) - "S" THEN GOTO 4370 



ADD, SUB, MULT, DIV 



"M" THEN GOTO 4500 
"D" THEN GOTO 4400 
"A" THEN GOTO 5100 



4330 IF LEPT$(A$,1) 

4340 IF LEFTS(A$,1) 

4350 IF LEFT$(A$,1) 

4360 GOTO 4210 

4370 PRINTS 0, X'-"Y "-" 

4375 Z-X-Y 

4380 GOTO 5115 

4400 PRINTS 0, X"/"Y ■-" 

4410 Q-X/Y 

4420 Z-INT(Q*100+.5)/100 

4430 GOTO 5115 

4500 PRINTS 0, X"*"Y "-" 

4510 Z-X*Y 

4520 GOTO 5115 

5100 PRINTS 0, X"+"Y"-" 

5110 Z-X+Y 

5115 PRINTS 64, "WHAT IS THE ANSWER "N$(V) 

?**»_* » *** ** THE NESTED FOR NEXT LOOPS THAT FOLLOW ALLOW THE U 

fN^^CI^E^AM^'oF^E™".^* ™ E '"^ INSTRUCTI °" «™ 

5 ™? f?!!™**^ 325 ^ 0UNT ° F TIME MAY BE CREASED BY INCREASING 

THE LIMITS OF ONE OR MORE OF THE FOR STATEMENTS **»«« 
5120 J"l 

TO 10 
M-l TO 10 
B$(J)-INKEYS 

IF B$(J)-"" THEN GOTO 5140 
J-J+l 

POR H-l TO 10 
NEXT H 
NEXT M 



5122 FOR F-l 
FOR 



5124 

5126 

5128 

5130 

5140 

5142 

5144 

5146 NEXT 

5148 REM **« D IS THE NUMERIC EQUIVALENT OF THE CONCATENATION OF 

THE INKEY$ VALUES . (D IS THE ANSWER SUPPLIED BY THE USER) 
5150 D-VAL(BS(1)+BS(2)+BS(3)+BS(4)+B$(5)) 
5200 IF Z«D THEN GOTO 53 00 

5210 PRINTS 0,D" IS THE WRONG ANSWER "NS(V) 
5220 PRINTS 64, "THE CORRECT ANSWER IS "Z 
5222 FOR H=l TO 550:NEXT H 
5230 GOTO 5900 
5300 PRINTS 0,Z" IS THE CORRECT ANSWER THATS VERY GOOD "N$(V> 

5310 PRINT "VERY GOOD" " ' 

5311 FOR H-l TO 550:NEXT H 

5312 G=l 

5320 IF LEFTS(AS,1)-"M" THEN G-2 

5330 IF LEFT$(A$,1)-"D" THEN G=4 

5 pRnm™ r*D»?« S o^S B APPR0PRIATE "ORSE 1 SPACE FOR AN ADDITION 

v, S2^ EM 2 SPACES F0R A MULT PROBLEM AND 4 SPACES FOR A DIVISIO 

N PROBLEM IF THE USERS ANSWER IS CORRECT **« 

5400 FOR P- 1 TO G 

5410 GOSUB 6000 

5420 NEXT P 

5900 NEXT V 

5902 GOTO 4200 

5910 END 

5990 REM »** ERASES AND DRAWS THE HORSES *** 

6000 PRINTS P(V) ,CHRS(32); 

6010 PRINTS P(V)+1,CHR$(32); 

6020 PRINTS P(V)+2,CHR$(32) ; 

6030 PRINTS P(V)+60,CHRS(32) ; 

6040 PRINTS P(V)+61,CHR$(32); 

6050 PRINTS P(V)+62,CHR$(32); 

6060 PRINTS P(V)+63,CHR$(32) ; 

6070 PRINTS P(V)+64,CHR$(32),- 

6072 P(V)-P(V)+1 

6080 PRINTS P(V) ,CHR$(170); 

6090 PRINTS P(V)+1,CHR$(140); 

6100 PRINTS P(V)+2,CHRS(132); 

6110 PRINTS P(V)+60,CHR$(160); 

6120 PRINTS P(V)+61,CHR$(134) ; 

6130 PRINTS P(V)+62,CHR$(151); 

6140 PRINTS P(V)+63,CHRS(131), 

6150 PRINTS P(V)+64,CBR$(171); 

6152 IF P(l)>376 OR P(2)>376+192 OR P(3) >376+192+192 THEN GOTO 6 



Program continues 
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Program continues 




168 








6154 


RETURN 






6160 


FOR M- 


1 TO 2t)B:NEXT M 


6164 


PRINTJ 


0. 




6168 


PRINT J 


25 


NS(V) " WINS " 


6178 


INPUT 


"DO 


YOU WANT TO PLAY AGAIN", AS 


6180 


IF LEFTS(A$,1)-"Y" THEN GOTO 10 


6198 


END 






7000 


CLE: PRINT 


CHRSI23) 


7010 


PRINT 


■ 


HORSE RACE" 


7020 


PRINT 






7030 


PRINT 


"YOUR HORSE WILL ONLY MOVE IF YOU ANSWER A MATH PROBL ■ 


EM CORRECTLY." 




7835 


PRINT 






7037 


PRINT 


"PRESS ANY KEY TO CONTINUE." 


7038 


AS»INKEY$ 


: IF AS-"" THEN GOTO 7038 


7039 


CLS: PRINT 


CHRSI23) 


7040 


PRINT 




YOUR HORSE WILL MOVE" 


7850 


PRINT 


"1 SPACE IF YOU ADD OR SUBTRACT" 


7068 


PRINT 


■2 


SPACES IF YOU MULTIPLY." 


7070 


PRINT 


"4 


SPACES IF YOU DIVIDE." 


7080 


PRINT 


" 


(DIVISION PROBLEMS MUST BE ROUNDED TO 2 SIGNIF1 


CANT 


DECIMAL PLACES.) " 


7090 


PRINT 






7100 


PRINT 


"PRESS ANY KEY TO CONTINUE." 


7110 


A$-INKEY$- 


IF A5-"" THEN GOTO 7110 


7120 


CLS 






7130 


PRINT 


CHR$(23) 


7140 


PRINT 


"1 TO 3 PEOPLE MAY PLAY." 


7150 


PRINT 






7210 


PRINT 


"PRESS ANY KEY TO CONTINUE." 


7220 


A$-INKEY$ 


IF AS-"" THEN GOTO 7220 


7230 


CLS 






7240 


INPUT 


"HOW 


MANY PEOPLE ARE PLAYING" J B 


7250 


IF B<1 


OR 


B>3 THEN GOTO 7120 


7260 


FOR Y- 


1 TC 


B 


7270 


PRINT 




7280 


PRINT " 


WHAT IS THE NAME OF PLAYER "Y 


7282 


INPUT NS(Y) 


7290 


NEXT Y 






7292 


CLS 






7380 


RETURN 






7480 


GOTO 7400 




7410 


REM ** 


***< 


it********************************* ********** 


7420 


REM * 






7430 


REM * 


VARIABLES USED IN THIS PROGRAM 


7440 


REM * 






7450 


REM ** 


**** 


(A******************************************** 


7460 


REM 


AS 


1) TELLS COMPUTER IF USER WISHES TO ADD, 


7470 


REM 




SUBTRACT MULTIPLY OR DIVIDE. 


7480 


REM 




2) LETS PROGRAM KNOW IF INSTRUCTIONS ARE 


7482 


REM 




NEEDED 


7490 


REM 






7500 


REM 


BS 


ARRAY USED TO HOLD INKEYS RESPONSES (INDEXED 


7518 


REM 




BY V) 


7520 


REM 






7530 


REM 


D 


USERS REPONSE TO MATH QUESTION. 


7532 


REM 






7540 


REM 


E 


COUNTER USED TO BUILD BORDER ON TRACK. 


7550 


REM; 






7560 


REM 


F 


ONE OF 3 VARIABLES USED TO LIMIT THE USERS 


7570 


REM 




RESPONSE TIME. (M AND H ARE ALSO USED.) 


7580 


REM 






7590 


REM 


H 


SAME AS F. 


7600 


REM 






7610 


REM 


G 


NUMBER OF SPACES THE HORSE WILL MOVE. 


7620 


REM 




(BASED UPON A CORRECT REPONSE TO A SPECIFIC 


7630 


REM 




TYPE OF MATH PROBLEM.) 


7640 


REM 




FOR AN ADDITION OR SUBTRACTION PROBLEM G=l 


7650 


REM 




FOR A MULTIPLICATION PROBLEM G-2 


7660 


REM 




FOR A DIVISION PROBLEM G-4 


7670 


REM 






7680 


REM 


J 


INDEX USED WITH ANSWER ARRAY (BS). 


7690 


REM 




USED TO ERASE THE PREVIOUS ANSWER. 


7700 


REM 






7710 


REM 


M 


SAME AS F 


7720 


REM 






7730 


REM 


N$ 


ARRAY USED TO STORE PLAYERS NAMES. 


7740 


REM 




INDEXED BY V. 


7750 


REM 






7760 


REM 


P 


ARRAY WHICH HAS THE CURRENT POSITION OF THE 


7770 


REM 




USERS HORSE. 


7780 


REM 






7790 


REM 


T 


COUNTER USED TO PRINT THE BORDER. 


7800 
7810 


REM 
REM 


V 


INDEX USED WITH THE P ARRAY AND THE NS ARRAAY 


7820 


REM 






7830 


REM 


X 


RANDOM NUMBER USED IN THE COMPUTER 


7840 


REM 




SELECTED MATH PROBLEM.. 


7850 


REM 






7860 


REM 


Y 


1) SAME AS X. 


7870 


REM 




2) USED TO PRINT THE VERTICAL BORDER AROUND 


7880 


REM 




THE TRACK 



Program Listing 2. Horse Race—Keyes. 



1 REM *.*.•«*«*«*•»««•*•«***«* 

3 REM • 

4 REM * HORSE RACE BY 

5 REM * 

7 REM ««•*«*•*************«**« 

10 CLS 

20 PRINTS 63 + 25, "HORSE RA 

25 IF X- 15360 TO 16381 

90 POKE 15360 + 127 + 4, 191 

100 POKE 15360 + 191 + 4, 191 

110 POKE 15360 + 255 + 4, 191 

120 POKE 15360 + 319 + 4, 191 



Program continued 




SPECIAL DELIVERY 



WORDPROCESSING 
- POWER - 

for the TRS-80® 

"...If you're presently looking for a mailing list proc- 
essor, this represents the current state of the art." 

80 MICROCOMPUTING - 80 REVIEWS - JULY 1980 

MAILFORM is data entry at its best, just fill in 
the form! FAST, EASY to use functions include: 

search, sort, extract, page forward and back. 

Transparent cursor', insert/delete characters, 

and MORE! 

MAILRITE prints 'personalized' form letters 
by inserting information from MAILFORM into 
Electric Pencil®, Scripsit®, or BASIC text files. 
Print letters, labels, even envelopes! Boldface, 
underscore, change margins, pause, print 
'unprintable' characters, and MORE! 

XTRA! includes: MAILFORM; MAILRITE - 
with capability of printing variable text from 
a 'key' file; MAILABEL - 1, 2, 3, or 4 across 
label printer; and MAILSORT - sort a full 
40 track double density data diskette in 
only 48K! 

ALL MACHINE LANGUAGE 

means unaurpased 
SPEED. RELIABILITY & EASE OF USE 

For VISA, Master Card & COD orders only 
Call NOW - TOLLFREE 

(800) 824-7888 

ASK FOR OPERATOR 203 

California (800) 852-7777 

Hawaii & Alaska (800) 824-7919 

For more information call (214) 233-3998 

(Requires min 32K single disk drive) 

FOR THE MODEL I & III 

SPECIAL DELIVERY $125 

XTRA SPECIAL DELIVERY ..$199 
FOR THE MODEL II 

SPECIAL DELIVERY $199 

(Require. Mod II DOS ver.ion 2.0) 
Tk!^ HI) is d registered trademark ol Tandy < orp 



SB 



software concepts 

13534 Preston Rd. Suite 142 
Dallas, Texas 75240 



Dealer Inquiries invited »^299 
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tions were used to draw the 
graphics, except for variety. 
Line 12 sets the initial starting 
positions of the horses (the 
PRINT® instruction is used to 
draw them). The horses are 
drawn and erased by the subrou- 
tine between lines 6000 and 
6152. Once the neck of a horse 
has crossed the finish line, that 
person wins (lines 6152, and 
6160 through 6168). 

The math routines are found 
in lines 4204 through 5115 and 
5200 through 5310. The numbers 
chosen for the computer by the 
program are one through 10. If 
you wish to change these num- 
bers, change line 4204. The 
player is given the option to 
choose addition, subtraction, 
multiplication or division prob- 
lems in line 4210. Lines 4220 
through 4350 go to the correct 
routine based upon the player's 
selection. In our example, we 
would go to line 4400, which 
prints the problem on the 
screen. Line 4410 divides 8 by 3, 
and line 4420 rounds the answer 
to two decimal places. Regard- 



less of what type of problem is 
chosen, the computer's final 
answer is stored in the variable 
Z. 

Lines 5200 through 5310 in- 
form the player if his oi her 
answer was correct. If the 
answer was incorrect, the cor- 
rect answer appears on the 
screen. If the answer is correct, 
the player's horse will move 
one space for an addition or 
subtraction problem, two 
spaces for a multiplication prob- 
lem, or four spaces for a division 
problem. Lines 5312, 5320 and 
5330 set the variable G accord- 
ingly. G is the varible to modify if 
you wish to weight the answers 
differently. (Some of the division 
problems are really difficult for 
the average student to figure 
out in the allotted time.) Lines 
5400 through 5420 spin through 
the routine that erases and re- 
draws the horses based upon 
the variable G, via a For. . . Next 
loop.B 

Michael Duff in teaches data 
processing at Morton College in 
Cicero, Illinois. 





000 

. . . spending 
more time altering 
programs than you 
do enjoying them! 
Get . . . 

SUPER UTILITY! 

This fantastic 24 K. stand alone machine language program allows rapid and 
easy access to controlling data Super Utility, written by Kim Watt of Breeze 
Computing. Inc . comes with 30 pages of easy to understand step-by-step 
instructions assuring maximum use of your valuable time. 

Seven main menus combining 43 major programming or disk repair options 
makes this single program incredibly versatile, rot fast and easy reference we've 
capsuled some of the best options below 

DISK FORMAT 

Standard Format 

Formal Without Erase 

Special Format 

Read Address Marks 



DISK COPY 

Standard Copy With Format 
Standard Copy Without 

Format 
Speca! Copy (To back up most r£ZZ£SZ£2! 

protecteclclBks- fororKponai Compare Memory 
purchasers use only) 



DISK REPAIR 

Repair Gat Table 
Repair Boot 

Read Protect Directory Track 
Recover Killed Files 
Check Directory 

MEMORY 

Move Memory 
Exchange Memory 



TAPE COPY 

Back up 



Zero Memory 
Test Memory 

Input Byte From Port 



ZAP 

Display Sector (Disk. File) 
Display Memory 
Compare Disk Sectors 
Copy Disk Sectors 
Verify Disk Sectors 
Zero Disk Sectors 
Stnng Search 
Sector Search 

PURGE 

Kill Selected Files 
Get Disk Directory 
Zero Unused Directory Entnes 
Zero Unused Granules 
Remove System Files 
Kill By Category 
Change Name Date. Pass- 
word. Auto Command 
Change File Parameters 

Residing from 4.000H to 9FFFH. Super Utility has its own I/O dnvers and does not use 
any ROM or DOS calls So go to the heart of your protected disks and read and/or modify 
data using simple 1-key commands Now lime is on your side 1 

To Order . . . 'Send check ot money order for only 549 95 plus $2 50 shipping and handling to 

•HUE COMPUTING. INC. P O Box 1013. Berkley. Ml 48072. (3 I 3) 288-9422 for 
$2 50 Breeze Computing. Inc will send every owner, upon registration of Super Utility, 
one twek up copy 'foreign orders, oir.ee add S5 00 additional postage charge. 



up most TRS-80 tapes. Output Byte To Port 

matter how ,t >s record- Memory To Disk 
(for ongmal purchaser ^ To y Memorv 



js^ oniv! 



mMichigan residents add 4% sales m 



Program continued 




13* POKE 15361 + 3 83 ♦ 4, 191 




141 POKE 15361 ♦ 447 ♦ 4, 191 




159 POKE 15369 ♦ 511 ♦ 4, 191 




169 POKE 15369 +575+4, 191 




179 POKE 15369 + 639 + 4, 191 




189 POKE 15369 + 793 + 4, 191 




199 POKE 15369 + 767 + 4, 191 




299 POKE 15369 + 831 +4, 191 




999 FOR T-B32TOB95 




1999 


PRINT *T,CHRS(141)| 




1991 


NEXT T 




1992 


FOR A-128 TO 191 




1993 


PRINT *A,CHRS(156) ; 




1994 


NEXT A 




2929 


POKE 15366 + 127 +188,191 




2925 


POKE 15369 ♦ 63 ♦ 188,191 




2949 


POKE 15369 + 191 + 188,191 




2959 


POKE 15369 ♦ 255 ♦ 188,191 




2969 


POKE 15369 + 319 ♦ 188,191 




2979 


POKE 15369 + 383 + 188, 191 




2989 


POKE 15369 + 447 + 188,191 




2999 


POKE 15369 + 511 + 188, 191 




3999 


POKE 15369 +575 ♦ 188,191 




3919 


POKE 15369 + 639 + 188,191 




4999 


PRINT* 896, "START* 




4919 


PRINT9B95+56, "FINISH' 




5999 


POKE 15369 ♦ 255 +15,179 




5919 


POKE 15369 + 255+16,149 




5929 


POKE 15369 ♦ 255 +17,132 




5939 


PRINT 6339, CURS (166) | 




5949 


PRINTS 331,CHR$(134)i 




5959 


PRINT*332,CHR$(151)i 




5969 


PRINT *333, CHRSU31) , 




5979 


PRINT*334,CHRS(171); 




5988 


X-RND(ll) 




5999 


Y-RNDU9) 




5199 


PRINT X"+"Y"-"; 




5119 


f-X+Y 




5115 


PRINT*469,"WHAT IS THE ANSWER"; 




5129 


INPUT A 




5136 


IF Z-A GOTO 5159 




5149 


PRINT9469, "WRONG ANSWER. TRY AGAIN.* ; :G0T0 


SI 29 


5159 


PRINT*469,*THAT IS THE CORRECT ANSWER*! A 




5169 


GOTO 6999 




6999 


PRINT*279,CHR»(32)i 




6919 


PRINT«271,CHRS(32) j 




6929 


PRINT*272,CHRS{32) ; 




6939 


PRINT*339,CHRS(32)j 




6949 


PRINT ("331, CHRSI321 ; 




6959 


PRINT«332,CHR$(32); 




6969 


PRINT*333,CHRS(32)» 




6979 


PRINT*334,CHRJ(32); 




6989 


PRINT«399,CHR$( 179)| 




6999 


PRINT *318,CHRS(14I), 




6199 


PRINT«311,CHR$(132)» 




6119 


PRINT«369,CHR$(169) » 




6129 


PRINT*379,CHRS<134)> 




6139 


PRINT«371,CHR$<151)| 




6149 


PRINT«372,CHR$(131) J 




6159 


PRINT*373,CHR$(171)i 




6169 






9999 


GOTO 9999 







3 REM * 




5 REM • MATH GAME BY KATHLEEN SCHMAUS 


7 REM * 




19 CLS 




28 X-RNDU9) 




38 Y-RNDU9) 




31 INPUT "DO YOU WISH TO ADD, 


SUBTRACT, MULTIPLY OR DIVIDE"; AS 


32 IF A$-"add" THEN GOTO 36 




33 IF AS-'SUBTRACT" THEN GOTO 


37 


34 IF AS-*MULTIPLY* THEN GOTO 


38 


35 IF A5«'DIVIDE" THEN GOTO 39 


36 PRINT X "♦■ Y:Z-X+Y: GOTO 


59 


37 PRINT X "-" YtZ-X-Yi GOTO 


59 


38 PRINT X "•• Yi Z«X«YlGOTO 


58 


39 PRINT X */" Y:Z-X/Yi GOTO 


59 


58 INPUT "WHAT IS THE ANSWER* 


10 


78 IF Q-Z GOSUB 88 




71 IF QOZ GOTO 159 




72 GOTO 18 




88 PRINT* 215, -HfHIIH- 




98 PRINT* 278, "1 #■ 




189 PRINT? 342, "II II* 




118 PRINT? 496, *• I* 




129 PRINT* 479, 'II ||' 




139 PRINT* 531, '1 1 Mill 


1 •• 


149 PRINT* 596, '•• 


II' 


142 FOR N-l TO 599: NEXT N 




145 RETURN 




159 PRINT* 215, 'lllllllll' 




169 PRINT* 278, '♦ »• 




179 PRINT* 342, "II II* 




189 PRINT* 496, "t |* 




199 PRINT* 479, *♦ l|||| |" 




299 PRINT* 531, ** I I | 


1 •' 


219 PRINT* 596, '•• 


##' 


212 FOR N-l TO 599:NEXT N 




229 GOTO 59 




Program Listing 3. Math Qame—Schmaus. 
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r^X^^<»S<i^^>. 
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COMPETENCY EXAM PREPARATION SERIES 

This comprehensive set of programs consists of simulated exam modules, a thorough diagnostic package, and a 
complete set of instructional programs. It is designed to teach concepts and operations, provide drill and practice and 
assess achievement levels through pre and post testing. The Competency Exam Preparation Series provides a structured, 
sequential, curriculum encompassing mathematical, reading and writing instruction. 

The C.E.P.S. program is designed for individual student use or use in a classroom setting. Programs provide optional 
printer capability, worksheet generation and performance monitoring. C.E.P.S. are available in two software formats. 

National Proficiency Series $1,299.00 

N.Y.S. Regents Competency Test, Preparation Series $1,299.00 

If desired separate Mathematics and Verbal packages are available for $799.00 ea. A Spanish language version of the 
Mathematics Instruction Package is available at no extra charge. 



forTRS-80 NORTHSTAK 
PET, APPLE OSl 



.**a£i 



COLLEGE BOARD PREPARATION SERIES 81/82 

Each program confronts the user with a virtually limitless series of questions and answers. Each is based on past exams 
and presents material of the same level of difficulty and in the same form used in the S.A.T. Scoring is provided in 
accordance with the formula used by College Boards. 

S.A.T., P.S.A.T., N.M.S.Q.T., set includes 25 programs covering Vocabulary, Word Relationships, Reading 
Comprehension, Sentence Completion, and Mathematics. Price $149.95 

EDUCATOR EDITION - includes all of the above programs plus detailed solutions and explanations. Price $229.95 
Independent Tests of S.A.T. series performance show a mean total increase of 70 points in students' scores. 
Update Pack to 81/82 specs. Available to previous owners. Price $69.95 

ODYSSEY IN TIME 

This spectacular adventure game adds a new dimension of 
excitement and complexity to Time Traveler. Players must now 
compete with the powerful and treacherous adversary in their 
exacting quest for victory. 

To succeed they must vanquish this adversary in combat that 
rages across 24 time periods. 

Odyssey In Time includes all the challenges of Time Traveler 

plus 10 additional eras, including those of Alexander the Great, 

Emperor Asoka of India, Attila the Hun, Genghis Khan. Each 

game is unique, and may be interupted and saved for later play. 

available for APPLE & TR-80 PET, 32K - $39.95 

ISAAC NEWTON 

Perhaps the most fascinating and valuable ed- 
ucational game ever devised — ISAAC NEWTON 
challenges the players to assemble evidence and 
discern the underlying "Laws of Nature" that have 
produced this evidence. ISAAC NEWTON is an 
inductive game that allows players to intervene 
actively by proposing experiments to determine if 
new data conform to the "Laws of Nature" in 
question. Players may set the level of difficulty 
from simple to fiendishly complex. 

In a classroom setting the instructor may elect to 
choose "Laws of Nature" in accordance with the 
complete instruction manual provided. 
For insight into some of the basic principles underlying 
ISAAC NEWTON see GODEL, ESCHER. BACH by Douglas 
R Hofstadler, Chapter XlXand Martin Gardner's MATHE- 
MATICAL GAMES column in Scientific American, October, 
1977 and |une, 1959. $24.95. 






TIME TRAVELER 

Confronts players with complex decision situations and 
the demand for real time action. Using the Time Machine, 
players must face a challenging series of environments that 
include; The Athens of Pericles, Imperial Rome, 
Nebuchadnezzar's Babylon, Ikhnaton's Egypt, Jerusalem at 
the time of the crucifixion, The Crusades, Machiavelli's 
Italy, The French Revolution, The American Revolution, 
and The English Civil War. Deal with Hitler's Third Reich, 
Vikings, etc. At the start of each game players may choose a 
level of difficulty . . . the more difficult, the greater the time 
pressure. To succeed you must build alliances and struggle 
with the ruling powers. Each game is unique. 

$24.95 



Kfell Software Corp. 



Send $2.00 for complete Catalogue. 
$5.00 Discount Coupon included in Catalogue. 
PROGRAMS AVAILABLE FOR 

TRS-80, APPLE II & PET **%» "' 375 Send check or money order to 

(unless otherwise indicated) ^* 21 Milbrook Drive, Stony Brook, NY 11790 

S D disk or D cassette (please specify) < 516 ) 751-5139 

^ All programs require 16K.TRS-B0 programs require LEVEL II BASIC/APPLE programs require APPLESOFT BASIC NY Slate Residents Add Sales Tax 

ss~ u«i or Ad.enis.rs on page 354 80 Microcomputing, September 1981 
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UTILITY 



If your TRS-80 is so smart, then let it debug its own software. 



1 1 



On Error. . .Fix" 



N. C. Richardson 
655 Carribean Road 
Satellite Beach, FL 32937 



One night at a local com- 
puter meeting we joked 
about the prospect of ever get- 
ting a Basic program command 
named "ON ERROR FIX"— a 
statement that would detect any 
and all errors and correct them 
on the first run without any 
bother to the programmer. To a 
limited degree, such a routine is 
possible. 

Program Listing 1 will func- 
tion on a Level II machine or one 
under control of a disk operating 
system. You can merge this rou- 
tine with any program you are 
writing without conflict. Line 
zero will be before any line you.; 
would normally start with and 
must be executed before any er- 
rors are encountered. The rest of 
the routine lines start with 49990 
and all are Incremented by 10. 
This keeps the bulk of the rou- 
tine out of your way and makes 
It easier to copy. The letter E is 
the only variable to avoid in your 
program. 

The routine as shown will fix 
six types of errors, tell what type 
of error, what line it's in and if it 



made a deletion. If it can't fix the 
error, it will tell the type and line. 
In all cases, execution of your 
program will not stop until it en- 
counters the command End or 
Stop. If you have a printer, 
change all the Print statements 
to LPRINT, so the error notes 
will not interfere with the 
monitor display. 

Error Address 

Here's how the program func- 
tions. Line 49990 has a colon (:), 
the use of which will be de- 
scribed in line 50020, and the 
common End is there in case 
you don't end your program's 
execution. This will keep the 
routine from trying to find errors 
in itself. Line 50000 sets the 
variable ER equal to the error 
; number and EL equal to the er- 
ror line number. 50010 causes a 
jump to 50160 on any error it 
cannot fix. 

Line 50020 is the heart and 
brains of the routine. The ad- 
dresses 16632 and 16631 con- 
tain the numerical data which 
points to an address when an er- 
ror occurs. This address will 
either contain a zero prior to two 
pointer addresses and two line 
addresses of the line which con- 
tains the error, or it will be one 



that contains the colon (ASCII 
58) immediately prior to the error 
in a multi-statement line. Thus 
the variable EA (error address) is 
set to the value to which 16632 
and 16631 point, plus either five 
or one — so the routine won't see 
those leading addresses or the 
first colon. Line 50030 sets the 
variable E equal to the contents 
of EA (error address) and E1 
equal to the contents of the next 
address. The variables in this 
line will be incremented to find 
the true error address and fix it. 
Skipping over the actual error- 
correcting lines we come to line 
50100. This line says that if the 
contents of the error address 
contain a colon or if one of the 
error-correcting lines has been 
successful (EF has been set), 
then stop the search and go to 
line 50120. If line 50100 is false, 
execution drops to line 50110 
where EA (error address) is in- 
cremented by one and control is 
sent back to line 50030. This ac- 
tion continues until line 50100 is 
true. If one of the error-correct- 
ing lines (50040-50090) are suc- 
cessful we want to stop the 
scan, get a printout of the result 
and continue with main program 
execution. If none of the lines 
are successful, if a syntax error 



other than the one we have a line 
for occurs, then we can dump 
out by line 50100 when it finds 
the next colon. That is why we 
don't want the routine to see the 
first colon and, just in case there 
isn't another colon in your pro- 
gram, one is placed before the 
End statement in line 49990. 

Line by Line 

Line 50040 is the first error- 
correcting line. It says if the er- 
ror number is one (Next Without 
For) and if the error address con- 
tains the code for the statement 
Next (Internal code 178) then 
POKE a space (ASCII 32) in the 
error address and set EF (error 
flag variable) to equal two. Line 
50050 checks to see if the error 
number is two (Syntax Error) and 
if so, whether the error address 
contains the Print statement 
and if the error address plus one 
contains an uppercase @. If all 
are true it will POKE a lowercase 
@ in the error address plus one 
and it will set EF=1. This line 
helps explain why it is neces- 
sary to look at the error address 
and EA plus one on each pass 
Line 50060 looks for a numbe 
three error (Return Without Er 
ror) and when it finds the ad 
dress which contains Return (In 
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ternal code 146) it will POKE a 
space in its place. It will also set 
EF = 2. Line 50070 acts on an er- 
ror four (Out of Data) and auto- 
matically executes a Restore 
command. 

At 50080 we are looking for a 
number 11 error (Division By 
Zero). If such is the case and the 
error address contains the num- 
ber 208, which is the internal 
code for division (/) and the next 
address contains a zero it will 
change it to a one. It sets EF = 1 . 
The last of the error-fixing lines, 
50090, looks for a number 19 er- 
ror (Resume Without Error). If 
this is true and the error address 
contains 159 (Internal code for 
Resume), it will POKE a space in 
its place; it sets EF = 2. 

Lines 50120 through 50340 
simply print out the type of error 
that occurred and then hold the 
carriage return and line feed so 
that line 50350 can print "In 
Line" and the line number of the 
error. The EF (error flag) variable 
is used at 50360. If EF = 0, con- 
trol goes to 50370. If EF = 1 , con- 
trol goes to 50380 and EF = 2 
sends control to 50390, which 
prints "Not Fixed" and executes 
"Resume Next." Execution of 
your program will continue with 
the next statement after the er- 
ror statement, and the error will 



remain. Line 50380 prints "Was 
Fixed," sets the EF variable flag 
back to zero and resumes ex- 
ecution by stating where an er- 
ror had been. Line 50390 acts ex- 
actly as 50380 except it prints 
"Was Deleted." 

Thus your program, no matter 
how many errors, will execute to 
the end. However, you will get a 
running report of every error as 
soon as it is encountered and 
some of your errors may be fixed 
permanently. Those uppercase 
@s are sometimes difficult to 
find, but this program will hunt 
them down. 

Some fixes seem question- 
able. Would changing the de- 
nominator from zero to one work 
for you? If not, would some 
other number do? Change the 
line to fit your purpose, or delete 
line 50080. Would restoring your 
data automatically be detrimen- 
tal? If so, take out line 50070. 
The other fix lines shouldn't give 
you any trouble. 

If you have a disk system save 
the program in ASCII with the 
command save "ERROR 
FIX/ASC",A. Then you will be 
able to merge the program with 
your current program after it is 
written. Otherwise load Error Fix 
from tape before you start to 
enter your program. ■ 



CLS:DEFINT E:0N ERROR GOTO 5B0BB 

49990 :END 

50000 ER«ERR/2+l:EL«PEEK(16621)*256+PEEK(16620) 

50010 IFER=1 OR ER-2 OR ER-3 OR ER-4 OR ER-11 OR ER-19 THEN 5002 

ELSE 50160 

50020 EA-PEEK(16632)*256+PEEK(16631):IF PEEK(EA)-0 THEM BA-EA+5 

ELSE EA-EA+1 

50030 E-PEEK(EA) :E1-PEEK(EA+1) 

50040 IFER-1 AND E-135 POKE EA,32:EF-2 

50050 IPER-2 THEN IFE-178 AND El-96 THEN POKE EA+l,64iEF-l 

50060 IFER-3 AND E-146 POKE EA,32:EF-2 

50070 IFER-4 THEN RESTORE :BP-1 

50080 IFER-11 AND E-208 AND El-48 THEN POKE EA+1,49:EF-1 

50090 IFER-19 AND E-159 POKE EA,32:EF-2 

50100 IFE-58 OR EF>0 GOTO 50120 

50110 EA-EA+1:GOTO 50930 

58120 IPER-1PRINT"NEXT WITHOUT FOR" » 

50130 IFBR-2PRINT"SYNTAX ERROR*; 

50140 IFER-3PRINT"RETURN WITHOUT GOSUB" | 

50150 IPER-4PRINT"OUT OF DATA'; 

50160 IFER-5PRINT* ILLEGAL FUNCTION CALL"; 

50170 IPER-6PRINT"OVERFLOW"> 

50180 IFER«7PRINT"OUT OF MEMORY"; 

50190 IFER-8PRINT"UNDEFINED LINE"; 

50200 IFER-9PRINT"SUBSCRIPT OUT OP RANGE"; 

50210 IFER-10PRINT"REDIMENSIONED ARRAY"; 

50220 IFER-llPRINT'DIVISION BY ZERO"; 

50230 IPER-12PRINT*ILLEGAL DIRECT"; 

50240 IFBR-13PRINT"TYPE MISMATCH"; 

50250 IFER-14PRINT"OUT OF STRING SPACE"; 

50260 IFER-15PRINT"STRING TOO LONG"; 

50270 IPBR"16PRINT"STRING FORMULA TOO COMPLEX"; 

50280 IFER»17PRINT"CAN'T CONTINUE"; 

50290 IPER-18PRINT"NO RESUME"; 

50300 IPER-19PRINT"RESUME WITHOUT ERROR"; 

50310 IPER«20PRINT"UNPRINTABLE ERROR"; 

50320 IPER-21PRINT"HISSING OPERAND"; 

50330 IFER-22PRINT"BAD FILE DATA"; 

50340 IPER-23PRINT"DISK BASIC ONLY"; 

50350 PRINT" IN LINE ";EL; 

50360 IF EF-1 THEN 50380 ELSE IF EF-2 THEN 50390 

50370 PRINT" NOT FIXED" I RESUME NEXT 

50380 PRINT" WAS FIXED" :EF-0: RESUME 

50390 PRINT" WAS DELETED" iEF-0: RESUME 



Program Listing 



BOOKKEEPING 
MADE SIMPLE 



, , 

HNf«W IE0GCR (UNC'IONS 


' 

*CCCK*tS MMBll 


1 Set Dp b Reve* Accounrs 


«Q PwHes ledger 


2 Pos i • (i One 'a iedge< 


V Wile Payaoie Cn«*s 


3 Close Mo"i'i'l>j' 


42 Accounts P»»8bl« LMItfe 


4 D»<y JDuinai 




S UonfMy Journal 


ACCOUNTS MCfiVAfili 


6 Monifiiy Dei* Repon 


Sfl Receivao'e ledge< 


1 "ria Balance 


SI CuS'Orner Brii'ig 


8 incui'ip Suir-«'ni 


!>? Receivable Agng 


9 Balance S'eei 


W inieirsi Aaa 0' 


10 Can 01 Accounts 


64 ftecuwoie labe'S 


P*»W)li H..NC0MS 


SPWAi fu>*C f IONS 


,'0 Aotusi Il« Utiles 


60 tamaii/aiion 


71 Payroll .edge 


fit lnde> UpAair 


?? Wme Payto* Cherts 


62 update b Pos: ig f.i« 


?3 Punt W ? 


63 Sfleta' D»ecmrn5 


?< 'niluH..p tup* P»» Period 


64 General 0*eC'o<\ 




6S Adiusi Budget 




86 Comrjinii.t Budge i Rfpo<" 


30 CAIl OPIlOMl USKi MiMj 


6' Ca»' (od Ol Sjpsson 


»- 



The Menu 



THE 

BOOKKEEPER 

SYSTEM™ 



•A Combined General Ledger, Accounts Payable, 
Accounts Receivable, and Payroll 

-Expandable to Include Inventory, Order Entry, 
Certified Payroll, or Mail List 

'Complete Easy-To-Follow Manual and 
Instructions 

•For Microcomputers using CP/M, OASIS or 
TRSDOS Operating System 

-64 K Minimum, Hard Disk Compatible 

-Demonstration Disk Available 




8<I>{?$TO«lErO 
3$H(lia<&S a JiSKS, ^43 



179 W*st Smith StrtMt 

Gollatin, Tennes»»« 37066 



CP/M, OASIS and TRSDOS an TMs of 
Digital *»i«orch, Phoi» One Sy$f»m$ 

and Tandy Corp , r»sp«cflv«ly 



DEALER INQUIRIES 
WELCOME 



(615)452-1027 

We're Writing Programs for People 



s S— L/s( of Advrtlstns on p»e» 354 
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APPLICATION 



Prolong yours with this immortal program. 




Joseph Wailand 

1343 Miller sport Highway 

Williamsville, NY 14221 



Numerous factors affect 
your life expectancy. 
Some of these can be con- 
trolled and some cannot. Sex, 
heredity and personality are im- 
portant, but so are your life- 
style and habits. A thorough 
discussion of this subject can 
be found in Dr. Kugler's Seven 



ip. e>c*-r/e 



Keys to a Longer Life by Hans 
J. Kugler. 

This program will provide an 
estimate of your life span and 
perhaps help you identify those 
areas which can be improved. 
Extensive use of the INKEY$ 
function makes the program 
pleasant and easy to use. It is 
popular at parties and can be 
used to demonstrate your com- 
puter. The program is written in 
Level II Basic and takes less 
than 7K bytes of memory. ■ 



Program Listing 



xB REM LIFE EXPECTANCY CALCULATION 

IS REM INSPIRED BY AN ARTICLE 

28 REM PROM PEOPLE'S ALMANAC 2, P. 974, ARTICLE BY PETER PASSELL 

38 REM PROGRAM WRITTEN BY JOSEPH WAILAND 

48 CLS: PRINT" LIPE EXPECTANCY CALCULATION" 

58 PRINT: PRINT" THIS TEST PROVIDES AN APPROXIMATE CALCULATIO 

N OF YOUR" 

68 PRINT'LIFE EXPECTANCY IF YOU ARE BETWEEN 28 AND 65 YEARS OLD 

AND' 

78 PRINT" ARE REASONABLY HEALTHY." 

88 FOR 1-1 TO 6888: NEXT I 

98 S-72 

188 CLS:PRINT"GENDER":PRINT:PRINT 

118 PRINT'ARE YOU A MAN OR A WOMAN?" 

128 GS-INKEYS:IF GS=""THEN12B 

138 IF (G$<>"M") AND (GSO'W) THEN 128 

148 IF G$«"M"THEN S-S-3 ELSE S-S+4 

158 GOT0188 

168 BS«INKEY$:IF B$-"THEN168 

178 IF (B$0"Y") AND (BSO'N") THEN 168 ELSE RETURN 

188 CLS:PRINT"LIFE-STYLE":PRINT 

198 PRINT'DO YOU LIVE IN AN URBAN REGION WITH A POPULATION GREAT 

ER" 

288 PRINT'THAN 2,888, 8887" :PRINT:GOSUB 168 

218 IFBS-"Y"THEN S-S-2 ELSE GOT0248 

228 PRINT'NERVOUS TENSION AND AIR POLLUTION ARE ASSOCIATED" 

238 PRINT'WITH CITY LIVING. ": PRINT:GOT027B 

248 PRINT-DO YOU LIVE IN A TOWN WITH A POPULATION UNDER 18,888" 

258 PRINT'OR ON A FARM?" : PRINT:GOSUB168 

268 IFBS»"Y"THEN S-S+2 

278 PRINT'DOES YOUR OCCUPATION INVOLVE MOSTLY DESK WORK?" : PRINT: 

GOSUB168 

288 IFBS-"Y"THEN S-S-3 ELSE 388 

;'9 GOT0 3.il! 

388 PRINT'DOES YOUR WORK REQUIRE HEAVY PHYSICAL LABOR ON A" 

318 PRINT-REGULAR BASIS?" : PRINT:G0SUB16B 

328 IF B$«"Y" THEN S-S+3 

338 PRINT'DO YOU DO INTENSE EXERCISES (RUNNING, SWIMMING, TENNIS 

, ETC.)" 

34B PRINT"4 OR MORE TIMES A WEEK FOR AT LEAST 38 MINUTES PER SES 

SION?*:GOSUB 168 

358 IF B$»"Y" THEN S-S+2 

368 CLS :PRINT"LIFE-STYLE": PRINT: PRINT 

378 PRINT'DO YOU LIVE WITH ANOTHER PERSON?" : PRI NT:GOSUB 168 

388 IF BS-"Y" THEN S-S + 5 ELSE 438 

398 PRINT-WHEN PEOPLE ARE LIVING TOGETHER, THEY ARE LESS DEPRESS 

ED," 

488 PRINT'EAT BETTER, AND TAKE CARE OF ONE ANOTHER." 

418 FOR I-1T0488B:NEXTI 

428 GOT046B 

438 PRINT-BOW MANY DECADES HAVE YOU LIVED ALONE SINCE AGE 25?' 

448 YS-IHKEYS:IF YS-"THEN44B 

458 Y-VAL(Y$):S-S-Y 

468 CLS:PRINT"PERSONALITY-:PRINT 

478 PRINT'DO YOU SLEEP MORE THAN 18 HOURS EACH NIGHT?" : PRINT:GOS 

488 IF BS-"Y" THEN S-S-4 ELSE 518 

498 PRINT-EXCESSIVE SLEEP CAN BE A SIGN OF CIRCULATORY DISEASES' 

588 PRINT'OR DEPRESSION. ': PRINT 

518 PRINT'ARE YOU EASILY ANGERED, INTENSE, OR AGGRESSIVE?' : PRINT 

:GOSUB 168 

528 IF B$-"Y* THEN S-S-3 ELSE 548 

53B GOT056B 

548 PRINT'ARE YOU RELAXED OR EASY GOING?' :PRINT:GOSUB16B 

558 IF BS-'Y' THEN S-S+3 

568 PRINT'ARE YOU A HAPPY PERSON?* : PRI NT : G0SUB1 6 8 

578 IF BS-'Y' THEN S-S+l ELSE 598 

588 GOT0618 

598 PRINT'ARE YOU A SAD PERSON?' :PRINT:GOSUB168 

Program continues 
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Program continued 



688 IP BS-'Y" THEN S-S-2 

til CLSlPUMT'PERSOHALITY'iPRIKTiPMIR 

621 PRIJTT i PRINT-HAVE YOU GOTTEN A SPEEDING TICKET WITHIN THE PAS 

T TtAM'tTOirriGOSUBlSI 

(31 irB$-*N*THEJI«BI 

6 48 PRINT'TRAPriC ACCIDENTS MB THE MAJOR CAUSE OP DEATH AMONG' 

658 PRINT'YOONG ADULTS.' 

Ml POR I-1T04888:NEXT I 

(71 S-S-l 

III CLS!PRINT'ACHIEVE«ENTS':PRINT!PRINT 

691 PRINT'DO TOO EARN NORE THAN $51,111 A YEAR?' : PRINT :GOSUB16l 

7ff IP S8-'N* THEII 738 

711 S-S-2 

721 PRINT'HIGH LIVING AMD TtSSION AXE OPTEX ASSOCIATED WITH WEAL 

TI.'iniR 

731 PRINT'DO TOO HAVE A COLLEGE DEGREE?' : PRINTiGOSUBlSI 

741 IP BS-'N' THEN 791 

751 PRINT' EDUCATION IS SUPPOSED TO LEAD TO MODERATION. ' i PRINT 

761 S-S + l 

771 PRINT'DO TOO HAVE A GRADUATE OR PROFESSIONAL DEGREE?' I PRINT l 

GOSUB1CI 

781 IP BS-'Y' THEN S-S+2 

791 CLS:PRINT'ACHIEVEMENTS':PRINTiPRINT 

III PRINT* ARE TOO 65 TEARS OLD, OR OLDER, AMD STILL WORKING?': PR 

IMTiGOSUBlfl 

111 TfBS-'V THEII S-S+3 ELSE84I 

B2I PRINT' RETIREMENT SOMETIMES LEADS TO DEATH. ' 

B3I *ORI-lT04888iNEXTI 

841 CLSlPRINT'HEREDITY'lPRINTiPRIHT 

851 PRINT'DID ANT OP TOUR GRANDPARENTS LIVE TO AGE 88 OR MORE?': 

PRINT:GOSUB16l 

■•■ IP BS-'N' THEM 891 

871 PRINT'DID ALL 4 OP TOUR GRANDPARENTS LIVE TO AGE 81 OR MORE? 

■iPRIMTiOOSUBlCI 

881 IP BS-'Y' THEM S-S+6 ELSE S-S+2 

891 PRINT'DID EITHER OP TOUR PARENTS DIE OP A HEART ATTACK OR ST 

ROUE BEFORE THE AGE OP 58?' |PRINT|G0SUB16§ 

911 IP BS-'Y' THEM S-S-4 

818 PRINT'DID ANT PARENT, BROTHER, OR SISTER JNDER AGE 58 HAVE A 

HEART' 
926 PRINT'COMDITIOM OR CANCER - OR HAS RAD DIABETES SINCE CHILD! 
OOD?*:GOSUB168 
931 IP BS-'Y* TERN S-S-3 
946 CLS:PRINT'HEALTH':PRINT 

956 PRINT'DO YOU SMOKE CIGARETTES?* : PRIWT:GOS JB16I 
961 IP BS-'N' THEM 1848 

976 PRINT'DO YOU SMOKE MORE THAM 2 PACKS A DAY?'iGOSUB166 
981 IP BS-*Y* THEN 1628 

991 PRINT'DO TOO SMOKE 1 TO 2 PACKS A DAY?" :GOSUB166 
1818 IP BS-'Y' THEM 1136 
1616 S-S-3 : GOTO 16 41 
1626 S-S-8:GOT01B46 
1836 S-S-6:G0TO1846 
1846 PRINT! PRINT'DO TOU DRINK THE EQUIVALENT (OR MORE) OP A HALF 

PINT OP LIQUOR' 
1656 PRINT'PER DAT?' I PRINT1GOSUBI66 
1666 IP B$-'T' THEN S-S-l 

1676 PRINT*ARE TOU OVERWEIGHT?" : PRI NT : GOSUB16 3 
1686 IF B3-*N" THEN 1186 

1896 PRINT* ARE TOU OVERWEIGHT BT 56 LBS. OR MORE?' :G0SUB1«6 
1166 IF BS-'Y" THEN 1156 

1116 PRINT'ARE TOU OVERWEIGHT BT 36 TO 56 LBS.?' :G0SUB166 
1126 IF B$-*Y" THEM 1161 

1136 PRINT'ARE TOU OVERWEIGHT BT 16 TO 36 LBS.?' :GOSUB16l 
1148 IF BS-*Y* THEN 1178 ELSE 1186 
1156 S-S-8tGOT01186 
1166 S-S-4 :G0TOl 188 
1176 S-S-2 IGOT01188 
1186 CLS:PRINT*AGE*iPRINTiPRINT 
1196 A-38 
1266 PRINT'ARE TOU LESS THAM 36 TEARS OLD?" :GOSUB166 

1216 IP BS-'Y*GOT0132i 

1226 PRINT: PRINT'ARE TOU BETWEEN 36 AMD 46 TEARS OLD?* 1GOSUBI6S 

1231 IF BS-'N'GOT01256 

1248 A-39:S-S+2:GOT01326 

1256 PRI NT ■ PRINT'ARE TOU BETWEEN 46 AND 58 TEARS OLD?' 1GOSUBI6I 

1268 IP BS-*N* GOTO 1266 

1278 A-49: S-S+3 :GOT0132i 

1266 PRINT: PRINT'ARE TOU BETWEEN 56 AND 76 TEARS OLD?* 1GOSUBI66 

1298 IP BS-'N* then 1318 

1366 A-7f:S-S+4:GOT01328 

1316 A-71 j PRINT: PRINT* I ASSUME TOU ARE OVER 78 TEARS OLD.' 

1326 IP GS-*M* THEM1366 

1338 PRINT: PRINT'DO TOU VISIT A GYNECOLOGIST AT LEAST ONCE A TEA 

R7'lGOSUB166 

1346 IP BS-'Y* THEN S-S+2 

1356 GOT01396 

1366 IFA<-4STHEN1396 

1376 PRI NT: PRINT'DO YOU HAVE ANNUAL MEDICAL CHECKUPS?' :GOSUB166 

1366 IP BS-'Y" THEN S-S+2 

1398 IF (S>-68) AND (S<65) THEM 1476 

1466 IP (S>-65) AND (S<76) THEN 1486 

1416 IF (S>-76) AND (S<75) THEN 1496 

1426 IF (S>-75) AND (S<86) THEN 1566 

1436 IF (S>-86) AND (S<85) THEN 1516 

1448 IF (S>-85) AND (S<96) THEN 1526 

14SB IP (S>-96) AND (8<95) THEM 1538 

14CI IP S>-95 THEM 1546 

1476 B-26iBl-35:G-15iGl-19iGOT01556 

1486 B-3C:Bl-47:G-26:Gl-29iGOT01556 

1496 B-48iBl-6S:G-36:Gl-38tGOT015S6 

1566 B-61:B1-74:G-39:G1-52:GOT01556 

1516 B-7SiBl-86iG-S3iGl-69:GOT01556 

1526 B-87iBl-95iG-76iGl-87iGOT01SSB 

1536 B-9CiBl-98:G-88:Gl-9(:GOT01556 

1S4S B-99:Bl-99.9:G-97iGl-99.6:GOT0155f 

1551 CLS:PRINT:PRINT*YOU» CALCULATED LIFE EXP2CTANCY IS*;S|*YEAR 

■ .' 

1S6I IP S<A GOSUB162I 

1576 :rs<6lTHENl6ll mmmm 

1566 PRINT: PRINT' AT THIS ACE, TOO NILL RAVE OOTLIVBD '•••'TO'lBl 
|'% OP THE MEN' 

1596 PRINT'AND 'fG|'TO'|Gl|"% OP THE WOMEN.* 

1611 PRINT: PRINT: PRINT t PRINT'DO YOU WANT TO RUN THE PROGRAM AGAI 

N (Y/N)?' 

1(82 GOSUB 166 

1664 IF BSO'Y" THEN END 



Free. Fast. And 
a phone call 




INMAC INTRODUCES 

THE SOLUTION TO YOUR MICRO SUPPLY 

AND ACCESSORY NEEDS. 

• One-Stop Shopping. This new catalog offers over 1.000 
products specifically for Micro Computers Compatible with 
Apple. Atari, Northstar, TRS-80s and many others. 

• Convenient Ordering. By mail or phone, ordering supplies 
and accessories from this catalog will be quick and easy. 

• Fast Delivery, well ship your order within 24 hours from our 
distribution centers in New Jersey. California. Illinois and Texas 
Overnight delivery available. 

• Top Quality Products. Virtually all our products are 
guaranteed for at least one year. Risk-free trial of any product 
for 45 days. _ 

Send for your FREE A MfflWWfBf 



Inmac Catalog or call 
(408) 727-1970. 



Dept. Micro. 2465 AugusDne Drive. 
Santa Clara. CA 95051 -556 




TRS-80 
CASE 



ATTACHE STYLE CASES FOR CARRYING AND PROTECTING A COM 
PLETE COMPUTER SET-UP CONSTRUCTED OF THE HIGHEST QUALITY 
LUGGAGE MATERIAL WITH SADDLE STITCHING WILL ACCOMMODATE 
EQUIPMENT IN A FULLY OPERATIONAL CONFIGURATION ALONG WITH 
MANUALS. WORKING PAPERS AND DISKS NEVER A NEED TO REMOVE 
EQUIPMENT FROM CASE. SIMPLY REMOVE LID. CONNECT POWER AND 
OPERATE. LID CAN BE REPLACED AND LOCKED FOR SECURITY AND 
PROTECTION WITHOUT DISCONNECTING CABLES FULLY TESTED 

• AP101S Apple and Single Disk Drive $109 

• AP102D Apple and Double Disk Drive 119 

b> AP103M Apple, 9 inch Monitor and Double Drive 129 

• RS201 TRS-80, Expansion Unit and Double Drive 109 

• RS202 TRS-80 Monitor and Accessories 84 

% P401 Paper Tiger Printer. . -~.~....~ ~ 99 

• P402 Line Printer ll-Centronics 730 89 

• CC90 Matching Attache Case 75 



-*■» cariPUTEB case conpflrw 

5550 INOIANA MOUND CT COLUMBUS OHIO 43?' 3 
i6<4. 868-9464 
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EPSON 

MX-80 



$489. 



00 



THE 

REAL THING 

Yes this is the EPSON MX-80 printer 
you have read so much about... the 
one everyone's buying. Better get 
yours while they are available at this 
terrific pricel One of the most advanc- 
ed 80 column dot matrix printers 
available featuring the world's first 
disposable print head. There are lots of 
printers to choose from but, once you 
have compared, you will find it hard 
to pass up the EPSON MX-80. 

FE ATU RES 

• Bidirectional Printing 

• Logical seeking of shortest lines 

• 80 Characters per second 

• 64 Block Graphic Characters 

• Forms Handling 

• Disposable print head 

• Adjustable Tractor-type pin feed 

• Paper width 4 to 1 inches 

• Inked ribbon cartridge with 3 
million character life 

• Self test mode 

• Full 96 character ASCII with 
decenders 

• Printing Modes: Standard, Double, 
Emphasized and Double 
•Emphasized 

• Correspondence Quality 

Add S 6 00 shipping iCont US) Doei not include cable See op- 
posite page for ordering information 

EXTRAS FOR 
EPSON 

TRS80 Cable (I & III) $29.95 

APPLE Cable & Interface .... $96.00 

RS232 Interface $69.95 

Ribbon Cartridge. Black $ 13.95 

Interface & Cable (from Mod. I 

Keyboard) $99.95 

ORDER TODAYII 



Save Even More 
EPSON MX-70 

$ 389.00 

NO FRILLS PRINTING 
AT NO FRILLS PRICE 
FEATURES 

• Unidirectional printing 

• 80 Characters per second 

• Bit-plot graphics 

• Forms handling 

• Disposable print head 

• Adjustable tractor-type pin feed 

• Paper width 4 to 1 inches 

• Inked ribbon cartridge with 3 
million character life 

• Self test mode 

• Full 96 character ASCII 

• Printing modes: normal & normal 
expanded 

Add S6 00 shipping |Cont US| Does not include cable See op- 
posite page for ordering information 



ALL NEW! 
MX-80 F/T 

All the features of the MX-80 
plus friction feed. 



$599. 

LIMITED QUANITIES 



00 



CABLES, SOFTWARE 
& OTHER GOODIES 

* DRIVE CABLES 

2-Dnve $24.95 

3-Dnve $29.95 

4-Dnve $34.95 

Extender Cables $ 16.95 



• OPERATING SYSTEMS 

DOSPLUS 3.3. 3. 3D (spec. Mod I or III) 

$89.95 

LDOS $135.00 

NEWDOS/80 $1 35.00 

TRSDOS 2.3 DISK & MANUALS 1 7.95 
DOUBLE ZAP II $44.00 

Add S 1 2S per pound shipping ($ I 00 minimum! 

• DISKfcl I ES|5-l/4 in . softsectored. box of 1 0J 

Cert, one side, single density S29.95 

Cert, two sides, double density. . . $39.95 

• OTHER SOFTWARE & BOOKS 

SCRIPSIT (disk) S89.95 

SPECIAL DELIVERY S 11 9.95 

XTRA SPECIAL DELIVERY S 189.95 

SUPER UTILITY S39.95 

MICROSOFT BASIC DECODED & 

OTHER MYSTERIES 
iZD.95 

TRS80 DISK & OTHER MYSTERIES . S 1 9.95 

MAKE 80 SI 4.95 

SPECIAL WORD 

PROCESSING 

PACKAGE 

Includes the followinq: 

• EPSON MX-80 PRINTER 

• CABLE 

• SCRIPTSIT (disk) 

• SPECIAL DELIVERY (disk) 

• freight and insurance. 
SPECIAL 

$725,oo 

(Reg $917.00) 

Order today from 

AERGCGfilP 

Redbird Airport, Bldg. 8 

P.O. Box 24829 

Dallas, Texas 75224 " M7 

See Opposite Page 



o 



AROCOMP5/23 
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TRS 80* 



DISK DRIVES 

40 & 80 TRACK 

as low as $299.95 



NEW LOW PRICES 

Thanks to you our sales volume has 
allowed us to cut costs and we're pass- 
ing the savings along. We offer the best 
disk drive value m the market place 
Reliability, features and cost tough to 
beat We deliver, and we stand behind 
our products. AEROCOMP is the only 
manufacturer to offer FREE TRIAL! Buy 
Aerocomp drives today You deserve the 
best. 

BEST FEATURES 

• Fast 5 ms track-track access time 

• Operates single or double density 

• "FLIPPY'' feature for lower media cost 
(40-1 & 80-1) 

• Head load solenoid. 

• Disk ejector. 

• Easy entry door. 

• NEW EXTERNAL DRIVE 
CONNECTION, mo km* 

cove' (o nook up caDie| 



CABLE 



ieea to remove the 



EPSON 

MX80 

PRINTERS 

$489.oo 

TRS80 Cable (I & III) $29.95 

APPLE Cable & Interface. . $96.00 

RS232 Interface $69.95 

Ribbon Cartridge. Black. .. $13.95 
Print Head (STD) $26.95 

Add S6.00 shipping (Cont. U.S.) does not 

include cable. 

MX80F/T 

All the features of MX80 plus Friction 
Feed. Shipping & cables as above 

S 599.oo 

Add S ) 00 lor snippm!) & rvndlmq 



ORDER TODAYI 

• 40-Track Drive S299.95 

• 80-Track Drive $429.95 

• 40-Track "FLIPPY" Drive. . . S329.95 

• 80-Track "FLIPPY" Drive. . . . $449.95 

• 40-Track Dual-Head Drive. . $449 95 

• 80-Track Dual-Head Drive. . S 579.95 

A» joovr cKrv« *e compwif w«n urver enclosure power suppty 
■wxl extern* drive cable connection II 5 VAC K>60 H/ ^50 VAC 
S0/&0 H/ available on special order 

• 40-Track Bare Drive $269.95 

• 80-Track Bare Drive $399.95 

• 40-Track "FLIPPY" Bare Dnve$299.95 

• 80-Track "FLIPPY" Bare DnveS4l9.95 

• SPECIAL PACKAGES* 

STARTER A $339.95 

40-Track Drive, 2-dnve cable. TRSDOS 
2 3 Disk & Manual. Freight & Ins. 

SRARTER B $369.95 

40-Track "FLIPPY" Drive, cable. TRSDOS 
2.3 Disk & Manual. Freight & Ins. 

COMBO C $465 CO 

40-Track "FLIPPY" Drive. 2-dnve cable. 
NEWDOS/80 or LDOS. Freight & Ins. 

COMBO D $585.00 

80-Track "FLIPPY" Drive. 2-dnve cable. 
NEWDOS/80 or LDOS. Freight & Ins. 

COMBO E S709.00 

Two 40-Track "FLIPPY" Drives. 4-Dnve 
cable. TRSDOS 2 3 Disk & Mannual. 
Freight & Ins. 

COMBO F $999.00 

Two 80-Track "FLIPPY" Drives. 4-dnve 
cable. NEWDOS/80 or LDOS. Freight & 
Ins 

COMBO G $909 00 

Two 40-Track Dual-Head Drives, cable. 
TRSDOS 2.3 Disk & Manual. Freight & 
Ins. 

COMBO H $1299.00 

Two 80-Track Dual-Head Drives, cable, 
NEWDOS/80 orLDOS. Freight & INS. 
DOSPLUS available with any special 
package. 

AddS 5 00 per drive lor snipping & Handling IConl US) 

FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use it with your system for up to 14 
days. If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it. packed in the 
original shipping container, for a full re- 
fund. [Special packages wii be perforated) We have 

complete confidence in our products and 
we know you will be satisfied! ORDER 
TODAYII 

• TRS80 is TRADEMARK of TANDY CORP 



WARRANTY 

We offer you a 1 20 day unconditional 
warrenty on parts and labor against any 
defect in materials and workmanship. In 
the event service, for any reason, 
becomes nescessary, our service depart- 
ment is fast, friendly and cooperative. 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug in when you receive them Each 
drive is 1 00% bench tested prior to ship- 
ment. We even enclose a copy of the 
test checklist, signed by the test techni- 
cian, with every drive AEROCOMP 
MEANS RELIABILITY"! 

ORDER NOWII 

To order by mail, specify Model 
Number(S) of Drive, cable, etc (above), 
enclose check, money order. VISA or 
MASTERCHARGE card number and ex- 
piration date, or request COD. ship- 
ment. Texas residents add 5% sales tax. 
Add $ 5 00 per drive for shipping & handl- 
ing (Cont US) Please allow 2 weeks for 
personal checks to clear our bank No 
personal checks will be accepted on 
COD. shipments-cash, money orders or 
certified checks only You will receive a 
card showing the exact C.O.D. amount 
before your shipment arrives. Be sure to 
include your name and shipping address. 
You will be notified of the scheduled 
shipping date Your bank credit card will 
NOT be charged until the day we ship .11 

DRIVE CABLES 

2-DRIVE S24 95 ' 

4 -DRIVE S34 95 

WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7808. OPERATOR 24 

FOR VISA/MASTERCHARGE COD. ORDERS 

Colitornio diol (800) 852 7777. Operator 24 Aloska 
and Hawaii diol (800) 824 7919. Operator 24 
TOLL FREE LINES WILL ACCEPT ORDERS ONLYl 
For Applications and Technical information, coll 
(214) 337-4346 or drop us a cord 



Dealers inqiries invited 

dc^GCGfil? 

Redbird Airport, Bldg. 8 ^ M7 
P.O. Box 24829 

r\ II TV 7CO04 AROCOMP/iJ 

Dallas, TX 75224 arocomp/24 



• See List of Advrttor* on page 354 
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GRAPHICS 



Get quality graphs of math functions. 



Curve Plotter 



Steven M. Zimmerman, Ph.D. 
Craig Stanley 
College of Business 
University of South Alabama 
Mobile, AL 36688 



r our TRS-80 has the ability to 
draw quality graphics of 



any mathematical function as 
good or possibly better than any 
draftsmen's. Our program will 
output to CRTs and hard copy 
printers, and includes scales for 
both. 

The graphic capacity of our 
TRS-80 interested us not only as 
visual attention-getter for 
games, but also as a useful tool 



in defining and describing equa- 
tions and other mathematical 
functions. This program is the 
latest result in a long line of 
routines. Our earlier versions 
graphed somewhat faster than 
this version, but they lacked a 
scaling feature which allows 
for function variations without 
changing it. This graphing rou- 



tine can be invaluable for repre- 
senting business and statistical 
data. 

It also demonstrates the con- 
cept of mathematical functions. 
Any single variable function 
may be plotted in this program; 
however, care must be taken to 
ensure the function exists with- 
in the domain and range selec- 
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ted for the plot. The sine, cosine, 
and other trigonometric func- 
tions make delightful graphics 
when plotted by this program. 

Program Output and Input 

The results of our curve-plot- 
ting program may be outputted 
to either the CRT or printer. The 
curve is drawn on the CRT and 
then is copied on to the printer 
by a screen-copying routine. 
Figs. 1 and 2 are sample runs of 
the program. Fig. 1 represents a 
tangent function, while Fig. 2 is 
a second-degree polynomial. 

The main input to be aware of 
is the equation of the line to be 
plotted. The user must enter the 
equation in the form: 1000 
Y= F(x). For example, to plot the 
lineY = 2X + 10, you must type: 
1000Y = 2*X+ 10, and then re- 
start the program by typing RUN 
35. The rapge of values for X and 
Y for the function must also be 
inputted. It is possible to specify 
where the function does not ex- 
ist, so care must be taken. If you 



try to graph your function where 
it cannot be plotted, three 
asterisks will appear in the 
screen's top right corner. When 
the plotting routine is complete, 
"Press Enter to continue" will 
appear at the top. In addition to 
specifying the domain and 
range, the user must also note 
the increment to plotting. You 
should experiment with this vari- 
able to get an idea of what value 
is needed for any given situa- 
tion. If your increment value is 
too small, too few points will be 
plotted and you will get nothing 
more than a few dots. On the 
other hand, if the range is too 
large, you will get a very dense 
line. It may take awhile to draw a 
curve for very large increment 
values. 

The listed program for curve 
plotting is simple to use and is 
of enormous value in demon- 
strating the TRS.-80's abilities. It 
can also be valuable as an add- 
on to yield a display of the re- 
sults of other computer opera- 
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Fig. 3. Y=1/x 



tions; we have used curve plot- 
ting for a regression analysis 
program. The program also 
proved enjoyable as a computer 



demonstration to an algebr? 
class, and we had no trouble 
showing the shape of different 

distributions.! 



Program Listing 



';JJ 



IB CLEAR500:CLS:REM "CURVE" 

20 CLS:ONERROR GOTO4000 : PRINT'CURVE PLOTTER" : PRINT'DEVELOPED BY" 

:PRINT"STEVEN M. ZIMMERMAN, PH.D. AND CRAIG STANLEY 1980 ":I-0 

30 INPUT'DOES LINE 1000 CONTAIN YOUR FUNCTION (Y/N) " ; Y$: IFY$=*N" 

END 

35 INPUT"PRINTER(Y/N)";P$:INPUT"INCREMENT (1001 

40 GOTO2035 

1000 Y=l/X 

1010 GOT02125 

2035 INPUT"LOWER AND UPPER LIMITS OF X";SX,TX 

2036 INPUT'LOWER AND UPPER LIMITS OF F(X)";SY,TY 
2040 CLS!FORI-4T043:SET(18,I) sNEXT 

2050 F0RI«19T0125:SET(I,43) :NEXT 

2070 I-7iFORJ-64T0832STEP128:I«I-l:PRINT@J, (SY+I* (TY-SY)/6) ;:NEX 

T 

2080 I— liFORJ-970TO1015STEP9iI-I+liPRINT@J,(SX+I*(TX-SX)/5)i:NE 

XT 

2090 GOT02115 

2100 PRINT622, "PRESS ENTER TO CONTINUE"; 

2110 Q$«INKEY$tIFQ$-""THEN2100ELSE20 

2115 S-(TX-SX)/JJ 

2120 FORX-SXTOTXSTEPS:GOTO1000 

2125 E=23+((X-SX)/(TX-SX) ) *93 :F=40-( ( Y-SY)/(TY-SY) ) *37 :IFE>5ANDE 

<126THENlFF>0ANDF<45 SET(E,F) ELSE PRINTS61 ,"***";: FORL=1TO10 : R= 

RND(100) :NEXTL:PRINT@61," "; 

2130 NEXT 

2200 IFP$O"Y"THEN2100 

3000 LPRINT" " 

3010 E$="M#.M":FORI=2T043:J=42-I:IFI<43LPRINTUSINGE$; (SY+J*(TY 

-SY)/39) >: 

3020 FORX=0TO110STEP1.6 

3030 IFPOINT(X,I)THENLPRINT"*";ELSELPRINT" "; 

3040 NEXTX:LPRINT" ":NEXTI 

3050 FORI=0TO6:G(I+1)=SX+I*(TX-SX)/5:NEXT 

3060 E$=" *«*,ttt.tt* *tt,ltt.t*t 

### ii*,ttt. Ht ###,#I#":LPRINTUSINGES;G( 

) ,G(6) :GOTO2100 

4000 RESUME 2125 



###, ###.tt» ##»,##«. 

(1),G(2),G(3),G(4),G(5 



TIME ... 

METHUSELAH" has time for you 
and your TRS-80 



The name Methuselah has always b«en associated with long life. The Methuselah 
computer clock board with its 24 hour clock and its perpetual calendar is indeed worthy 
of the title. Methuselah puts state of the art technology into action with the on board four 
year lithium battery backup to keep it running even when your computer is off. That 
means no more fooling around with the software or hardware "clocks" that become Rip 
Van Winkles when the computer is reset or turned off. 

Methuselah has many other timely features Software patches keep the DOS and BASIC 
time and clock commands ticking. Only two screws mount Methuselah inride the expan- 
sion interface without soldering, clipping, cutting, or jumpering. There is even a spare 
1/0 port and four different interrupts available for people who love to tinker. 

SPF.CS: MM/DD/YY. HH:MM:SS and day of the week. Four year lithium battery 

backup Crystal controlled timing (adjustable 32.768 oscillator). Twenty four 
hour clock and perpetual calendar. 



Send check or money order to: 



mtoi 

NDM DESIGNS ^135 

6330 W. North Awe. 

Wauwatosa. Wl 53213 

(414) 259-0120 



MSI $97.00 

(add $4 .50 P and H) 

SSI $17.50 

(add $2 50 P and H) 
(If you wish to use Methuselah 
and the RS-232 board (26-1145) 
together, order this option which 
includes a new cover and con- 
nector.) 
\VI residents add 4% sales tax. 



METHUSELAH is a 
trade mark of NDM Designs 



• Sm List of Advertisers on page 354 
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STRUCTION 



Manipulate the print density on your line printer. 



Width Control 



Jim Barbarello 

RD #7, Box 241 H. Tennent Rd. 

Englishtown, NJ 07726 



The TRS-80 microcomputer 
and Radio Shack's serial 
line printer can team up to 
create a quality, low-cost busi- 
ness computer system. This 
system has one drawback, how- 
ever. The printer (actually Cen- 
tronics' Model 779 built for Ra- 
dio Shack) has a character width 
control which is a continuously 
variable potentiometer. Once 



disturbed, readjusting the con- 
trol to the exact previous setting 
is almost impossible. Thus, if tab 
positions must correspond to 
exact distances on the line (as 
with forms), the printer is virtu- 
ally unusable. 

What we need is a control to 
set exactly repeatabJe character 
widths (or print density). Also, if 
a variety of print densities is 
available, a visually pleasing 
product can be printed with in- 
termixed character sizes. (Note: 
The character sizes will be iden- 
tical in any given line but can 
vary from line to line.) 

Fortunately, the printer de- 
sign affords easy modification 
for such a facility. One approach 
is to replace the current control 
with a multi-position rotary 
switch. A 12-position switch will 
allow selection from 12 different 



-HARDWARE MOO 

S1 = Single pole, 12-position rotary switch (such as Radio Shack 275-1385) 
R = 4.7 Kohm, 1/4 watt, 1 10% resistor (12 Required) 
Misc: four-ft. wire (approximate), solder, etc. 

-SOFTWARE MOD 

R1 =8.2 Kohm, 1/4 watt, ± 10% resistor 

R2=15Kohm, " 

R3 = 27 Kohm, " 

R4=10Kohm, " 

D1.D2 = 1N4138 or 1N914 silicon switching diode 

IC1 =4001 quad 2-ltf NOR CMOS IC 

Ic2,lc3 = 4013 dual D flip flop CMOS IC 

IC4 = 4016 quad analog switch CMOS IC 

Misc: 16-ft. wire (approximate), PC or wire wrap board, four IC sockets, solder, etc. 

Table 1. List of Materials 



print densities and will require 
12 resistors and some wire. 

Another approach is more 
sophisticated, utilizing four 
CMOS ICs in an external circuit. 
It does, however, allow software 
selection from seven print den- 
sities. By including the LPRINT 
CHR$(X) statement in your pro- 
gram (where X can vary from one 
to seven), the print density will 
be changed automatically. Any 
number of LPRINT CHR$(X) 
statements can be included in 
the program to continually 
modify the print density. 

The two approaches can be 
combined in a small cabinet, 
and a single DPDT switch can 
select either the hardware 
(rotary switch) or software (ex- 
ternal circuit) control. 



1 



The Hardware Approach 

The service manual provided 
with your printer contains a 
wealth of information. One such 
tidbit is the printer schematic 
diagram. A look at this diagram 
reveals that the print density is a 
direct function of the frequency 
of oscillation of ME1 , a 555 timer 
IC. This frequency is varied by 
adjusting the 50-Kohm potentio- 
meter R25. An alternate method 
is to replace R25 with a rotary 
switch that selects discrete 
resistance values. Since any 
given switch postion will always 
provide the same resistance 
value, the oscillation frequency 
(and thus print density) will 
always be the same. 

The diagram for this simple 



V 




TO RI6/R25 
JUNCTION 



TO RI5/R25 

JUNCTION 



12 POSITION ROTARY 
SWITCH 



R ■ 4 7Kfl. I/4W, 10% RESISTOR 



Fig. 1. 
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FROM DATAI 

(R57>> 



FROM DATA 2 

1RS8)> 




> TO RI6/ 

R25 JUNCTION 



> TO RIS/ 

R25 JUNCTION 



modification is shown in Fig. 1. 
Note that all resistors are 4.7 
Kohms, 1/4 watt, ±10 percent. 
As the switch is rotated from 
position one to position 12, the 
total resistance presented to 
the printer increases in 4.7 
Kohm steps until, at position 12, 
the total of 56.4 Kohms pro- 
duces the largest print density. 
The modification begins by 
removing the two screws secur- 
ing the printer's rear cover. Next, 
remove the two screws securing 
the PC board and the two 
screws securing the heat sink 
attached to the rear of the PC 
board. (Removal of the PC board 
is pictured in the service manu- 
al.) Finally, remove all connec- 
tors to the PC board (they are 
keyed, so you cannot reconnect 
them improperly) and remove 
the PC board from the printer. 
Unsolder and remove the print 
density pot R25. Solder a long 
length (two feet or so) of wire to 
each of the two R25 PC pads as 



Fig. 2. 

indicated in Fig. 6. Then reinstall 
the PC board. Pass the wires 
through the former access hole 
for R25 in the rear cover and 
secure the cover. 

Wire a 12-position rotary 
switch as indicated in Fig. 1. 
Connect either lead form the PC 
board to the rotary switch's 
rotor contact, and the other lead 
to the switch lug corresponding 
to position 1. You may fabricate 
a switch holder from a small 
piece of aluminum and mark the 
positions with transfer type let- 
tering. Mounting the switch near 
the front of the printer makes it 
easily accessible. 

Prior to printing, rotate the 
switch to the appropriate print 
density setting. Your program 
may include a variation of the 
program line: 5000 CLS:INPUT" 
PLACE PRINT DENSITY TO 9. 
PRESS ENTER WHEN READY"; 
BL$. In this way, you will be 
alerted to adjust print density 
before printing begins. An exam- 



TO HARDWARE MOD 
SI-ROTOR SI-POSITION I 



TO RI6/R25 JUNCTION £- 
(PRINTER) 



S— s: 



->TO RI5/R25 JUNCTION 
(PRINTER) 



AUTOMA _ IC 



TO SOFTWARE MOD 



pie of the different print den- 
sities are provided in Fig. 3. 

The Software Approach 

It is more desirable to allow 
the program to directly control 
print density without your inter- 
vention. The circuit shown in 
Fig. 2 will automatically change 
the print density when the 
LPRINT CHR$(X) statement is 
executed. As indicated in the 
service manual, a print com- 
mand causes the computer to 
place data on lines 1 through 7. 
After about one ^s, the com- 



puter pulses the data strobe line 
low to alert the printer to accept 
the data. 

Since the ASCII codes 1 
through 7 have no function in 
the 779, they can be used for 
print density control. In this 
mod, data lines one, two and 
three are connected to the D in- 
puts of the 4013 CMOS D flip 
flop's ICs. When the common 
clock line strobes high, the data 
is latched into the flip flop. It 
will remain there until another 
clock pulse is generated. Data 
lines four through seven are 
connected to NOR gates in the 
4001 quad 2-ln CMOS NOR IC. If 
any of the data four through 
data seven lines go high, the 
output of IC1C is held low. When 
the data strobe line pulses low, 
the IC1C output will not change. 
Thus, when a character code 
greater than seven is on the data 
lines, the clock is inhibited. If 
the data character code is seven 
or less (data four through data 
seven equals zero), the output of 
IC1C will generate a positive 
clock pulse when the data 
strobe line pulses low. This will 
latch in the new information. 

The output of the three flip 
flop latches controls three CMOS 
analog switches (3/4 of a 4016 
CMOS quad analog switch). For 
a 1 input data, the latch outp t 
will be a 0. This opens the 
switch so that the timing resis- 
tor paralleling the switch is con- 



Fig. 2a 



THIS IS HI BRfU OF RIKI DENSITY 1 1 

THIS IS ID EWIfli £f PRINI DENSITY I i 

THIS IS m EXPIRE Cf PRINT DENSITY • 2 

THIS IS RN EXPIRE OF PRINT DENSITY I 2 

THIS IS FN EXPIRE Cf FKINT DENSITY • 3 

THIS IS FM EXPIRE Cf PRINT DENSITY I 3 

THIS IS FN EXFfPLE Cf PRINT DENSITY • 4 

THIS IS PH EXflHPLE Cf PRINT DENSITY • 4 
THIS IS RN EXfiMPLE Cf PRINT DENSITY t 5 
THIS IS RN EXAMPLE Cf PRINT DENSITY • 5 

THIS IS RN EXAMPLE OF PRINT DENSITY • 6 

THIS IS RN EXAMPLE OF PRINT DENSITY • 6 
THIS IS AN EXAMPLE OF PRINT DENSITY » 7 
THIS IS AN EXAMPLE OF PRINT DENSITY * 7 
THIS IS AN EXAMPLE OF PRINT DENSITY * 8 
THIS IS AN EXAMPLE OF PRINT DENSITY # 8 
THIS IS AN EXAMPLE OF PRINT DENSITY # 9 
THIS IS AN EXAMPLE OF PRINT DENSITY * 9 
THIS IS RN EXAMPLE OF PRINT DENSITY # 18 
THIS IS RN EXAMPLE OF PRINT DENSITY tt 10 
THIS IS RN EXAMPLE OF PRINT DENSITY tt 11 
THIS IS RN EXAMPLE OF PRINT DENSITY # 11 
THIS IS AN EXAMPLE OF PRINT DENSITY # 
THIS IS AN EXAMPLE OF PRINT DENblTV * 



12 
12 



Fig. 3 Example of Manually Selectable Print Densities 
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THIS 15 FN EXPmi Cf PRINT DENSITY 1 1 

THIS IS FN EXPK1E Of PRINT DENSITY • 1 

THIS IS PH EXftflPLE OF PRINT DENSITY I 2 

THIS IS FN EXM1PLE OF PRINT DENSITY • 2 

THIS IS fiN EXAMPLE OF PRINT DENSITY t 3 

THIS IS AN EXAMPLE OF PRINT DENSITY t 3 

THIS IS AN EXAMPLE OF PRINT DENSITY * 4 

THIS IS RN EXAMPLE OF PRINT DENSITY # 4 

THIS IS AN EXAMPLE OF PRINT DENSITY tt 5 

THIS IS AN EXAMPLE OF PRINT DENSITY # 5 

THIS IS AN EXAMPLE OF PRINT DENSITY # 6 

THI^ l c - AN EXAMPLE OF PRINT DENSITY # 6 

THIS IS AN EXAMPLE OF PRINT DENS I TV # 

THIS IS" RN EXAMPLE OF PRINT DENS I TV # 

Fig. 3a Example of Software Selectable Print Densities 



PROGRAM TO DEMONSTRATE SOFTWARE CONTROL 
OF CENTRONICS 779 SERIAL LINE PRINTER 
LINING THE 779 SOFTWARE CONTROLLER 
JAMES } BARBARELLO 12 OCTOBER 1979 



10 *REM+*»*« 
20 REM****'' 
30 REM****" 

40 RfcM****-" 
50 REM****n 

70 REM 

80 FOR 1=1 TO 7 

90 FOR J=l TO 2 

100 LPRINT CHR*<I> 

110 LPRINT "THIS IS AN EXAMPLE OF PRINT DENSITY » 

120 NEXT J, I 



Fig. 4. 





TO RI5/R25 JUNCTION 



TO RI6/R25 JUNCTION 



Fig. 5 




DSTA 
DATA I 
DATA? 
DATA 3 



Fig. 6 



MICROCOMPUTING 
PETERBOROUGH, N a 63458 



JIM BFlRBAPELLO 

R D »1 BOX 241H TEHMENT ROAD 

ENGLISHTOWN II .' 07726 



DEAR JIM 



WE WOULD LTIV TO INFORM R-LL THE HOBBYISTS IN ENGLISHTOWN THfiT OUR MAGAZINE 
IS OFFERING fl SPijClftL DISCOUNT FOR fl LIMITED TIME TOflCQIWINT VOU WITH RN EXCITING 

Fig. 7 Example of Form Letter Using Software Print 
Density Control 



;0 LPRINT " ".CHPIllO. 1 LPRINT CHPK128) 

.0 LfPINT CUP!- 7> IPPINT IMP'.;;'. "80 MICROCOMPUTING" 

.0 II--INT CHRIC.. LPRINT TAB' 28>. "PETERBOROUGH, H H 02458" 

; i i p- :ht tpingj i28> 

69 Us"? IT CHRI'.2> LPPIHT "TO " 

.'6 REX' ii.es.tt 

80 LPR.' ' CMP! '.5 J LPRINT ft! LPRINT BJ LPRINT C* LPRINT STRING* (2. 128> 
96 FOR :--l T 12 IF MM<M. I.l>«" " THEN 1 = 1-1 ELSE NEXT 
?5 LPRIM CHR*<7> 

10.3 I PR I "t'EflP '.LEFT!'.*!. I>. " " LPRINT CHR!<4> . LPRINT CHP!ll28> 

110 FOP 1-- TO ?0 IF IIIDKCI, I. l>=" " THEN 1 = 1-1 ELSE NEXT 

12* L°R!NT HE UOULD LIKE TO lift** H.L IHE HOBBYISTS IN ".LEFTKCS. I). " THAT OIR MftAZINE' 

128 LPS! NT ■•■■ *FtRW«i S SPECIAL DISCOUNT fOR fl LIMITED TIME TCflCOWlNT VCU UITH RN EXCIUW 

506 C'HTfi .IT i PRBRFELLO, R l> 11 BOX 1'41H TENNENT PORO. ENGL I SHTOHH N J. 07726 



Fig 8 P,<>oram Used to Produce the Form Letter 



nected alone in the timing resis- 
tor chain R1 , R2, R3. Conversely, 
a zero data input causes the cor- 
responding switch to be turned 
on, effectively shorting the as- 
sociated timing resistor. In this 
way, seven discrete timing resis- 
tance values (binary 001 through 
111) can be realized. The resistor 
values indicated provide dis- 
crete resistance steps of ap- 
proximately eight Kohms and 
maintain the 50-Kohm total re- 
sistance formerly provided by 
R25. Power for the circuit is pro- 
vided by the printer. 

The circuit shown in Fig. 2 can 
be reproduced on a wire-wrap 
board, or a PC board can be fab- 
ricated using the pattern provid- 
ed in Fig. 5. In any event, sock- 
ets should be used for the ICs. 
Follow the procedure outlined 



above in the hardware approach 
for removing the PC board, R25 
and attaching the two new leads 
in R25's former position (see 
Fig. 6). Place the printer PC 
board, component side up, in 
front of you with the printer 
cable connector facing you. 
Tack solder a long length (one 
foot or so) of wire to each resis- 
tor and the PC foil trace as 
shown in Fig. 6. After identifying 
each lead, resecure the PC 
board, route the wires through 
the printer rear cover and secure 
the cover. Finally, connect the 
identified leads to the modified 
PC board. The modified PC 
board should be housed in a 
suitable external case. 

The use of the software mod 
and an example of the different 
print densities obtainable are 
provided in Figs. 4, 7 and 8. 

Combining the Two 

Since both modifications con- 
nect to the R15/R25 and R16/R25 
junctions, either can be selected 
with a DPDT switch. The sche- 
matic diagrams of such a switch- 
ing system are shown in Fig. 2a. 

Before You Begin 

If your printer is less than 90 
days old, it carries a warranty. 
Any modification to the printer 
could void that warranty.B 
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PROVEN MONEY MAKERS FOR YOUR TRS-80* 

"Tandy Corp. Trademark 



MAIL LIST SYSTEM 



$69.95 



Many businesses require a mailing list Most use a clumsy, hard 
to edit, and expensive mechanical system to generate addresses 
This lucrative market is ripe for the picking if you have a 
convenient to use and fast mailing list program Our system will 
accomodate almost any "custom" requirements of a customer 
and is lightening fast In addition, the program is easy for your 
non-computer type employees to use A glance below will show 
that we are light-years ahead of any other system in options, 
speed, and sheer volume of names handled but don't let that 
fool you This system can be used just as easily on one disk for a 
small Christmas card list 

• Maintain virtually an infinite number of disks all in con- 
tinuous alph. or zip order essential for large lists 

• Sort 2320 entries (2 full 40 track double density disks) in 
only 32K or an incredible 4640 entires (2 full 80 track 
double density disks) in only 48K! Made possible with 
our unique date compression techniques on the Model III 

• Super fast sort by alph or zip order (8 sec for 1000 
entries) both orders can exist simultaneously on disk 

• High speed recovery of entries from disk speed of sort is 
meaningless if retreival from disk is slow ours pulls in 
over 11 per sec! 

• In zip order all entries with same zip code are also 
arranged alphabetically 

• Four digit zips have a leading "0" appended on labels 

• Backup data disks are easily updated as entries are 
created, edited, or sorted extremely useful!! 

• Optional reversal of name about comma for that non- 
computer, personalized look 

• Master printouts of your list in several formats (not just a 
rehash of the labels) Optionally continuous or page 
oriented Your customers will want this' 

• All 0's in address labels are replaced by easier to read 0's 

• All labels optionally support an "Attn " line Individual 
labels can be printed to the attention of several people 
at a given address while the address is stored only once 
on disk saves memory on disk 

• Many user defined fields with plenty of options for 
simultaneous purging and selecting even allows for 
inequalities powerful and easy to use" 

• Continuous screen display of how many addresses 
currently printed 

• Each disk entry automatically "remembers" how many 
mailings have been made for that particular entry Can 
be tied in with purge/select 

• Primarily written in BASIC for easy modification 
embedded machine code for those speed sensitive areas 

• Minor custom changes done by us free of charge 

• Editing is simple and fast direct access or automatic 
alphabetical search 

• Deleted entries have "holes" on disk filled automatically 

and alph order is still maintained! 

• Test label printing lets you make horizontal and vertical 
adjustments with ease 

• Optional "one time" mailing for some selected entries 

• Extensive use of error traps (both operator and machine 
induced) even recovers from a power failure during a 
printout! 

• Extensive documentations manual available separately 
for $3.95. 

• Hardware requirements 32K, virtually any printer, and 
either one or two disk drives 



Precision 
Prototypes 



410 E Roca 

Refugio, Tx. 7817; 

(512-526-4758) 



Football Scouting Report $89.95 

How many high schools and colleges are there within a 75 mile 
radius of you? Did you know that each is a potential customer at 
the rate of from S500-$1000 per season? Many already subscribe 
to more expensive (but inferior) computer analysis services of 
their scouting reports Using such a service, a coach will typically 
have an opponent scouted several times prior to actually playing 
them This series of programs was written to the specifications of 
a coach with two state championships to his credit As a result, 
the emphasis is on producing statistics that will help in predict- 
ing what the opponent will do in a given situation This is a 
sophisticated set of programs fully equivalent to that used by 
professional football teams 

• Separate and detailed analysis of running, passing, and 
kicking 

• Passing and running tendancies by field position 

• Point of attack tendancies and statistics for runs 

• Tendancies and statistics for wide/short side, weak/strong 
side, and left/right run. 

• Each analysis can be broken down according to forma- 
tion, down, and yards to go 

• Allows for up to 5 games to be analyzed simultaneously 

• Convenient disk storage of plays and games 

• Extensive error traps. ..won't let you make an error 

• Two actual games (almost 100 plays) on disk to facilitate 
your learning and evaluation 

• Extensive documentation available separately for $3 95 

even includes some advertising and price samples to 
help plan your promotion Also included are some sample 
printouts 

• Hardware requirements 32K, 1 disk driver and printer 



FAST SORT 
$19.95 



Interfaces to your own 
basic programs sort with 
the speed of machine code 
but with the convenience 
of basic You don't have to 

know assembly language programming to use these two 
programs )ust use your disk to merge our short basic programs 
(with embedded machine code) with your own basic program 
Follow our simple instructions to poke only 2 values before 
making the user call from basic The pokes will set up a sort for 
string, integer, single, or double precision arrays Also ascending 
or descending order is controlled by a single poke Use one of 
two programs to sort arrays of the form A(1) or A(Q(1)) The disk 
includes six simple basic programs that are ready to merge with 
the main sort programs Use them for learning and evaluation 
Also included is a ready to use basic program (already merged 
with the ORDER program). Use it to obtain a printout of 
alphabetized names 

Sample Sort Times 
8 sec for 1000 dbl prec. numbers 50 sec for 5000 integers 
Time for alphabetizing (string sorting) is compatible but 
dependent on the length of the strings ■ 



ill 



Loan amortization sche- LOAN AMORTIZATION 

dules are a must for banks, C1Q QC 

S & L institutions, and ac- * ^.^3 

counting firms You will be (Tape only for Model I & III) 

able to charge $5 plus per schedule Multiply that times the 
number of all loans your clients make per day... easiest money we 
know of! runs in about 2 minutes and achieves pin point 
accuracy with a built in calendar. 



• SpenH Model I or III \*hen ordering 

• All programs supplied on disk 
exc epl I oan Amortization 

• AddSI r >() tor postage and handling 

• Texas residents add VX. 



Master* harge 



C.O.D. 



sSee List of Ad*«rtla»n on p*g» 354 
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APPLICATION 



Computerization of the sport of kings. 



Equine Equation Evaluation 



Raymond J. Harold, CCP 
8363 Shady Grove Circle 
Manassas, VA 22110 



You can go to any. racetrack 
in the country and eaves- 
drop on the inevitable debates 
going pn among the small 
groups of horseplayers, and the 



topic is always the same. 
George likes horse number 
three because it has the best 
clock times. Fred likes the num- 
ber five because of its last race. 
Tom thinks a betting coup is in 
the works involving number sev- 
en. John insists that number 
nine is the class horse in the 
race and his friends are wasting 
their time. Once the race is over 



Enter Race Information 

Race Number? 8 

Number Of Horses In Race? 9 

What Is The Distance For This Race? 7F 

What Is The Track Record For This Distance? 121 

Use Class Ratings In The Analysis— (Y) or (N)? Y 

Use Track Variants In The Analysis— (Y) or (N)? Y 

Use Subjective Data In The Analysis— (Y) or (N)? Y 

Use Workout Times In Analysis— (Y) or (N)? Y 

Is The Above Data Correct— (Y) or (N)? Y 
—Track Bias Adjustment— 

(0) = None 

(1) = Inside 

(2) = Middle 

(3) = Outside 
Which One? 1- 

Flg. 1 



Horse Number 1 



Number Of Times Raced This 

Year? 14 
Number Of Times Finished 1st 

This Year? 2 
Number Of Times 2nd Or 3rd 

This Year? 9 
Total Earnings For The Year? 

20235 
Enter Weight To Be Carried? 

112^ 

Fig. 2 



and the winner determined, the 
horseplayer with the winning 
ticket gladly recaps the reasons 
for his brilliant selection. Yet, no 
one is listening because there's 
only 15 minutes before the next 
race, and another selection 
must be made. The debate 
starts anew. 

Although not generally 
known, horse racing is the most 
widely attended spectator sport 
in the country. Attendance in 
1979 was over 77 million, with 
baseball a distant second. In the 
case of football, basketball and 
other sports, predicting a winner 
means sitting through three 
hours of play before knowing 
the result. With horse racing, the 
analysis, selection and result is 
accomplished in rapid-fire suc- 
cession usually 10 times or 
more in three hours. 

This program will hopefully 
aid each individual horseplayer 
in making more informed deci- 
sions during his or her excur- 
sions to the racetrack. 

The system is primarily based 
on the philosophy of speed han- 
dicapping. However, provisions 
have been included to take into 
account all factors that could in- 
fluence the outcome of a race. 
Through the use of optional 
data entry categories, handicap- 
pers who wish to account for 
criteria such as class, trainer 
and jockey ratings, track biases 
and stretch running horses will 
be able to do so. As with any 
type of forecasting, the more 
data available for the analysis, 
the more accurate the result. 



The use of different options also 
provides each handicapper with 
the ability to tailor use of the 
program along lines approach- 
ing his own handicapping tech- 
niques. 

The program was written for 
use on a TRS-80 Level II, with a 
minimum of 16K. The Microsoft 
Basic code should be relatively 
easy to transfer to other ma- 
chines with a little effort. Data 
entry is self-explanatory, with 
examples given in most cases. 
Editing routines have been in- 
corporated into the program to 
ensure data integrity whenever 
possible. The ability to read the 
charts in the daily racing form is 
assumed. 

Handicapping Strategy 

The nucleus of the analysis 
done by this program is based 
on speed figures. However, any 
kind of information given to the 
program is acted upon. To para- 
phrase an old saying: "Handi- 
cappers do not live by speed 
alone". Criteria such as class 
and track bias will have a defi- 
nite effect on the outcome. 

The biggest problem with 
most computerized handicap- 
ping systems is that they tend to 
be too narrow in approach. In an 
attempt to speed data entry for 
a race, some systems only re- 
quire speed rating and distance. 
Others only accept data for the 
last race the horse ran. This kind 
of system disregards such fac- 
tors as weather and track condi- 
tions, among others. If horse A 
runs six furlongs in 1:12 on a 



262 • 80 Microcomputing, September 1981 



16K MEMORY ONLY $19.95 

For TRS-80 Keyboard or Expansion 
interface. KEYBOARD requires jumpers: 
$2.00 Extra. These are 200 ns tested RAM 
for the TRS-80, APPLE or EXIDY. 



DISK DRIVES for the TRS-80 OR PMC-80: 



All of our drives come complete with power supply 
and chassis They may be used with existing Radio 
Shack drives on the same cable' 40 track drives 
store 102K bytes single density, and 175K double 
density 80 track drives have 175K single density 
and 345K double density 1 All drives guaranteed 90 
days, one year on power supply 

40 track MPI drives $319.95 

40 track TEAC drives $315.95 

40 track TANDON drives $319.95 

80 track MPI drives $449.95 

80 track TEACdrives $429.95 

2 drive cable $ 25.95 

4 drive cable $ 39.95 

NEWDOS 80 VER. II $139.95 

NEWDOS 80 VER. I Special sales price. 

Limited Quantity $89.95 

PERCOM S DOUBLER II 

for double density operation! $169.95 

The DOUBLER works with the TRS or PMC 

expansion interfaces to allow you to use yourdnves 
m double density! You may still operate your drives 
as single density also 1 Comes with DBLDOS 
operating system which allows you to transfer 
single density files to double and vice versa 1 GREAT 
BUY' 

DISKETTES: VERBATIM DATALIFE! BOX OF TEN 
SOFT OR HARD SECTORED 5'V $32.50 

WE HAVE DRIVES AND CONTROLLERS FOR THE 
MODEL III. CALL FOR PRICES!!! 




MODEMS AND TELE 
COMMUNICATIONS 



LYNX Telecommunication 
system for the TRS-80 and 

PMC-80 $279.95 

Includes terminal software and 
connections for instant 
hookup 1 Can be connected to the TRS-80 or PMC- 
80 with or without an expansion interface 1 

LYNX now comes standard with auto answer/auto dial & 
all hardware for Mod I & III! Also includes host program. 
GREAT BUY! 

•TARICONNECTION: Modem for 400/800, 

complete with software! $249.00 

APPLECONNECTION: Modem for 

APPLE II $279.95 




PMC-80, 16K LEVEL II 

COMPUTER $739.00 

The PMC-80 is a work alike to 
the TRS-80 mod I computer! 
Comes with Microsoft's BASIC 
in ROM. Built in cassette. 12" 
video monitor. Expandable to 
48K. 
Compatible to All TRS-80 MOD I Programs. 

PMC 80 without monitor $595.00 

RF— MOD for PMC to TV hookup $39.95 

PMC-80 EXPANDER 100 SYSTEM $499.95 

INCLUDES: 32K memory. Parallel printer driver. Disk con- 
troller. Fully compatible with TRSDOS, NEWDOS, VTOS, 
and all other TRS-80 Mod I disk software! 

New New PMC-81 Computer is here CALL 

APPLE II COMPUTERS 48K $1299.00 

ATARI 400 $ 495.95 

ATARI 800 COMPUTER $ 795.00 

ZENITH Z-89 48K, 1 DISK ALL IN ONE 

COMPUTER $2495.00 



VIDEO MONITORS 



LEEDEX 100 12' B/W MONITOR $159.95 

SANYO 9 B/W MONITOR $199.95 



PRINTERS 



OKIDATA MICROLINE 80 All OKI S have TRS-80 

Graphics!!! $420.00 

Comes with friction and pm feed upper iowercase 

Graphics 

EPSON MX-80 PRINTER: Word Processing Quality 

Printout with Graphics! Call 

NEC SPINWRITER with Tractor Feed $2995.00 
DIABLO MODEL 1630 with Tractor $2695.00 

UNIVERSAL PRINTER STANDS $ 94.50 

Other Accessories: 

SUP-R-MOD RF Modulator for APPLE $29.95 
ARCHBOLD SPEED-UP MOD FOR TRS MOD I. 

Allows up to 300% increase! $45.00 

MICROSOFT BASIC Decoded and other 

mysteries $29.95 

TRS-80 DISK and other mysteries $18.95 

ZBASIC BASIC COMPILER for MOD I and MOD III 
TRS-80 and PMC-80 Increase basic program 
speeds by up to 200 times!!!!! 
Tape $79.95 Disk $89.95 

Both For Only $99.95 Specify MOD I or MOD III 

WE HAVE HUNDREDS OF PROGRAMS FOR 

ALL THE POPULAR COMPUTERS! 

CALL FOR OUR FREE CATALOG 



4877 E Speedway Blvd 
Tucson. Arizona 85712 



Personal and Business Checks take 3 weeks to dear For fastest delivery use Certified Checks Money Ode's C'ea t Card O'COD 

We will try and beat any published price on any system! Call! 
SIMUTEK CALL TOLL FREE TO ORDER 

COMPUTER PRODUCTS Z, (800) 528-1149 

Please mention this magazine when ordering 

ARIZONA RESIDENTS ADD 6% SALES TAX 



1 602) 323-9391 Technical Questions 



WE TAKE VISA. MASTER CARD 



TPS-8C S A 'PACEVAPK O c RADlC SHACK A 



APPLE IS A 'RADFMARK OF APPLE INC 



.- S— Lilt of Advertisers on page 354 
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GO 
PIGGYBACK! 




EEflTRDnillS ^§v^jSfffi 

add lowercase with our 
plug-in piggyback board! 

9WX7H Dot Matrix $135 
5WX7H Dot Matrix $ 95 

TWO complete character sets on board: 

96 character ASCII PLUS choice of 
128 character APL, TRS-80/H-19 Graphics or 
Scientific. (Customer defined: add $50/set). 
Most printers convertible: specify logic board # 



SYDNEY III: 

Shop Comparatively I 





^368 



Digital Systems Engineering 



12503 King's Lake Drive. Reston ¥A 22091 (703) 620-2994 

ALSO AVAILABLE: New Centronics and Integral Data Systems printers at 
15-20% beiov Hst also, used printers ot several makes Cal for Information! 

MasterCard. VISA, Cfieck. M0. P0 All products waranteed 90 days 



2 For 1 + 5 CENTS SALE 
^v* RIBBONS 

OoO^uR RADIO SHACK* AND CENTRONICS LINE PRINTERS 
EXACT REPLACEMENT INSERTS 

[Cartridges NOT Included) Radio Shack List + 5c SALE 

LP l-ll-IV-700-730-737-779 3 Pack $18.95 6 for $19.00 

LP lll-V 1 Each $13.95 2 for $14.00 

LP VI 1 Each $11.95 2 for $12.00 

Daisy Wheel II (Carbon Film] 3 Pack $24.95 6 for $25.00 

(Our instructions make inserts easy to put In your cartridge] 

RELOADS 

lYou SEND old CARTRIDGES to US- WE RELOAD them for you] 

LP lll-V Each $9.00 

LP VI Each $9.00 

DW II [Long-Life FABRIC-We MODIFY YOUR cartridge] El $9.00 
DW II [Carbon Film] 3 Pack $15.00 

NEW CARTRIDGES FROM RADIO SHACK 



LP lll-V (26-1414 

LP VI (26-1418 

LP VII (26-1424 

DW II Carbon Film [26-1419 



Two for 
Two for 
Two for 
3 Pack 



$25.00 
$21.00 
$16.00 
$22.00 



MODEL II 8" GAME DISCS 

Volume 1 $24.95 Each ..._. Volume 2 

Biorhythms, Trap Ugly, Bingo 

Rip Cord, Yacht Sea Towers, Blackjack 

Concentration + 4 More Farkle, Pony + 3 More 




SEND CHECK, MONEY ORDER or COD TO: 

BCCOMPC0.237 

800 South 17* Box 246 • 417 932-4196 
Summersville, M0 65571 



MS* 



*RADI0 SHACK is a trademark of Radio Shack, a Tandy Corp. 



fast track, is he really better 
than horse B who ran six fur- 
longs in 1:13 on a muddy track? 
Probably not. You may spend a 
little more time entering data in- 
to this program, but you will get 
better results. 

The other major problem with 
most commercially available 
handicapping programs is their 
price tag. It may take several 
hours to enter this program into 
your computer, but it's free! 

The philosophy behind this 
program is to account for all per- 
tinent factors. It examines all 
areas of an individual horse's 
past performance and develops 
a composite of that horse. This 
composite is compared to those 
of the other horses in the race. 
In order to make the composite 
for each horse as meaningful as 
possible, the following strategy 
should be followed when enter- 
ing information for each horse: 

• Whenever possible, enter 
the results of at least three 
races for each horse. Four or 
five would be better. The pro- 
gram allows up to 10. This 
takes longer but it helps to off- 
set special-case conditions. 

• Use the track variant option. 
•Try to use results from 
races that were run on fast or 
good tracks. The track variant 
will adjust for bad conditions, 



but races run in the slop 
aren't indicative of a horse's 
capabilities. 

• If the track you attend has a 
known bias, use the track bias 
option to adjust. 

• Use the class rating option 
where applicable. 

• Remember, you can input 
too little information but you 
can't input too much! 

Editing 

Much of the data entered into 
the program is edited for valid 
content. This is done in an at- 
tempt to avoid the "garbage in- 
garbage out" computer tradi- 
tion. For example, if you wanted 
to enter a horse's finish position 
as 10, but the key bounced and 
you got 100, this could certainly 
produce some curious results. 
In a case such as this the pro- 
gram would recognize an obvi- 
ous error and simply reprint the 
prompt for that category. You 
would then re-enter the correct 
reply. For most categories you 
will be asked if the data you 
have just entered is correct. If it 
isn't, simply reply N to re-enter. 

A more subtle error, with dev- 
astating effects, can occur 
when entering the critical 
time/distance relationship. Take 
the example of a horse that ran a 
six-furlong race in 1:13.2. When 
you put the information into the 



Distance 


Enter 


2 furlongs 


2F 


3 furlongs 


3F 


3 1/2 furlongs 


3.5F 


4 furlongs 


4F 


4 1/2 furlongs 


4.5F 


5 furlongs 


5F 


5 1/2 furlongs 


5.5F 


6 furlongs 


6F 


6 1/2 furlongs 


6.5F 


7 furlongs 


7F 


7 1/2 furlongs 


7.5F 


7 3/4 furlongs 


7.75F 


1 mile 


1M 


1 mile 40 yards 


1M40Y 


1 mile 70 yards 


1M 70Y 


1 1/16 mile 


1 1/16M 


1 1/8 mile 


1 1/8M 


1 1/4 mile 


1 1/4M 


1 1/2 mile 


1 1/2M 


1 5/8 mile 


1 5/8M 


1 3/4 mile 


13/4M 


2 miles 


2M 


Table 1. The program will accept race distance of two furlongs 


to two miles. The following examples show how to enter the 


different distances. 
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program you accidentally enter 
the time as 1:33.2— a common 
mistake. The short edit at line 
1 160 determines the time of the 
race on a per furlong basis. If the 
per furlong is outside of an ac- 
ceptable range, a message tell- 
ing you that a possible mistake 
has occurred appears. It will 
show you the time and distance 
entered. If the time or distance 
is an error, responding R to the 
query "Enter Another Past Per- 
formance For Horse Number n" 
allows you to re-enter the previ- 
ous past performance. 

Using the Program: 
Race Information 

This section (lines 550-588) 
sets up the basic parameters for 
each race. Fig. 1 shows the 
prompts and replies used. The 
prompts for race number and 
the number of horses are self- 
explanatory. The distance for 
the race to be run is seven fur- 
longs. Table 1 shows how the 
different distances are to be 
entered. The track record is 
used to compute an actual fin- 
ish time for each horse. The cor- 
rect method for entering times is 
shown in Table 2. 

The next four lines determine 
which of the optional categories 
allowed will be used. In the ex- 
ample, all four are to be used in 
the analysis. Whether or not a 
particular track has a bias is 
generally subjective in nature. 
For example, if the response to 
the subjective data prompt was 
Y, an adjustment for this situa- 
tion is allowed. Depending on 
which portion of the track con- 
tains the suspected bias, lines 
582-586 make the appropriate 
adjustment. 

Set-up for Each Horse 

This section allows the entry 
of basic information for each 
horse in the race. Fig. 2 shows 
how this information is entered. 
As can be seen, this information 
is obtained from Fig. 3 which 
charts past performance. This 
chart also corresponds to the 
way information is presented in 
the daily racing form. 

Past Performances 

You can enter from one to ten 
past performances for each 



horse. One is required. Entering 
four or five will optimize the 
analysis. The top portion of Fig. 
3 shows a sample past perfor- 
mance chart. The bottom por- 
tion shows how the information 
would be entered into the com- 
puter. In this sample, the race 
distance for the past perfor- 
mance being entered was six fur- 
longs. The winner's finishing 
time was 1:13.2 (Tables 1 and 2). 
Our sample horse finished sec- 
ond, a head behind the winner. 
The following shows how 
lengths should be entered if the 
horse is not the winner: 



nose (or winner) 

In the last line you will be asked 
to enter the speed rating, and 
track variant (if used). 

Subjective Data 

The idea of class is a rather 
controversial subject to most 
handicappers. Some insist that 
the use of class is the only ra- 



tional way to handicap a race. 
Others insist just as stubbornly 
that it is an absolutely worthless 
idea. The answer probably lies 
somewhere in between. Be- 
cause of this, class rating was 
made an optional category. 

The top portion of Fig. 4 
shows the range of variation 
allowed. The movement in class 



Lengths Behind 


Enter 


2 


2 


V/x 


1.5 


3»/4 


3.75 


Vz 


.5 


V* 


.25 


neck 


2 


head 


.1 



Time 


Enter 


:37 


37 


:42 2/5 


42.4 


1:09 


109 


1:12 3/5 


112.6 


1:36 1/5 


136.2 


2:10 


210 


2:20 3/5 


220.6 


3:12 


312 


3:40 1/5 


340.2 


Table 2. All race times must be entered ir 


decimal form. Fifths 


of seconds should be converted to tenths. This table shows 


the correct method for entering times. 





Cfi. f. 4, by Micro Boy-Buffer, by Memory Chip 
Br. -Micro Stables 
Tr.-W Green 112 



St. 1st 2nd 3rd Amt 
1979 14 2 4 5 20,235 



11Nov79-7Blr fst 6f 


:23 


:47 1/5 


1:13 1/5 Allowance 7 7 5 4 4 2nd Herold R H b 112 7.10 74,33 


2Nov79^Lrl fst 7f 


23 


:46 3/5 


1:25 2/5 Allowance 2 9 8 8 6 3nk Herold R H b 114 4.50 81,16 
— Sample Distance Chart 00:08:52 






3F 


5F 7F 1M40Y 1 3/8M 






3.5F 


5.5F 7.5F 1M70Y 1 1/2M 






4F 


6F 7.75F 1 1/8M 1 3/4M 






4.5F 


6.5F 1M 1 1/4M 2M 



<«« Past Performance — Horse Number 2 — Race # 1 >>>>> 

Race Distance — (Use Table Above) ? 6F 

Winner's Finish Time - (EX: 112.4) ? 1132 

Horses' Finish Position (EX: 4) ? 2 

Length's Behind Winner — (EX:4.25 — 0IFNONE) ? -1 

Speed Rating and Track Variant - (EX: 76,12) ? 74,33- 

Fig. 3. Sample Distance Chart 



Class Table 

< > A Lot 

<> Moderate .. » Up In Class 

< > Slight 

< > Equal Class 

< > Slight 

<> Moderate .. » Down In Class 

< > A Lot 

Using the Table Above, Indicate the Horse's Class Rating as 

Compared to the Other Horses in the Race. 

?0- 

Subjective Data 

Is Jockey in Top 5 Ratings - <Y> OR <N>? N 

Is Trainer in Top 5 Ratings — <Y> OR <N>? N 

Is Horse Showing Consistent Improvement — <Y>OR<N>?N 

Does Horse Close Consistently in Stretch Run — <Y> OR <N>? Y 

Has Horse Been Idle for More Than 30 Days - <Y> OR <N>? N- 

Fig. 4 
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is not as difficult to determine 
as the degree of that movement. 
Whether a horse is changing 
class slightly, moderately or a 
lot is left to the experience of the 
individual handicapper using 
this program. The bottom por- 
tion of Fig. 4 shows the other 
subjective data classification. It 
should be pointed out that only 
a Y response has any effect on 
the aoa'ysis. A response of N 



leaves the ratings unchanged. 

Interpreting The Results 

Once all the data for an up- 
coming race has been entered, 
the program goes into the analy- 
sis phase of its operation (lines 
5000-5999). The program com- 
pares each horse's relative 
standing to the other horses in 
the race for each of the primary 
categories (5020-5096). Points 



COMP. 


AVE 




EARN/ SR/TV 








H# TIME 


FIN 


%WPS 


START AVE. 


COMP 


POINTS 


ODDS 


1 127.1 


■16 


13.3 


396 88.8 


45.0 


50 


20-1 


2 125.7 


30 


78.6 


1445 102.0 


5.3 


32.8 


5-2 " * 


3 126.5 


2.5 


429 


1894 100.5 


7.7 


22.6 


4-1 


4 127.0 


1.8 


667 


1414 102.0 


7.5 


23 2 


4-1 ' 


5 128.6 


4.3 


52.9 


1134 89.0 


I5.2 


11.5 


7-1 


6 126.9 


40 


47.1 


1162 98 


10.3 


17.0 


5-1 


7 126.7 


4.0 


44.4 


1061 100.3 


9.8 


17 8 


5-1 


8 126.3 


20 


42.9 


1067 102.7 


6.8 


259 


7-2 '• 


9 126.9 


2.3 


36 4 


970 102.7 


91 


19.3 


9-2 


• "Wagering - 














$5 00 On # 2 Win & Place 










$2.00 On # 8 Show 












Exactas 














2—8 2—4 














Fig. 5. 


Comparative analysis for Race #fl 





Program Listing 1 



THOROUGHBRED HANDICAPPING 

COPYRIGHT 1979 

RAY HEROLD 

8363 SHADY GROVE CIR. 

MANASSAS VA. 2211B 



10 

20 

30 

40 

50 

60 ' 

100 CLEAR200:DIM HD( 20, 11) ,WC ( 20) ,WN ( 20) ,OD$ ( 20) 

200 CLS:PRINTg400, "THOROUGHBRED HANDICAPPING" : FORX= 1TO1000 : NEXTX 

500 CLS:PRINT:PRINT"ENTER RACE INFORMATION" : PRINT 

510 INPUT'RACE NUMBER" ; RN 

515 INPUT-NUMBER OF HORSES IN RACE" ;NH : IFNH<5ORNH>20THEN515 

520 INPUT'WHAT IS THE DISTANCE FOR THIS RACE" ;WD$:GOSUB1300 : DR=W 

D:IFDR=0THEN520 

525 INPUT'WHAT IS THE TRACK RECORD FOR THIS DISTANCE" ;TR : IFTR<15 

ORTR>400THEN525 

530 RS-0 

535 IFTR>99THENRS=RS*60:TR=TR-100:GOTO535 

540 RS=RS+TR 

545 S1-0:S2=0:S3=0:S4=0:S5=0 

550 OS-"':INPUT"USE CLASS RATINGS IN THE ANALYSIS - <Y > OR <N> J 

OS:IFO$="Y"THENS2=1:ELSEIFO$O"N*THEN550 

560 OS="":INPUT"USE TRACK VARIANTS IN THE ANALYSIS - <Y> OR <N>" 

;O$:IFO$-"Y"THENS3=1:ELSEIFO$O"N"THEN560 

570 OS-"":INPUT"USE SUBJECTIVE DATA IN THE ANALYSIS - <Y> OR <N> 

";O$:IFO$="Y"THENS4=1:ELSEIFO$O"N"THEN570 

572 0$="": INPUT"USE WORKOUT TIMES IN ANALYSIS - <Y> OR <N>";OS:I 
FOS=-Y-THENS5=l:ELSEIFOS<>-N"THEN572 

573 OS-"": PRINT: INPUT" IS THE ABOVE DATA CORRECT - <Y> OR <N>";0S 
:IFO$»"N"THEN500ELSEIFO$O"Y"THEN573 

575 IFS4O1THEN600 

580 CLS:O=0:PRINT:PRINTTAB(5) "-- TRACK BIAS ADJUSTMENT --":PRINT 

"<0> - NONE":PRINT"<l> - INSIDE" : PRINT" <2> - MIDDLE" : PRI NT' <3> - 

OUTSIDE" :INPUT"WHICH ONE"jO 
582 IFO-lTHENFORX=lTO4:HD(X,10)=HD(X,10)+( (NH/2)-X) :NEXTX 
584 1 FO-2THENFORX=5T08 : HD ( X , 1 ) =HD ( X , 1 ) * 2 : NEXTX 
586 IFO-3ANDNH>=9THENFORX«9TONH:HD(X,10)=HD(X,10)+(NH*.25) : NEXTX 

588 IFO<0ORO>3THEN580 

600 FORCH=1TONH 

605 TT=0:RC=0:TP=0:RR=0:CT=0:WO=0:BT=999 

GOSUB1600:GOSUB1000 

IFS5=1THENGOSUB1700 

IFS2=1THENGOSUB1500 

IPS4=1THENGOSUB2000 
690 NEXTCH 

900 GOSUB5000:GOSUB4000:GOSUB6000:CLS:PRINT0400,"NEXT RACE...":F 
ORX=1TO20:FORY=1TO11:HD(X,Y)=0:NEXTY: NEXTX :GOTO500 

Program continues 



61? 

615 
616 
620 



CONVERT YOUR TRS-80 MODEL-I INTO A 

DEVELOPMENT SYSTEM 

Now you can develop Z-80 based, stand-alone devices such as games, robots, 
instruments and peripheral controller-;, by using your TRS-80 as a development system 
The OEVELOPMATE plugs into the expansion connector of your TRS-80 and adds 
PROM PROGRAMMING and IN-CIRCUIT-CMULATION capabilities to your 
system (with or without expansion interlace) 

Complete instructions and sample schematics are included to help you design your 
own simple stand-alone microcomputer systems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs oneTTL circuit for clock and reset, a Z-80. an EPROM, and 
one peripheral interface chip 

When the In-Circuit-Emulation cable is plugged 
into the Z-80 socket of your stand-alone system 
the system becomes a part of your TRS-80 You 
can use the full power of your editor/nssembler s 
debug and trace programs to check out both the 
hardware and the software Simple test loops 
can be used to check out the hardware, then the 
system program can be run to debug the logic of 
your stand-alone device 

Since the program is kept n TRS-80 RAM. 
changes can be made quickly and easily When 
your stand-alone devi;e works as desired you 
use the Devetopmate 5 PROM PROGRAMMER 
to copy the program into a PROM With this 
PROM and a Z-80 n place of the emulation 
cable yCof sf 3id 3tone device will work by itself 

The DEVELOPMATE is extremely compact Both the PROM programmer and tne 
In-Circuit-Emulator are m one small plastic box only 3 2-54 A line-plug mounted 
power supply is included The PROM programme' has a personality module which 
defines the voltages and connections of the PROM so that future devices can be 
accommodated However Ihe system comes with a universal personality module 
which handles 2758 2508l8Kj 2716 2516H6K) 2532(32K). as well as the new elec- 
trically aUerable 2816 and 48016< 16K EEPROMs) 

The COMPLETE DEVELOPMATE 81. with software, power supply emulation 
cable. TRS-30 cable and universal personality module, is ONLY S329' 
The PROM PROGRAMMER is available separately for ONLY S239 



ORION INSTRUMENTS 

1 72 Otis Avenue Dept M. Woodside CA 94062 

(415)851-1172 

Master Charge and Visa phone orders accepted 

California residents please add 6°= sales tax 




LOW PRICES ON TRS-80* 

From Radio Ranch, Inc. 







In business 27 years at the same location pro- 
viding electronic equipment and service. 

We Are Better Equipped To Provide 



TRS-80* 



COMPUTERS & 



Accessories 
Software 



TRS 80 Mod II f>4K J440.00 

TRS-80 Mod III i2K. 2 Dr 2195.00 

TRS-80 I ine Printer h 1020.00 

CORVUS * 5-10-20 M Hard Disks . . . Call For Prices 
Call for LOW PRICES on other models 

Full Factory Warranty - Complete Service Department 



Cert. Check 
Cashiers Ck. 

Call Toll Free 800-415-8310 

V -Uad»-nv t ik lands < nip 



•"133 

Route 3, Radio Ranch Airport 
Polo, Illinois 61064 
In III. Call 815-946-2371 

lradi-nidrk Coma svMi-ms h* 
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MODEL 




26-4002 




64K 1 Drive 




$3399.00 




26-4160 1 Drive Exp 

26-4161 2 Drive Exp 

26 4162 3 Drive Exp 


$1034.00 

1574.00 

..2114.00 

265 00 


26-4512 Profile II 

26-4511 Visicolc II 

26 4501 Gen Ledger 


16200 

. 265,00 

180.00 

72.00 


PRINTERS 




BUY 
DIRECT 



DISCOUNT 

TRS-80® 

COMPUTER SPECIALISTS 

CALL US. . . 
SAVE MONEY 



We carry the full line of TRS-80 Computers. All 
other software, furniture, and accessories at dis- 
count from catalog price. We stock most items 
to assure you fast delivery and save you money. 

26-1140 Expansion Interface $249 00 

26-1141 16KExp Interface 339.00 

261 142 32K Exp Interface 429.00 

26- 1145 RS232C Board 84.00 

26-1 1601 Mini Disk Drive 419.00 

26-1563 Scripsil-Disk 79.00 

26-1566 Visicolc 8300 



PRINTERS- 



cenTRonics 

BEST PRICES 

Text Quality Centronics 
739-1 Printer $729.00 



26 1 155 Quick Printer 187.00 

26 1167 Line Printer VII 360 00 

26-1166 Line Printer VI 1080 00 

26-1158 Daisy Wheel II 1799.00 

26 1168 Line Printer VIII 720.00 



Pocket Computer 

26 3501 1 9K P C S188.00 

26-3503 Cassette IF 45.00 

14 812 Recorder 7200 

WRITE US FOR A 
FREE CATALOG 



THOUSANDS OF SATISFIED CUSTOMERS 



MODEL 




26 1061 4K I $609.00 

26 1062 16K III 849.00 

26-1066 48K III 

W 2 Drives RS232 2149,00 

COLOR 




26-3001 4K $318.00 

26-3002 16K Ext Basic 488.00 

26-3008 Joysticks 22.50 

26-3010 Color Video 353 00 

26 1206 Recorder 54 00 




commodore 

AUTHORIZED DEALER 
CALL FOR PRICES 



ALL POCKET AND COLOR 

COMPUTER SOFTWARE 

SOLD AT DISCOUNT 



1-800-841-0860 Toll Free Order Entry 




DOWNTOWN PLAZA SHOPPING CENTER 
DEPT. #4 
115 C. SECOND AVE. S.W. 

CAIRO GEORGIA 31728 

(912) 377-7120 Ga. Phone No. & Export 

From Stock on Most Items m nu -i a r. 9 i.t,. u « •..d»no l ii n » th» i.o< r ci-p 



No Taxes on Out Of 
State Shipments 

Immediate Shipment 



A copy ol the manufacture, s war- 
ranty can be obtained free upon 
specific written request to the 
Electronics Department of our 
Cairo Georgia Retail Store 



■ Sm U*l ol Adnrtlsmn on n* j» 3*4 
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Program continued 



1000 FORCR-1TO10 

1010 CLS:GOSUB11500:PRINT"<<<<< PAST PERFORMANCE - HORSE NUM 

BER";CH,-" - RACE #" ;CR; *>>>>> " 

1110 PRINTg640,"RACE DISTANCE - (USE TABLE ABOVE) 

";:INPUTWD$ 

1115 GOSUB1300:RD=WDiIFRD=0THENlllB 

1117 FT=-1 :PRINT?704, "WINNERS 'S FINISH TIME - (EX: 112.4)... 
" 1 : INPUTFT 

1118 IFFT<=15ORFT>400THEN1117 

1120 FP=-l:PRINTe768, "HORSES' FINISH POSITION (EX: 4) 

"; :INPUTFP 

1121 IFFP<0ORFP>25THEN1120 

1122 TP-TP+FP 

1124 LB=-l:PRINTe832, "LENGTH'S BEHIND WINNER - (EX: 4.25 - 

IF NONE) .. ."; : INPUTLB 
1126 IFLB*ftORLB>50THEN1124 

1130 SR=-*fcsTV— l:IFS3 = lTHENPRINTg896, "SPEED RATING AND TRACK V 

ARIANT - (EX: 76,12) ";: INPUTSR, TV:RR=RR+SR+TV:ELSEPRIN 

T8896, "SPEED RATING - (EX: 82) ■, 

: INPUTSR 

1131 IFS*<20ORSR>120THENRR=RR-(SR+TV) :GOT0113B 

1132 IFS3«lAND(TV<0ORTV>75)THENRR-RR-(ST+TV) :GOTO1130 
1150 TS=0:HT-FT:GOSUB1200 

1160 IFUT/RD<10ORUT/RD>13.5THENCLS:PRINT:PRINT"A POSSIBLE INPU 
T ERROR HAS OCCURED. ": PRINT: PRINT'THE FOLLOWING WAS ENTERED:":PR 

INT'RACE DISTANCE " ;HDS: PRINT'RACE TIME " jHT: PRINT: IN 

PUT'PRESS ENTER", -AS 

1175 CLS:OS-"":PRINT:PRINT"ENTER ANOTHER PAST PERFORMANCE FOR 
HORSE NUMBER" ;CH: INPUT" <Y> OR <N> - <R> TO RE-ENTER PREVIOUS 
RACE";OS:IFO$="N"THENCR«llELSEIFO$="R"THENCR=CR-l:RC-RC-l:RR»RR- 
(SR+TV) :CT-CT-CC:TP=TP-FP:TT-TT-AT 

1176 IF0S<>"N"AND0$O"Y"AND0SO"R"THEN1175 

1179 NEXTCR 

1180 IFRO0THENHD(CH,1)-TT/(RC+WO) : HD (CH ,1) -HD (CH , 1 ) - ( (HD (CH , 1 ) - 
BT)*.25) :HD(CH,2)-TP/RC:HD(CH,9)=RR/RC:ELSECLS:PRINT:PRINT"REQUI 
RED RACE INFO MISSING FOR HORSE NUMBER" ;CH : PRINT-RETRY DATA ENTR 
Y.":INPUT"PRESS ENTER" ;A$:CH«CH-1 :RETURN 

1190 IFHD(CH,2)<3ANDNR<4THENHD(CH,10)=HD(CH,10)-(NH*.2) 

1199 RETURN 

1200 IFFT>99THENTS=TS+63:FT=FT-100:GOTO1200:ELSETS«TS+FT 

1210 UT=TS+(LB/5) : IFDRORDTHENAT=UTFLSETR-UT- ( ( 100-SR) /5) :AT-UTt 

(RS-TR) 

121S IFDRORDTHENAT=(CAT/RD) *DR) :GOSUB1400 

1220 TT=TTtAT:RC=RC+1 

1230 IFAT<BTTHENBT-AT 

1290 RETURN 

1300 WD=0:HD$=WD$ 

1310 IFRIGHTS(WDS,1)-"F"THENWDS=LEFT$(WD$,LEN(WDS)-1) :WD=VAL(WD$ 

) : IFWD<20RWD>7 . 9THENWD=0 : RETURN : ELSERETURN 

1320 IFRIGHTS(WDS,l)<>"M"ANDRIGHTS(WDS,l)<> , 'Y"THEHRBTORN 

1325 IFWD$="lM"THENWD-8 

1330 IFWD$-"1 1/16M"THENWD=8.5 

1335 IFWD$="1 1/8M"THENWD=9 

1340 IFWD$-"1 3/16M"THENWD=9.5 

1345 IFWD$="1 1/4M"THENWD-10 

1350 IFWD$="1 5/16M"THENWD=10.5 

1355 IFWDS-"1 3/8M"THENWD=ll 

1360 IFWD$-"1 7/16M"THENWD=11.5 

1365 IPWD$="1 1/2M"THENWD-12 

1367 IFWD$="1 9/16M"THENWD=12.5 

1370 IFWD$-"1 5/8M"THENWD=13 

1372 IFWD$-"1 11/16M"THENWD=13.5 

1375 IFWDS="1 3/4M"THENWD-14 

1377 IFWDS="1 13/16M*THENWD-14.5 

1380 IFWD$="1 7/8M"THENWD=15 

1382 IFWD$="1 15/16M"THENWD=15.5 

1384 IFWDS="2M*THENWD=16 

1386 IFWD$="1M 40Y"THENWD=8.1818 

1388 IFWD$-"1M 70Y"THENWD=8.3182 

1390 RETURN 

1400 X1=0:X2-1.3:X3=DR-RD 

1410 IFX3<0THEN1450 

1420 IFX3>=.1THENX1«X1+X2:X2=X2*1.35:X3-X3-1:GOTO1420 

1430 IFX3>0THENXl-Xl+( (X2*X3) +(X3/2) ) 

1440 GOTO1490 

1450 X1»1.1*X3 

1490 AT=AT+X1 

1499 RETURN 

1500 CLS:GOSUB11000 

1510 CC=0:PRINT"USING THE TABLE ABOVE, INDICATE THE HORSE'S CLAS 

S RATING AS":PRINT"COMPARED TO THE OTHER HORSES IN THE RACE." 

1520 INPUTCC:IFCC<-3ORCO3THEN1500 

1530 IFCC>0THENHD(CH,10)=HD<CH,10)-(CC+1) 

1540 IFCC<0THENHD(CH,10)-HD(CH,10)+ABS(CC-1) 

1590 RETURN 

1600 CLS: PRINT: PRINT" HORSE NUMBER";CH;" "tPRINT 

1605 EY#-0:NR=0 

1610 INPUT'NUMBER OF TIMES RACED THIS YEAR" ; NR: IFNR<iORNR>60THEN 

1610 

1620 INPUT'NUMBER OF TIMES FINISHED 1ST THIS YEAR" ;HD(CH,3) : IFHD 

(CH,3)<0ORHD(CH,3)>50ORHD(CH,3)>NRTHEN1620 

1630 INPUT-NUMBER OF TIMES 2ND OR 3RD THIS YEAR* ;HD(CH,4) : IFHD(C 

H,4) <0ORHD(CH,4) >50ORHD(CH, 4) >NRTHEN1630 

1640 INPUT'TOTAL EARNINGS FOR THE YEAR" >EY» : IFEY#<0OREY#>2000000 

THEN1640 

1650 IFNR>0THENHD(CH,6)-EY#/NR:HD(CH,5)-((HD{CH,3)+HD(CH,4))/NR) 
•100 

1660 IFHD(CH,5)>55ANDNR>5ANDHD(CH,3)-0THENBD(CH,10)-HD(CH,10)-(N 

1670 IFHD(CH,5)>=60ANDNR<6THENHD(CH,10)»HD(CH,10)-(NB*.15) 

1675 IFHD(CH,5) >-50ANDNR<3THENHD(CH,10) -HD(CH,10) -(NH*.15) 

1680 INPUT'ENTER WEIGHT TO BE CARRIED" >HD(CH ,7) : IFHD(CH ,7)<80ORH 

D(CH,7)>160THEN1680 

16 90 RETURN 

1700 CLS:PRINT:PRINT"ENTER RECENT WORKOUT TIME FOR HORSE NUMBER" 

;CH:0$-"*:INPUT"<Y> OR <N>")0$ 

1710 IFOS="N"THENRETURN 

1720 IFO$O"Y"THEN1700 

1T30 WT=0:WD$="":PRINT 

1740 INPUT'TIME ";WT 



Program continues 



are allocated on this basis, with 
each category being weighed 
according to its importance on 
the outcome of the race. The re- 
sult of this analysis is displayed 
on the screen as a row of statis- 
tics for each horse (Fig. 5). The 
information listed includes 
horse number, speed rating in 
minutes, seconds and tenths, 
average finish position, earn- 
ings per start, total point accu- 
mulation, a numerical compari- 
son ratio, and computed odds. 
In addition, the horse with the 
highest rating will have * * * next 
to his odds. The second will 
have **, and the third *. If you 
route the results to a line printer, 
the above information will be 
listed along with the average 
speed rating/track variant total 
for each horse. 

The speed rating is the pro- 
jected time for each horse to 
cover the distance. It should be 
emphasized however, that the 
horse with the best speed rating 
time is not always the projected 
winner. In fact, he may not even 
be in the top three. This is be- 
cause all aspects of a horse's 
past performance are taken into 
account. The horse may have 
earned a good speed rating on 
the basis of one, never to be 
repeated, exceptional perfor- 
mance. The keyword here is con- 
sistency! 

The columns for average fin- 
ish, percent in the money, and 
earnings per start are self-ex- 
planatory. The column for 
points is the horse's accumulat- 
ed total for all areas of perfor- 
mance. The highest point total 
represents the projected winner. 
It is important to understand 
that each horse's point total is 
useful only for the current race. 
He would probably earn a com- 
pletely different total when 
matched against a different 
field of horses. 

The column titled Comp is 
used as a comparison ratio in 
the wagering and odds calcula- 
tion routines. It is simply the 
total points for each horse divid- 
ed into the total points allocated 
for the race. The computed odds 
represent what the computer 
thinks the chance of each horse 
winning actually is. They may or 
may not be similar to the odds at 
race time. 



The wagering suggestions 
are only meant to be used as a 
guide. What the suggestions tell 
you is how strongly the com- 
puter feels about its selected 
winner. If, for example, the com- 
puter suggests betting $2 to 
place and show on its projected 
winner, it is telling you that the 
selection is somewhat shaky. 
On the other hand, if the com- 
puter suggests betting $5 to win 
and place on the horse, it is tell- 
ing you that it has a great deal of 
confidence in the selection. For 
those of you who like to see a 
visual representation of data, a 
bar graph routine has been in- 
cluded in the program. The bars 
will show each horse's point 
total. 

Horse Racing Tips 

First, ignore most tips! Peo- 
ple who insist they have inside 
information abound at the track 
like bees around honey. A little 
common sense is in order here. 
If I were someone who had true 
inside information, I'd be 
damned if I would tell anyone. 

Don't bet more money than 
you can realistically afford to 
lose. This seems so obvious, yet 
is ignored by more people who 
should know better. Along the 
same line, don't go to the track 
with the idea of making a killing. 
You'll be eating hotdogs and 
beans for the rest of the week. 
Go to have a good time. 

Try to avoid being influenced 
by the odds. There is a great 
tendency (experience speaking 
here) to bet on a horse that has 
attractive odds. If you like a par- 
ticular horse, stick with him. 
Even if his odds go to 2-1, it's 
better to collect $6 than zilch. 
It's amazing how large the size 
of the discarded ticket pile at 
your feet will get by betting on 
longshots. 

Lastly, if you see ads for 
handicapping programs promis- 
ing 80 and 90 percent winners, 
avoid them like the plague. If I 
had a program that picked 80 
per cent winners, I'd be on my 
yacht heading for Bermuda. 
This program, if used correctly, 
will pick roughly 40 per cent win- 
ners. That won't buy you a 
Cadillac, but it may pay for a 
couple of those programs 
you've been wanting. ■ 
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.5)ANDHD(R1,3 
,4)THENC$(1)« 



Program continues 

1741 IFWT<150RHT>489THEN17 4B 

1745 I NPUT'DI STANCE. . . . " ;WD$:GOSUB1306:D-WD: IFD-BTHEN17 45 

1746 WS-0 

17 50 IFWT>99THENWS-WS+60:WT=WT-100:GOTO17 50:ELSEWS-WS+WT 

1760 IFDRODTHENWS=((WS/D)*DR) : RD-D: AT-WS :GOSUB1400 : WS-AT 

1770 TT-TT+WS:W0-W0+1 

17 90 RETURN 

2000 CLS:PRINT:PRINT" ~ SUBJECTIVE DATA — ■ 

2010 0$-"":PRINT:INPUT"IS JOCKEY IN TOP 5 RATINGS - <Y> OR <N> 

■;OS:IPOS-'Y"THENHD(CH,10)-BD(CH,10)+(NH*.2) :ELSEIPOS<>"N"THEN28 

10 

2020 OS-":INPUT"IS TRAINER IN TOP 5 RATINGS - <Y> OR <N>";OS: 

IPOS-'Y"THENHD(CH,li)-BD(CH,10)+(NH*.3) :ELSEIPO$<>"N"THEN2B2B 

2030 OS-":INPUT"IS BORSE SBOWING CONSISTENT IMPROVEMENT - <Y> 

OR <N>'»OS:IFOS=*Y*TBENBD(CB,10)-BD(CB,10)+(NH*.2) :ELSEIPOSO"N 
"THEN2030 

2040 OS-"" I INPUT-DOES HORSE CLOSE CONSISTENTLY IN STRETCH RUN - 
<Y> OR <N>";O$:IPO$="Y"THENHD(CH,10)-HD(CH,10)+(NH*.3) :ELSEIF05< 
>"N"THEN2040 
2050 0$«""iINPUT"HAS HORSE BEEN IDLE FOR MORE THAN 30 DAYS - <Y> 

OR <N>";OS:IFO$-"Y"THENHD(CH,10)-HD(CH,10)-(NH*.3) :ELSEIF0$O"N 
"THEN2050 
2090 RETURN 
4000 B1S-" WIN PLACE it SH0W":B2S=" WIN k PLACE" :B3$-" WIN":B4$=" 

PLACE k SH0W*:B5$«" PLACE" :B6S"" SHOW" 
4005 F0RX-1T04:CS(X)-"":NEXTX 

4010 B7S-"S10.00 ON • ":B8S»"S5.00 ON « ":B9S="S2.00 ON * " 
4120 GOSUB4100:GOSUB4200:G' , SnB4300 -.Gas-UK'". 
4090 RETURN 

4100 IFBD(R1,11)<=NH«.6ANDHD(R1,10)>HD(R2,10)+(NH».9)ANDHD(R1,3) 

> 1THENCS ( 1 ) -B7 S+STRS ( Rl ) +B3 $ : RETURN 

4110 IPHD(R1,11)<-NH«.6ANDHD(R1,10)>HD<R2,10)+(NH«.7)ANDHD(R1,3) 

>0THENCS(1)-B8S+STRS(R1)+B2$:RETURN 

4120 IFHD(R1,11)<-NH*.63ANDHD(R1,10)>HD(R2,10)+(NH« 

) >0THENC$ ( 1 ) -B9 S+STRS ( Rl ) +B1 S : RETURN 

4130 IFHD(R1,11X=NH*.66ANDHD(R1,10)>HD(R2,10)+(NH« 

B9 S+STRS (RD+B1S: RETURN 

4140 IPHD(R1,11)<=NH*.6BANDHD(R1,10) >HD( R2 , 10) + (NH* . 25) THENCS ( 1) 

-B9S+STRS(R1)+B3S 

4150 IFHD(R1,11)<=NH*.7ANDHD(R1,10)>HD(R2,10)+(NH*.2)THENCS(1)-B 

9 S+STRS ( Rl ) +B4S: RETURN 

4160 IFHD ( Rl, 10) >HD(R2, 10 )+(NH*. 4) THENCS=B9 S+STRS (RD+B2S: RETURN 

:ELSECS(1)-B9S+STRS(R1)+B4S: RETURN 

4200 IPHD(R1,10)>HD(R2,10)+(NB*.25)ANDHD(R2,10)>-HD(R3,10)+(NH«. 

5) THENCS ( 2) -B9S+STRS(R2)+B4S: RETURN 

4210 IPHD(R2,10)>HD(R3,10)+(NH*.4)THENCS(2)=B9S+STRS(R2)+B5S:RET 

URN: ELSECS ( 2) -B9S+STRS ( R2 ) +B6 S : RETURN 

4300 IPHD(R3,10)>HD(R4 / 10)+(NH».3)ANDHD(R3 r ll)<-NH*.71THENCS(3)- 

B9S+STRS(R3)+B6S 

4310 RETURN 

4400 IFHD(R1,11)<NH*.6ANDHD(R1,10)>HD(R2,10)+(NH*.9)THENCS(4)=ST 

RS(R1)+" -"+STRS(R2)+* "+STRS(R1)+" -"+STRS (R3) +" "+STRS(R1)+" 

-"+STRS(R4)+* "+STRS(R1)+" -"+STRS (R5) : RETURN 
4410 IFHD(R1,11)+HD(R2,11)+HD(R3,11)<NH*2ANDHD(R3,10) >HD(R4,10)+ 
(NH*.75)THENCS(4)-"BOX NUMBER *+STRS(Rl)+" -"+STRS (R2) +" -"+STRS 
(R3) .-RETURN 

4420 IPHD(R1,11)+HD(R2,11)<NH*1.3ANDHD(R2,10)>HD(R3,10)+(NH*.75) 
THENCS(4)-STRS(R1)+" -"+STRS (R2) +* "+STRS(R2)+" -"+STRS(R1) :RE 

TURN 

4430 IFHD(R1,11)+HD(R2,11)<NH*1.3ANDHD(R2,10)>HD(R3,10)+(NH*.5)T 
HENCS(4)-STRS(R1)+" -*+STRS(R2) +" "+STRS(R2)+" -"+STRS(R1) +" * 
+STRS(R1)+" -*+STRS(R3)+" ■+STRS(R2)+" -"+STRS(R3) : RETURN 
4440 IFHD(R1,11)<NH*.62ANDHD(R1,10)>HD(R2,10)+(NH».4)ANDHD(R2,10 
)>HD(R3,10)+(NH*.3)ANDHD(R3,10)>BD(R4,10)+(NH*.5)THENCS(4)-STRS( 
Rl)+" -"+STRS(R2)+" "+STRSIRD+" -"+STRS(R3) +" "+STR$(R2)+" -■ 
+STRS(R3) : RETURN 

4450 IFHD(R1,11)<NH*.63ANDHD(R1,10)>HD(R2,10)+(NH*.6)ANDHD(R2,10 
)<»HD(R3,10)+(NH*.3)THENCS(4)-STRS(RD+" -"+STRS(R2) +" "+STRS(R 
1)+" -*+STRS(R3) : RETURN 
4460 CS(4)«" — NONE — ":RETURN 

5000 CLS:PRINTg400, "COMPARATIVE ANALYSIS IN PROGRESS..." 
5010 FORX-1TONH 
5020 FORY-1TONH 

5030 IF(HD(X,1)<«HD(Y,1))ANDS3-1THENHD(X,10)-HD(X,10)+1.1 

5040 IF(HD(X,1)<-HD(Y,1))ANDS3O1THENHD(X,10)-HD(X,10)+2.1 

5050 IF(HD(X,9)>-HD(Y,9))ANDS3»1THENHD(X,10)-HD(X,10)+1 

5060 IFHD(X,2)<-HD(Y,2)THENHD(X,10)-HD(X,10)+.6 

5070 IFHD(X,5)>-HD(Y,5)THENHD(X,10)-HD(X,10)+.6 

5080 IFHD(X,6)>-HD(Y,6)TBENHD(X,10)-BD(X,H)+.6 

5090 IFHD(X,7)>HD(Y,7)+3THENHD(X,10)«HD(X,10)-.3 

SB95 NEXTY 
5096 NEXTX 



5097 
5098 
5099 
5100 
5200 
5300 
5305 
5310 
5320 
5330 
5340 
5350 
5360 
5390 
5400 
5500 
5505 
5510 
5520 
5530 
5600 
5610 
5612 
5616 
5620 
5625 
5630 
5635 
5640 
5645 



PORX-1TONH 

IFHD(X,10)<-0THENHD(X,10)-1 
NEXTX 

TP-0 : FORX-1TONH : TP-TP+HD (X , 10 ) : NEXTX 
FORX-1TONH:HD(X,11)-TP/HD(X,10) : NEXTX 
FORX-lTONH:WC(X)-HD(X,ll) :WN(X) -X: NEXTX 
SS-01FORX-1TONH-1 

IFWC(X) <-WC(X+l)THEN5360 

Hl-WC(X) :H2=WN(X) 

WC(X)-WC(X+1) :WN(X)-WN(X+1) 

WC(X+1)-H1:WN(X+1)-H2 

SS-1 
NEXTX 

IFSS-1THEN5305 

R1«WN(1) :R2-WN(2) iR3-WN(3) :R4-WN(4) :R5-WN(5) 
FORX-1TONH 

TI-0 

IFHD(X,1) >60THENTI«TI+100:HD(X,1)-HD(X,1)-60:GOTO5510 

TI-TI+HD(X,1) :HD(X,1)=TI 
NEXTX 
FORX-1TONH 

IFNH >9THENOD-HD ( X , 1 1 ) * . 9ELSEOD-HD ( X , 1 1 ) 

IFNH>14THENOD-OD*.9 

IFOD<-3 . 5THENODS (X) -"3-2" 

IFOD>3.5ANDOD<-4.5THENODS(X) > 

IFOD>4 . 5ANDOD<-5 . 5THENODS (X) i 

IFOD>5 . 5ANDOD<»6 . 5THENODS (X) ■ 

IFOD>6 . 5ANDOD<-7. 5THENODS (X) i 

IPOD>7.5ANDOD<"8.5THENOD$(X) 



■ "2-1* 

■ "5-2" 
■"3-1" 

•"7-2" 
■•4-1" 

IFOD>8.5ANDOD<-9.5THENODS(X)-"9-2" 



Program continued 




Programming drive 
you wild? 

We have the high quality programs you demand 
at a price that will please. Send for FREE catalog. 

VTHE BERG WORKS •*»» 
Box 742C Janesville, Wl 53547 JJ 




SPEAK- EAZY 

the 

IHUMAN QUALITY: 

"VOICE* 

for your TRS-BO* that is 
so good you wont believe it 
Phone for demo. $n q q qo 
6 programs on LUU 

tape or disk. + user manual 



-MEW- 
DOUBLE DENSITY 
DISK CONTROLER WITH 
16 K ONBOARD RAM 
FOR YOUR MODEL I. 
NO EXPANSION INTER- 
FACE NEEDED, RUNS 
SIN6LE OR DOUBLE DEN. 

$299.°-° 



-NEW" 
29.- SUPER 
SENSITIVE 
LIGHT PEN 



SIMPLIFY 
YOUR TAPE LOADING 

WITH reload: 

THE 
LED -VU METER 
$ 29. - 



♦TRS-80 IS A TRADEMARK OF RADIO SHACK^ 
PROGRESSIVE ELECTRONICS „ 277 
643 E. CHESTNUT ST. 
LANCASTER OH. 43130 
PHONE - 614-687-1019 



^■S— List of Advertisers on page 354 
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LOAD 
80 

LOADS 
EASY 



dMD 



LOAD 80 



ELIMINATE HOURS OF 
TYPING AND 
AGGRAVATION 



In the April, 1981 issue of 80 Microcomputing, we in- 
troduced LOAD 80 to save you the time and trouble of 
typing our programs yourself. LOAD 80 cassette tapes 
contain dumps of the major program listings in 80 
Microcomputing. 

If you have not yet ordered any LOAD 80 tapes and 
wish you had, don't worry. We are now offering a "back 
issue" cassette program. You can order any LOAD 80 
cassette from April, 1981 to date for $9.95. Back issues 
of 80 Microcomputing are also available with the LOAD 
80 cassettes for $2.50. With the complete documenta- 
tion found in the companion magazine issue, you 
should have no difficulty loading any of 80's major pro- 
grams. 



Please send me the following: 
TAPES MAGAZINES 

( l April, 1981 C April, 1981 

□ May, 1981 O May, 1981 

D June, 1981 G June, 1981 

July, 1981 □ July, 1981 

August, 1981 Li August, 1981 



ITEM 


COST 


QTY. 


TOTAL 


LOAD 80 Tapes 
overseas, add $1 00 


$9 95 






80 Microcomputing 

add $1.50 fc postage and 
handling if ordering magazines 


$2.50 








T 


DTAL 





n Check Enclosed Bill my: r MC Z AE H VISA 



NAME 

ADDRESS 

CITY 

CARD# 

SIGNATURE 



STATE ZIP 

. EXP. DATE 

INTERBANK # 

Please allow 4-6 weeks (or delivery 

LOAD 80 • 80 Pine Street • Peterborough NH 03458 

Attn; Debra Boudneau 




Program continues 



5650 
5655 
5660 
5665 
5670 
5675 
5680 
5663 
5685 
5687 
5690 
5692 
5695 
5696 
5697 



COMP. 
TIME 



tii.t 



AVE. 
FIN. 



IWPS 



EARN/ 
START 



COMP. POINTS 



IFOD>9.5ANDOD<-11.5THENOD$(X)-"5-l" 
IFOD>11.5ANDOD<-13.5THENOD$(X)-"6-l" 
IFOD>13.5ANDOD<-15.5THENOD$(X)-"7-l" 
IFOD>15.5ANDOD<-17.5THENOD$(X)-"8-l" 
IP0DM7 . 5AND0DO19 . 5THENCDS (X) -"9-1" 
IFOD>19.5ANDODO21.5THEN()D$(X)-"10-1" 
IFOD>21.5ANDOD<-23.5THENOD$(X)-"ll-l" 
IPOD>23.5ANDOD<-25.5THENOD$(X) -"12-1" 
IFOD>25.5ANDOD<-27.5THENODS(X) -"13-1" 
IFOD>27.5ANDOD<-29.5THENOD$(X)-"14-l" 
IPOD>29.5ANDOD'-31.STHENOOS(X1 -"15-1 " 
IPOD>31.5THENOD$(X)-"20-l" 
IFX-WN(1)THENOD$(X)-00$(X)+" •••■ 
IFX-WN(2)THENODS(X)-OD$(X)-»" *•■ 
IFX-WN(3) THENODS(X) -0DS(X) ♦■ *" 
5699 NEXTX 

5999 RETURN 

6000 CLS 
6010 P1S-" 
6120 P2$-"HI 

ODDS" 
6030 MS$»"II 

% %" 

6040 IFNH<13THENPL-NHELSEPL-12 
6050 1-1 

6100 PRINTP1S:PRINTP2S: PRINT 
6105 FOPJC-ITOPL 

6110 PRINT USING MSS ; X , HD ( X , 1 ) , HD ( X , 2 ) , HD ( X , 5 ) , HD(X , 6) , HD ( X , 11 
) ,HD(X,10) ,00$ (X) 
6120 NEXTX 
6125 IFPL>12THEN6140 

"n^"™^^ 1 ™ 9 "'"™" 8 *""* F °" M ° RE " " INPUT * S ' I " 1 3 ' P 

6140 PRINT?960,"1-WAGERING 2-GRAPH 3-PRINT 4-NEXT RACE" 

j:IFNH>12THENPRINT" 5-RELIST"; 

6150 O-0IINPUTO 

6160 IFO-1GOSCB7000 

6178 IFO-2GOSUB80 00 

6180 IFO-3COSUB9000 

6190 IPO-4THENRETURN 

6199 GOTO6000 

7000 CLS .-PRINT: PRINT" 

7010 PRINTCS(l) :PRINTCS 



M.< Itt.l IIMM 



• i.« 



II. t 



2) : 
EXACTAS" 



' i PRINT 



WAGERING ' 
-. .PRINTC$(3: 
'020 PRINT:PRINV 
7030 PRINTCSI4) 
7080 PRINT, PRINTi INPUT-PRESS ENTER",AS 
7090 RETURN 
8000 CLS:PRINTPB36,STRINGS(59,CHRS(140)), 

Rr^T pniS'^ 5131 '" ");.FORX-1TO10,PRINT1,:.NEXTX, PRINT" 2",:P 
RINT:PRINT"HI " ; : FORX-1T09 : PRINTX;: NBXTX 
8020 PORX-0TO9! PRINTX;: NEXTX :PRINT0, 
8030 PRINTe0,"78 " ;STRING$ ( 59 , ■-■) 
";STRINGS(59,"-"j 

"; STRINGS ( 59, "-") 

"; STRINGS) 59, ■-") 

")STRINGS(59,"-") 

";STRING$(59,*-*) 

"|STRINGS(59,*-*) 

*;STRINGS(59,"-") 

";STRINGS(59,"-") 

";STRINGS(59,"-") 

";STRINGS(59,"-") 

";STRINGS(59,"-") 

";STRING$(59,"-") ; 



B031 PRINT§64,"72 

8032 PRINTei28,"66 

8035 PRINTP192,"60 

8036 PRINT0256 , "54 

8037 PRINTP320, "48 

8038 PRINTe384,-42 
8040 PKINTg446,*36 
8050 PRINTP512, "30 
8060 PRINTP576 , "24 
8063 PRINTP640 , "18 
8065 PRINTP704,"12 
8070 PRINTtJ768," 6 
8100 FORX-1TONH 
8105 IEHD(X,10)<-80THENHP-HD(X,10)ELSEHP-80 
8110 FOHY-40TO(40-(HP/2))STEP-1 

8120 SET( (X*6)+2,Y) 

8130 NEXTV 

8140 NEXTX 

8150 AS-*"lIFINKEYS-""THEN8150 
8999 RETURN 

^^i: S: 2 FPEEK|14312,>127 ™ ENPRIOT!PRIOT " PR I'™R NOT READY - PR 
ESS LN.ER ; : I NPUTAS : RETURNELSEPRI NT041 , "PRINTING 
9005 PHS--COMPARATIVE ANALYSIS FOR RACE NUMBER 



AVE. 
FIN. 



II. I 



IWPS 



EARN/ 
START 



in. i nun 



SR/TV" 
AVE. 



III. I 



COM 



II. 



9010 P1S-" COMP. 

9020 P2$-"HI TIME 

P. POINTS ODDS" 

9030 PLS-"II III. I 

* III. I I 

9100 LPRINT: LPRINTTABI 20) PH$;RN 

9110 LPRI NT :LPRINTP1$:LPRINTP2$: LPRINT 

9200 FORJC-ITONH 

^ ( x,iiThS ( x j :;0^.^; x x ,' hd(x ' i) ' hd ' )< ' 2, ' hd(x ' 5, ' hdix ' 6 ''-' x '' 

9220 NEXTX 

9230 LPRINT:LPRINT:LPRINT 

INTCSof-LPRINT* WAGERING "•' LPRIOT ' LPR ^«U):LPRINTC S ,2,:LPR 

9250 LPRINT" EXACTAS" : I.PRINTCS ( 4) : LPRI NT: LPRINT : LPRINT 

9290 RETURN 

11000 CLS:PRINTTAB(15)" — CLASS TABLE —".PRINT 



LOT 
MODERATE 



SLIGHT 
EQUAL CLASS" 



11010 PRINT"<3> 

11020 PRINT"<2> 

->> UP IN CLASS" 

11030 PRINT"<1> 

11040 PRINT"<0> 

11050 PRINT"<-1> SLIGHT 

11060 PRINT"<-2> MODERATE 

->> DOWN IN CLASS" 

11070 PPINT"<-3> A LOT 

11097 PRINTSTRING$(63 , "-") 

11099 RETURN 

11500 PRINTTAB(15) "— SAMPLE DISTANCE CHART — ":PRINT 

11510 PRINTTAB) 5) "3F 5F 7P 

3/8M" 
11520 PRINTTAB(5) "3.5F 5.5F 7 5F 

1/2M" 
11530 PRINTTAB(5)"4P 6F 7.75F 

3/4M" 
11540 PRINTTAB(5) "4.5F 6.5F 1M 

M" 

11550 PRINT:PRINTSTRINGS(63,"-") : PRINT: RETURN 



■;CHRS(149) 

";CHRS(149) ;CHR$(149) ;"- 

";CHRS(149) 

";CHR$(149) 

";CHRS(149) ;CHR$(149);"- 

")CHRS[149) 



1M 40Y 
1M 70Y 
1 1/8M 
1 1/4M 
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WE'VE MOVED ! 

Nou) wc can o^Vi ficu-teA and 
mon.a n&LLabla ACAvice. -- 
Including UPS upon ncquc-bt! 



DUALCASE* 

UPPER/lowercase, full time from power-up; 
NO software; Standard typewriter keyboard 
operation (shift to UPPERCASE); Control charac- 
ters can be displayed; 128 Total character set 
plus full graphics. 

SWITCHABLE* 

No switches. No driver. Operates from key- 
board. Totally disables "PATCH" functions. 

KEYBOARD DEBOUNCE* 



Extra keyboard debounce, full time from 
power-up; NO software. If dirty keys are a prob- 
lem, this is for you. 

BLOCK CURSOR* 



Replaces the underline style cursor directly. 
Easier to locate on a full screen. No distracting 
blinking. 

SHORT CASSETTE LEADER* 



For tape based systems. Does NOT change 
baud rate. Only shortens recorded leader. Saves 
four seconds of waiting time. Great for data files! 
No conflict with high baud rate cassette systems. 

ELECTRONIC SHIFT-LOCK* 



No extra keys or switches. Simply tap either 
shift key, UPPERCASE lock, normal shift unlocks. 

TRS-80 is a Trademark of Tandy Corp. ORDER 



"THE PATCH" is not only a lowercase modi- 
fication, but a complete system offering many 
of the enhancements you would like available on 
your TRS-80. How is this possible? "THE PATCH" 
is a "smart chip" which monitors the same ad- 
dress lines as the ROM in your TRS-80 Model I 
Level II. "THE PATCH" recognizes certain ad- 
dresses, turns off the LI I ROM, then substitutes 
its' own byte of data. This "Patching" is what 
allows ALL these enhancements with NO soft- 
ware overhead, thus NO software conflict. In 
fact "THE PATCH" is the ONLY lowercase modifi- 
cation that is compatible with both Basic and ma- 
chine language programs AND the ONLY all 
hardware lowercase modification. 

You install "THE PATCH", no need to send 
your TRS-80 away so there's no hidden installa- 
tion cost. Detailed instructions guide even the 
most inexperienced owner to complete installa- 
tion in about 30 minutes. Works with the two or 
three chip ROM set. "THE PATCH" unit plugs into 
the ROM sockets (does not replace existing ROM). 
Lowercase does require installation of the extra 
video RAM (supplied with "THE PATCH"). 

"THE PATCH" is compatible with any word 
processor, any DOS and also other languages 
which use ROM sub-routines. "THE PATCH" is 
never obsolete. As new features become avail- 
able they can be installed in your "PATCH". 

"THE PATCH" is covered with a one year 
limited warranty on materials and workmanship. 
(Does void Radio Shack's 90 day warranty). Ask 
for details . . . we can install for a small fee. 

CECDAT, INC. 

P. O. Box 497 
Hayden Lake, ID 83835 

'THE PATCH" is a trademark of CECDAT, INC. 



CALL NOW 
(208) 772-9571 



INFORMATION 



Name 
Street 
City ... 



State 



ZIP 



Signature — 

□ Check, Money Order, Bank Draft 

□ VISA, MASTERCHARGE, Purchase Orders (add 3%) 

Card/PO No _ 

Expiration Date Today's Date 

You must check one: 

□ "MEM SIZE" □ "MEMORY SIZE" 

Price valid through December 31, 1981 



"THE PATCH 2" Switchable (it $94.97 ea. 

OPTIONS: (please check) 

□ "Electronic Shift-Lock" Add $30.00 

□ "Short Cassette Leader" Add $10.00 

□ "Block Cursor" No Charge 

□ "Debounce" No Charge 

Ship. & Hand. @ 2.50 ea. 
COD ADD 5% . . . . 
ID Sales Tax 3% (Id Res) 
TOTAL ORDER .... 



■ S— Utt of Advrtlnn on page 354 
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EDUCATION 



Modify ISI's teacher program for network operation. 



Teacher Mod 




Madeleine Fish 
Grant Union High School 
1400 Grand Ave. 
Sacramento, CA 95838 



In this article I present a very 
simple modification to Instant 
Software's Teacher program. 
The changes enable a teacher 
using a network system to for- 
mat a lesson using Teacher and 
then send all the questions at 
once to a classroom of com- 
puters via the network. The pro- 
gram as sold cannot be used on 



the network. The original format 
requires each student to individ- 
ually load questions from tape. 

Once you make these changes, 
save the two programs (original 
and modified) on tape or disk. 
The questions must be stored on 
tape using this program. 

The Teacher requires a two- 
step load with the first program 
being the logo. Save the second 
program on a tape or disk. It is 
this program that we will modi- 
fy. We are going to create a pro- 
gram to load our questions 
through the network by making 



the following changes: Delete 
40,50,90-560,580-1630,2160- 
3420. Add these lines: 



60 CLS:INPUT"DO YOU WISH TO INPUT 
DATA FROM A CASSETTE (ANSWER NO 
IF WISH TO SEND ALREADY LOADED 
QUESTIONS TO THE NETWORK)";BB 
85 IF BB = "NO" THEN 569 
570 INPUT-PRESS ENTER TO SEND 
YOUR QUESTIONS OUT TO THE NET- 
WORK";^: GOTO 1640 
1640 PRINT#-1,BT 
1642 PRINT#-1,N,BN 
1650 FOR Q=1 TON 

1660 PRINT#-1.A(Q),B(Q):PRINT @ 576, 

'QUESTION";Q 

1670 NEXT Q 

1680 GOTO 60 

2140 CLS:GOTO 570 



The procedure for using our 
new system is as follows: 

• Create a question tape fol- 
lowing exactly the directions 
supplied with the software. 

• Load into your control com- 
puter the original unmodified 
program that was saved (pro- 
gram as sold without the in- 
itial logo program). 

• Send this program via the 
network to the students' com- 
puters. 



• The students' display will 
ask if they want to load from 
tape. They (or the teacher) 
should respond with yes and 
follow directions as if a tape 
load was to follow. 

• Load the shortened modi- 
fied program into the control 
computer. Follow directions 
and load your question tape. 

• The computer will then in- 
struct you to depress the Enter 
key when you are ready send 
out the questions via the net- 
work. 

There are some disk-based 
authorware systems available 
for the TRS-80. They will also pre- 
sent a problem as far as the net- 
work is concerned since we are 
transmitting information through 
the cassette port and the speed 
of our information transfer is 
necessarily slow. 

This is by no means an ele- 
gant or complete authorware 
system, but for an investment of 
$10, teachers can begin to cus- 
tomize lessons for their students 
and specific educational pro- 
gram. ■ 
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Are my TRS-80* business systems really that good? 

Michael Tanncnbaum thinks so. 

Here's what he said about my Model II 
systems in the August "80 Microcomputing." 



On the General Ledger's ability to file and report : 

"...the best I have yet 
seen in a microcomputer 
system." 

On the Accounts Receivable system: 

"...clear and simple to 
follow. 1 



if 



it 



»f 



...the first time I have 
seen this feature in a 
microcomputer system.' 

(referring to its ability to calculate a salesman's commission) 

On our policy of customizing our systems 
to each buyer's needs: 

"...Taranto does his 
customers an enormous 
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service. 



And on our systems in general: 

"...a comprehensive and well-documented 
system, an impressive product at a very 
reasonable price." 



Thank you, Michael. 



Taranto 

& ASSOCIATES, INC. ^ 45 

The Total System Store. 

121 Paul Drive, San Rafael CA 94903. 

Outside California, toll free (800) 227-2868. In California, (415) 472-2670. 

Authorized dealers throughout America. 



sS— List Of Advertisms on page 354 
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TM 



ftlC-TOC 80 

Micro Clock 

Put o wrist worch on your Computer. Gives Time. Dote, 
and Doy of week, without the need of operator input. 
Runs on Dafteries, so it never needs to be reset. Gives 
you the ability to enter data with the knowledge that 
the Date and time are correct. Includes complete 
documentation, ond sample routines. 

Mod I Version $99.00 

Mod III Version $109.00 

NEW DOS PLUS SUPPORTED!! 



LIGHT PEN 

Model I 6- II Light Pen. Needs only a 9 Volt Battery. 
Attaches through the cassette recorder for ease of 
operation. Easy to use ond program. Comes complete 
with hardware and extensive documentation and 
sample routines. All this power for only $19.95 



LYNX MODEMS 

Expand your horizons, allow yourself to communicate 
with other computers, and for others to communicate 
with your computer!! Now this is easy to do with the NEW 
Model I 6 III LYNX Modem with Auto Answer/Dial 
features. Needs no RS232-C Board installed in the TRS- 
00™. Full 1 year warranty. All this for only .... $299 95 



UNITERM 

UNIVERSAL TERMINAL PROGRAM 
by Pete Roberts 

The first and only fully intelligent terminal program for 
BOTH Mod I ond Mod III users! Includes all features found 
in Terminal programs costing MUCH more, plus many not 
found anywhere else. Includes extensive 
Documentation ond handsome binder. 
Price $79.95 



RUN YOUR OWN 
COMPUTER BULLETIN 
BOARD 

Become a CONNECTION-80 SYSOP (System Operator) 
with a LYNXModem, and CONNECTION-GO BDS Program 
by Tom Vande-Stouwe 6- Rich Taylor. All for only $399 
($1 00 off regular price). 

CONNECTION-60 BBS Alone $199.95 

LYNX Auto Modem Alone $299.95 



DOS PLUS 



MODEL III MEMORY KIT 

Upgrade your Model III to 02 or 46 K with the RIGHT 
Memory Chips. These are Prime 150ns (Fast!!) chips 
Beware of slower chips, as future Mod III upgrades may 
not work with them! 
16Kset rj*on 

»- ::::::::::::::::::: %>% 



This is the BEST Operating System currently available for 
the TRS-60 7 ". It offers you all the features you could ever 
use. speed, reliability ond much more. Available for the 
Model I and III. Single and double density systems 
available. Only 99.95 either system. 



COPY III byDickBolcom 

Load in the 500 Baud system rapes in 1 /3 rhe rime with 

Copy III. This utility will read in your 500 baud system 

topes, ond then wrire rhem our or 1 500 baud This qives 

you backup protection os well o speeding up your ropes 

A must for oil Model III Cassette users' 
SPECIAI wwi* 

" L $9.95 



CASOP 

fr5 %£? U '"" y Wi 'l °" OW you *° «W s ^ms topes. 
££££ i^T" 5 ' f heCk for hidden ™»°9es. m£% 
K2K2« ' relOC °'t pr °9 ram blod « °"<* ™*9* 



UTILITY PACK 

by Mike Friedman 

FOR THE SERIOUS TRS-60 T " USER 

CONTAINS: 

|g2oler: Very fast. Allows page porometers b Perf Skip 

This spooler allows you to switch Doss without 

Interuptlng printing!! 

Erase: Super program, purge utility with many modes of 

operation. You will never use KILL again!! 

Mp Places a sector map of your disk on the screen 

Shows free, used ond locked out qrans. 

All for only j40 Q5 



MODEL III DISK DIRECTORY 

PROGRAM byDHIMoxey 

Catalogue yourDiskettes with this easy to use Catalogue 

n r ?? ram n°L M0de ' '" D,Sk Systems " Con ™ °" °* «"2 os 
a 32K 1 Disk system. Helps you keep track of ALL of your 
programs. * 

ONLY S19.95 



171 Hawkins Rood ^122 
Cenrereach, New York 11720 

(516) 981-8568 (Voice) 
(516) 588-5836 (Doto) 
MNET-70331, 105 




Dealer Inquiries Welcome 

Add S2.00 S G H 
NY5 res. add oppr. tax 
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AMBE 



EYE FATIGUE- Much 
discussion has token 
place regarding 
screen Color and 
contrast. Extensive 
research hos 
produced o 
breakthrough in the 
prevention of 
Operator Eye Fatigue. 




Amber has been found 
to be much more effec- 
tive in preventing eye 



TM 



fatigue than any other 
color. Put an Amber 
Eaze Filter on yourTRS- 
80™ or any other 
computer monitor. 
Contact one of the 
dealers below. 

Model I $19.95 

Model II Gill.. $24.95 
Other Com puters Call 



The Copyright Kit 

How ro Copyright your Computer Software 



A self-instruction 
booklet on 
copyrighting the 
computer programs 
you write. INCLUDES: 
Step by step 
instructions, sample 
forms, as well as 
discussions of 
copyrights, patients 
and trade secrets, your 
rights secured by 




copyrights, legal 
remedies upon 
infringements, 
material not 
copyrightable and 



MUCH MORE! Written 
by Attorneys. 
Published by National 
Attorneys Publications 
Inc. and distributed 
exclusively through 
D.T. Enterprises and 
available from the 
dealers below. IF YOU 
EVER WROTE A 
COMPUTER PROGRAM, 
YOU NEED THIS BOOK!! 



Available At 



Dreeze Computing 
P.O.Box 1013 
Berkley. Ml 48072 
313-208-9422 

Programs Unlimited 
20 Jericho Tpke. 
Jericho. NY 11 753 
800-645-6038 

Contemporary Comm Corp. 
5582 Coral Way 
Haslert. Ml 48840 
517-339-1028 



Computer Magic Inc. 
1 1 5 Welrshire Ave. 
Louisville. KY 40207 
502-893-9334 

Son John Enterprises 
P.O. Box 1671 
Freemont. CA 94538 
415-651-4147 

Stevens Radio Shack 
562 Nun Road 
Phoenixville. PA 1 9460 
800-345-6279 



All Systems Go 

1 05 W. Plant St. 

Winter Garden. FL 32781 

305-877-2830 

Bobs TV. 

93-1 5 86th Drive 

Woodhaven. NY 11421 

212-441-2807 

Soft Sector Marketing 
6250 Middle Belt Rd. 
Garden City. Ml 481 35 
313-425-4020 



CPU Computer Corp. 
175 Main Street 
Charleston. MA 02 1 29 



Computer Serv. of Donbury 
P.O. Box 993 
Donbury. Cf. 068 10 
203-744-5516 

Omni Systems Associates 

P.O. Box 632 

W. Coldwell. NJ 07006 

201-226-9185 




1 71 Hawkins Rood ^122 
Centereoch. New York 1 1720 
(516) 981-8568 (Voice) 
(516) 588-5836 (Dora) 
MNET-70331. 105 



Dealer Inquiries Welcome 

AddS2 00SGH 
NYS res add appr 'ox 







■See List of Advertisers on page 354 
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UTILITY 



Though not probable, it's possible. 



Serial Printing 
With EDTASM-Plus 



Howard H. Cohen 
1204 Branch Lane 
Glen Burnie, MD 21061 



After purchasing a Microsoft 
Editor/Assembler-Plus I 
wanted a printer for hard copy. 
After months of waiting I bought 
a used Selectric terminal and 
Small System's TRS232. How- 
ever, to my dismay the Microsoft 
EDTASM Plus does not support 
serial printers and there is no 
company policy to integrate the 
two products. Therefore, I had to 
integrate them myself. 
. Using Small System's RSM 
Monitor I searched, moved, and 
changed some locations suc- 
cessfully. These changes as- 
sume you have the following 
software and at least 32K of 
memory: RSM Small Systems 
Monitor, Microsoft's EDTASM 
Plus (version 1.06) and the 
TRS232 Formatter software. If 
you do not have the Formatter, 
get it. It's well worth $14.95. 

Run EDTASM Plus and key in 
the Formatter program from the 
supplied listing. While you are 
keying in Formatter, you must 



change the parameters that you 
would normally change using 
the Basic load version (e.g., 
BAUD, NULLCT, etc. I have the 
newer Model I TRS-80, therefore 
I don't use the keyboard de- 
bounce program in the Format- 
ter. With a bit more work, inte- 
gration of the debouncer could 
be accomplished.) Add the code 
in Table 1 in front of the start 
label. Add the following End 
card at the end of the Formatter: 

END PRNTDR. 

Then assemble the new For- 
matter with: A NEWFOR 
/MO/WE/ and record it on 
cassette tape. 

Next, reload EDTASM Plus 
but do not Enter. Load in the 
RSM Monitor at AC00H and ex- 
ecute it. Enter the following 
commands: 

E 4561 Change the 3B to 81 

E 4562 Change the 00 to 72 

E 4459 Change DD to F7 

E 4460 Change the 71 to 73 

Now load the tape you made 
(system •? NEWFOR). Go back 
to RSM (SYSTEM *? /44032) 
which was loaded AC00H. Issue 



the following command to 
create your composite program 
tape: P 4380 73F7 4380 ED- 
TASM. (The last step can be re- 
peated to record two copies.) 

Next, load your new program. 
Turn on your serial printer and 
print away. 

Note the two key addresses 
(above) in EDTASM Plus, 4561 H 
and 4459H. Address 4561 H is 
where the printer driver is called 
and 4459H is the address that 
sets up the start of the EDTASM 
Plus text buffer. The address at 



4561 H was changed to call the 
new printer routine. The address 
at 4459H was changed to allow 
the Formatter to become part of 
EDTASM Plus. 

It is important to note that 
once the EDTASM Plus and the 
TRS232 Formatter are merged, 
the Quash function in EDTASM 
Plus should not be used. If it is, 
it will cause EDTASM Plus to 
make an error. The code will call 
the Formatter that was quashed 
along with Z-Bug or the Assem- 
bler. ■ 



ORG 


728 1H 


; ORG THE FORMATTER BEHIND 
THE EDTASM + 


PRNTDR PUSH 


AF 


; SAVE ALL EDTASM + S REGISTER 


PUSH 


BC 




PUSH 


DE 




PUSH 


HL 




PUSH 


IX 




PUSH 


IY 




LD 


C,A 


; MOVE THE CHAR TO C-REG 

WHERE TRS232 IS EXPECTING IT 


CALL 


START 


; CALL TRS232 


POP 


IY 


; RESTORE ALL REGISTERS 


POP 


IX 




POP 


HL 




POP 


DE 




POP 


BC 




POP 


AF 




RET 




; RETURN TO EDTASM + 

Table 1 
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SUPER MICRO PRO CESSOR FOOTBALL 



SCCS€: *■£ KSH'Y COWE": - B 



' i > -if V ! ,' .V IB j 
...YtXlU TOW Or-F06Ivt TT*ML < — 
:ST DO* ODD 10 * THE fI&<T> COMUTERS 38 



Hill -W> 15 YCJfi OFfTNSivt PIPY lllll 



ClQCK is sunning - nit BEMOINInG ll : 28 ■' 



Animated Graphics Game Time Clock 

(48K-32KI Available for TRS8CT Lll M1 or M3 
48K DISC >22 95 32K DISC s 19.95 (48K 

has more of everything" 1 ) ^_^ 

16K DISC OR TAPE M2.95 

Many more super programs Please write for 
free listing and program details 

Attention: Software Authors— We want good 
programs Top royalty plan Dealer inquiries 
welcomed 

* TRS80 is a Reg Trademark of Tandy Corp 

MICRO PRO SYSTEMS 

Route #2 Box 533 
Cumming, Georgia 30130 



•— $$ DISCOUNT PRICES $$ — « 

SCOTCH DISKETTES 

Soft Sector Single Density - t%i Inch 
32% less abrasive than the industry average. 

Soft box of 10 $27.95 

Storage box of 10 $28.95 

3M Disk Drive Cleaning Kit (5 V. inch) $22.95 
Shipping & insurance for each box/kit $1.00 

TRS-80 SOFTWARE 

Designed/tested with TRSDOS & NF.WDOS + 
Requires 16 K and one disk drive unless noted. 
Software prices Includes shipping & insurance. 
Directory Librarian with diskette order $9.00* 
Reads directories of up to 99 diskettes. Main- 
tains a master library of names and free grans. 
Fast sorts. Supports printer. Req's 48K. 
Typing Teacher with diskette order $4.00' 

Teaches touch typing. Letter, word, and para- 
graph exercises. Monitors typing speed. 
Math Drills with diskette order $2.00* 

Prints personalized practice worksheets for 5 
types of math problems. Ages 5-9. Req's MX80. 
Game Pack #1 with diskette order $2.00' 

Exciting arcade games - Duel, Race & Maze 
All lour programs with diskette order $14.00* 
"without diskette order - add $5.00 for 1 or more 

EPSON MX80 PRINTER 

80 chars/sec - 9x9 matrix - letter quality 

Epson provides 90-day warranty for MX80 

- Regular tractor model W/TRS80 cable $519.00 

- Friction/Tractor model wH"RS80 cable $619.00 

- Shipping & insurance $10.00 

- Friction Feed Adaptor (incl. shipping) $54.95 

PAPER & LABELS 

Special proposal quality paper - pin fed 
Pure white 20 lb. bond with watermark 

- Box of 2300 sheets -9 ft x 11 Inch $37.00 

- Shipping & insurance for each box $9.00 
Pressure Sensitive Labels 

• Box of 5000 labels - 3'/i x <% inch $19.00 

- Shipping & insurance for each box $4.00 
SUPER SPECIAL PACKAGE 
Everything in this advertisement! 

Diskettes (1 box), cleaning kit, MX80 (w/cable- 
add $100 for MX80FT), all software, paper & 
labels (1 box ea). Includes shipping. $649.00 

JSL W Visa and Mastercard accepted 
Michigan residents add sales tax. 

THE COMPUTER ANSWER ^47i 
P.O. Box 573 T 
Birmingham, Michigan 48009 
(313) 642-4338 (Order Phone • 24 hours/day) ea 



CANADIANS 

NOW IN STOCK 

ACORN SOFTWARE 

PIN BALL 

BASKETBALL 

INVADERS FROM SPACE 

Super action with SOUND 
& Machine Language SPEED 

Each avail for Mod 1 on 
CASS $19.95 DISK $24.95 

SYSTEM SAVERS 

Will copy SYSTEM TAPES 

onto DISK or Cassette 
Mod 1 DISK SYSTEM $19.95 

MEMOREX 5 1 /4" DISKETTES 
$5.50 ea 10 for $50.00 

MORE TO COME (& Mod 3) 

SEND FOR FREE INFORMATION 

We accept VISA 

CMD MICRO ^459 

PO BOX 1212 

EDMONTON, ALBERTA 

T5J 2M4 



STOCKCHART - I 

MORE THAN JUST A COMPUTER PROGRAM 

IT'S AN INVESTMENT TOOL 



•written for TRS-80* model-l 
•requires 16K RAM for cassette. 32K 

RAM & 1 -drive for disk version 
•printer option 

•disk version $50.00 

•cassette version $30.00 

to order, send check, money order, or COD 
to: 

■"^"■Tj"jjp Micro-Investment Software 
Mil 9621 Bowie Way 
■UTs-SSL Stockton, CA. 95209 ^46 

APPLE II* & ATARI-800* version available 
soon, write for more information 

■ JM ol lantjy Corp . Apple Computer Atari respectively 




• generate price-chart from HIGH, LOW, & 
CLOSE PRICES 

• price-trend analysis assist investors in 
BUY/SELL decision 

• auto scaling for price-chart generation 

• accept fractions, allow users to enter 
prices as appear in newspapers 

• SPLIT routine to adjust prices for stock 
split 

• EDIT capability for users to change 
price data 

• STATUS mode to display price-trend 
signals 

• PURGE utility to delete unwanted data 
from disk (disk version only) 



GET THE PRICE ■ TREND PICTURE 



WITH 



STOCKCHART ■ I 



DEALERS INQUIRIES INVITED 



-- See List of Adiertisers on page 354 
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REVIEW 



An improved operating system for the Model II. 



Snapp's XBasic 



Rick Lederman 
3375 Airport Highway 
Toledo, OH 43609 



The Snapp Inc. advertise- 
ment promised "the best of 
Apparat's features in im- 
plementing NEWDOS Basic". 
After one phone call, one 
plastic cash number and three 
days, my disk arrived. 

Snapp's installation instruc- 
tions are clear and it takes only 
a few minutes to modify a disk. 
To my amazement the software 
worked as good as or better 
than the ad claimed. 

The first of XBasic's modules 
are designed to reduce the 
number of keystrokes that are 
required during programming 
or software modification. 

There are the six single 
keystroke commands: The left 
arrow lists the first line of a pro- 
gram; the right arrow lists the 
last line of a program; the up ar- 
row lists the previous line; the 
down arrow lists the next line; the 
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lists the current line; and the 
comma edits the current line. 

There are also 10 abbrevia- 
tions for commands: 

A Auto L List 

C CLS M Merge 

D Delete N New 

E Edit P Llist 

K Kill S System 

Listing and editing your pro- 
gram becomes a piece of cake 
if you need only type the left ar- 
row (list first line) then type the 
right arrow (list next line) while 
holding the Repeat key. This 
causes the program to list until 
you release the Repeat key. 
Then type a comma and you are 
in the edit mode for the current 
line. That is much quicker than 
typing LLIST (enter) then 
(Break) and edit (line number). 

The Model II DOS 1.2 also re- 
quires that you enter System"!" 
immediately before swapping 
disks whereas DOS 2.0 requires 
that you enter System"!" after 
swapping disks. The abbrevia- 
tion S"l" is appreciated. 

The next and, for me, the 
most valuable routine is XREF, 
Snapp's cross reference facili- 
ty. This utility Is similar to Ap- 
parat's in that you may list 
references to the screen and 
printer and list references to 
line numbers or integer con- 
stants and variables. But XREF 
also places an asterisk in front 



of any line number not an in- The enhanced renumbering 

facility corrects some prob- 
lems with Radio Shack's Re- 
number and allows you to 
specify an upper limit on a 
block of lines that are to be re- 



teger constant. It also places 
the asterisk before line num- 
bers during the variable listing 
if the variable is modified in 
that line. 



1 


100 150 








3 


80 








5 


80 








10 


100 








12 


60 150 








80 


•90 








100 


•80 








A 


60($ •110($160<$ 








B 


•130/$140/S 








J 


50 








L 


50 








PI 


•70*8073110 








X 


•100/% 110/%2 120/% 


•150/% 


160/%2 170/% 






Fig- 


1. 





1 DEFINT J-L:DIMA$(12):PIO. 1415927 

2 IFPI>3THEN4ELSEPI-PI[5 

3 GOT02 

n D ^c"iI° 1B!A$(X%) ' STR$(PI * X% ' !NEX l'X%!BS--llOW PRINT THE ARAY" 

PRINTBS ! P0RX%-lTO12:PRINTAS(X%),X%:NEXTXI:END 

5 REM «•••• X3TF.ST ••••• 

\l o« * PR0GRA « TO DEMONSTRATE SNAPP, INC. XBASIC 
28 REM FOR THE TRS-88 MODEL II 

\l 22! THIS PR0GRA * IS DESIGNED TO DO NOTHING 
*D REM 

58 DBFINTJ-L 

60 DIHA$(12) 

78 PI-3. 1415927 

88 IP PI>3 THEN GOTO 188 ELSE PI-PI 1 5 

98 GOTO 88 

188 FOR X%-1 TO 18 

118 AS(X%)-STRS(PI»X%) 

128 NEXT X% 

138 BS-'NOK PRINT THE ARRAY" 

148 PRINT B$ 

158 FOR XI-1T012 

168 PRINT AS(X%),X% 

178 NEXTX* 

188 END 



Program Listing 1 













fZ*j j 








FEATURES: 

1 ) Radio Shack compatibility 

2) Error free variable length records 

3) Full lower case detection and support 

4) Repeating keyboard with NO keybounce EVER 

5) Shift [0] typewriter keyboard option 

6) Execute only protection feature tor BASIC programs 

7) Automatic track support for 35 through 80 track drives (mixed) 

8) Device I/O handling with FORCE command 

9) Supports high speed clock modification (up to 4 Omhz) 

10) Supports mixed mode (single & double density) automatically 

11) Allows disable-enable of break key 

12) Allows user to define step rate per drive and re-configure system disk 

1 3) Allows for efficient use of double-headed drives 

14) Built in screen printer (shift [CLEAR]) with (BREAK] key abort 

15) Multiple command chaining with "DO" 

16) Built in memory test with CLEAR command 

17) New printer driver which allows complete forms control and paging 

18) Automatic serial printer driver with optional auto linefeed 

19) Execute any DOS command from BASIC and return to BASIC 

20) Free space map of diskette with optional output to printer 




DOSPLUS gives you more of what you buy an opera- 
ting system for. Speed and reliability without sacrificing 
simplicity and power. If you need extra power without 
extra wait, then you need DOSPLUS! 

Single or double density systems available for Model 1. 
Model III DOSPLUS ready for immediate delivery. 

Perhaps the best investment you can rnaJce for your 
TRS-80! Listen to what others have had to say about 
DOSPLUS. 

"Overall, DOSPLUS it the fastest operating system 
1 have seen..." 

Pete Carr in 80-US Journal. 

"DOSPLUS. ..the better mousetrap." 

Stewart Fason in 80-Microcomputing 



21) Copy with variable length files 

22) Complete RS232 control from keyboard with status check 

23) Create and pre-aliocate files from DOS 

24) Display current date and time from DOS 

25) More information from Directory with optional printer output 

26) Enter DEBUG with shift [BREAK] to allow use of [BREAK] from BASIC 

27) New DISKDUMP/CMD sector display/modify program (works with filespecs) 

28) New DISKZAP/CMD single/double density disk editor 

29) New BACKUP (more reliable, no more pack ID check) 

30) New FORMAT (more reliable, no need to bulk erase disk first) 

31) New MAP utility (maps out disk, showing where files are located) 

New DOSPLUS Z80 Extended Disk BASIC 

1 ) Faster loads and saves 

2) BASIC Reference utility (lines, variables, keywords, printer option) 

3) BASIC Renumber utility (renumber section of text, block text move) 

4) Shorthand features for almost ANY direct command (LOAD. SAVE, etc ) 

5) Shorthand features for editing (listing and editing with single key) 

6) CMD' M' instantly displays currently set variables 

7) Global search and replace in BASIC text 

8) Line printer TAB to 255 

9) OPEN'E' to end of sequential file (for output) 

10) Dl (delete and insert text line) 

11) DU (duplicate text line) 

12) ' R' & W" options after LOAD and RUN (files open & save variables) 

13) OPEN" D " allowed (Model II compatible) equal to 0PEN"R" 

14) DOS commands from BASIC 

15) Automatic, error-free variable length records 

16) Single step execution with TRON (fabulous for debugging) 

17) CRUNCH (BASIC program compressor) 

18) New TBASIC (tiny BASIC) offers full BASIC commands 

19) TBASIC and DOSPLUS together only use8K of RAM (40K left in 48K TRS-80) 

***** 7 MORE UTILITIES ***** 

1 ) Single drive copy 

2) Restore (dead files) 

3) Purge (unwanted files) 

4) Ciearfile (destroys data by writing zeros to file) 

5) Transfer (moves all user files from one disk to another) 

6) Spooler (allows printing of text while freeing up the CPU) 

7) Crunch (Basic program compressor) 



ALSO 



a scale of 1 to 10, 1 give DOSPLUS a solid 9." 
Reese Fowler in 80-Microcomputing 
(Model III DOSPLUS review) 

For the BASIC programmer, our features are un- 
matched. For the average businessman, our speed and 
simplicity cannot be beat. 
So, join the satisfied users who have joined DOSPLUS 
excellence! Experience DOSPLUS! 




OSPLUS comes complete with full utilities, PLUS 
a FREE patch to enable Model I Scripslt/Super 

Script to run on Model HI, UNLIMITED Backups! 



Model I DOSPLUS — •99" 

Model III DOSPLUS— $ 99 95 

Model I double density upgrade — 5 175 °° 

Master Directory 1.2 (double density) — s 29 



New I/O package 30% faster 

No BREAK key death from DOS 

No closing killed files and ruining diskettes 



STEP ON THOSE 

DOS BUGS!! 
ORDER TODAY!! 





Specializing in the Tandy Line 
(305) 983-3390 



^-384 




5846 Funston Street 
Hollywood, FL 33023 



CALL TOLL FREE FOR FAST SERVICE 

(800) 824-7888, OPERATOR 193 

FOR V1SA/MASTERCMARGE/C.O.D. ORDERS 

Califonva ial (800) 852-7777. Operator 193 
Alaska and Hawaii dial (800) 824-7919. Operator 193 
TOLL FREE LINES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical information, call 
(305) 983-3390 or drop us a card jr 



Dealers mqunes mvrted 



SINCE YOU 

COULDN'T 
WAIT. 

WE DIDN'T 




INTRODUCES THE 
FD18T Of A SERIES 
OP ACTION PACKED. 
HIGH RESOLUTION 
COMPUTER SIMULATIONS. 



NET EDS 



5TDPN 



© I Ml 

COST A1NS HIGH HESOLITIOV SOUND ENHANCED 
LASER BLASTS. COCKPIT PERSPKT l\ E VARIABLE SKILL 
LEVEL AUTOMATIC Ml LTI-GAME SCORE TALL> AND 
JOYSTICK OPERATION JOYSTICK NOT INCLUDED I 

EXCLUSIVELY DESIGNED FOR 

TRS-80* COLOR 

EXTENDED COMPUTER 

Send check or money order S12.9S 
1MB : ILM'STRATED MEMORY BANkS 
P.O. BOX 289 
WILLIAMSTOWN. MA 01267 ^467 

•A TRADEMARK OFT AND> CORPORATION 



r b 



HAVE YOU 

♦ GOT YOURS? 

A DIS 



DISK & OTHER MYSTERIES: how 

to recover disk files, the layout of infor- 
mation on disks, memory maps, problem 
solutions, and more -• the fixit book for 
disk users! $22.50, 130+ pages. 

MICROSOFT BASIC DECODED: a 

detailed, commented guide to the Level 
II ROM. $29.95, 300+ pages. 

CUSTOM TRS-80: brand new & full 
of super info on customizing your80. In- 
cluded subjects are high res graphics, up- 
per and lower case, reverse video, high 
speed clocks, and more. Software sec- 
tion, too! $29.95, 300+ pages. 



SPECIAL 




OFFER 



If you clip this ad, or mention it in your 
order, you can subtract 93.00 off the 
cost of each book that you order! Each 
order must be accompanied with $2.00 to 
cover shipping expenses. Mail to: TAS, 
1806 Ada Street, Lansing, MI 48910, or 
phone (517) 487-3358 or 485-0344. (Add 
$1.50 for COD, 4% for charge cards). 

^138 



TRS-80* MODEL III 
DISK DRIVE KITS 

Process Control Technology's Disk Drive Controller 
otfers more performance tor less Dollars! 

Jumper program nearly any combination ot internal 
and external Disk Drives. (All four drives can be 
external, or up to two drives can be internal ) 

Hardware compatabte with 40, 80. or 77 track (8 
inch) drives 1 

Hardware compatable with double sided drives! 

TRS-80* MODEL III 

With Two Internal Disk Drives, 32K RAM $1899 

TRS-80* MODEL III, MODEL III BASIC, 

16K RAM $899 

INTERNAL DRIVE KITS 

DISK DRIVE 1 $679 

DISK DRIVE 2 $279 

EXTERNAL DRIVES 

DISK DRIVE 3 (Includes Cable) $359 

DISK DRIVE 4 $329 

Fully Warranted for 90 Days 

'TRS-80 is a trademark of Radio Shack 



PROCESS CONTROL ^408 
TECHNOLOGY 

P.O. BOX 8825 

STOCKTON. CA 95208 

(209) 982-8978 





THE 

UNINTERRUPTIBLE 
POWER SUPPLY 



. . . that keeps your computer on 
when the power fails . . . 

Mayday protects the computer and disk system from power surges, sudden drops in 
voltage, or a complete disruption of power. 

Most problems operators or programmers have are caused by voltage or current interruptions of the computer. 
There are 12 different Mayday UPS power supplies, one of which is specifically designed to handle your computer 
system from 50 watts up to over 600 watts. 

Protect your time and investment. One power failure could well cost you the price of the Mayday. Prices start at 
$240 for the 150 watt system. (Line surge voltage regulator protection is available at additional cost). 
For more information, please call or write. 



from, 



*«151 




Box 210 New Durham. NH 03855 
(603)859-7110 TWX 510-297-4444 
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A $ (0) " " (1) •' 3.14159" (2) " 6.28319" (3) " 9.42478" (4) " 12.5664" 
(5) " 15.708" (6) " 18.8496" (7) " 21.9912" (8) " 2 .1327" (9) 
" 28.2743" (10) " 31.4159" (11) " " (12) "" B $ "NOW PRINT THE ARRAY" 

PI ! 3.14159 

X % 13 



Fig. 2 



numbered. It also allows you to 
scan the text for renumbering 
errors such as undefined line 
numbers or other errors in the 
text, after which the text num- 
bering remains unchanged. 

XRENUM also allows a block 
of text to be duplicated in 
another area of the program 
without destroying the original 
text or its renumbering. When 
renumbering a very large pro- 
gram XRENUM is as much as 
30 times faster than Radio 
Shack's Renumber. 

Beyond NEWDOS utilities for 
the Model I, Snapp offers the 
Model II user XDUMP, a 
dynamic variable-print facility. 
This facility prints the current 
value of any or all variables on 
the screen or printer. 

Fig. 2 demonstrates the 
results of invoking XDump after 
the program is run. By entering 
the command Z, the computer 
prints the current value of each 
variable. In the example, PI is in 
single precision form and 
equals 3.14159 while X is an in- 
teger and equals 13. 

XBasic also includes the 
string/key word cross reference 
facility called XFind. This facili- 
ty displays the line numbers 
where key words appear. This is 
indispensable for converting 
from one Basic to another. 
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Fig. 3. 



XFind also displays all line 
numbers that reference any 
string or portion of a string 
which you select. This is very 
handy for reducing space re- 
quired for quoted strings that 
are used more than once. 

Fig. 3 demonstrates the 
results of entering F, which in- 
structs the computer to display 
the line number locations for all 
key words in the program. The 
key word Print appears in lines 
140 and 160. The string search 
function Is invoked by entering 
F," " which requests all string 
references beginning with a 
null and continued through 
77777 be output to the printer. 
The example program contains 
only one fixed string reference 
which is in line 130. 

Finally, XBasic offers XCom- 
press which reduces your pro- 
gram size to an absolute mini- 
mum. This is accomplished in 
several phases, most of which 
may be optionally selected. 
These phases are: 

•removal of remarks; 

• removal of irrelevant 
blanks; 

•removal of irrelevant tab 
characters; 

• removal of extraneous 
colons; 

• removal of the Let key 
word; 

• removal of quotes at the 
end of a line, 

• removal of GOTO follow- 
ing a Then; 

• removal of non-signifi- 
cant characters from long 

variable names; 
•removal of non-executable 
code; 

• removal of variable typing 
characters ( !#$% ) when 
given a DEFxxx; 

• merging of multiple state- 
ments into single lines; 

• renumbering the program 
on a one-by-one basis. 

The XCompress facility is in- 



voked by entering H followed 
by any special parameters you 
may require. I usually request 
that the program not be renum- 
bered, which allows me to keep 
track of differences between 
program versions more easily. 

DOSFIX 

The previously discussed 
utilities are well worth the 
price, but Snapp Inc. chooses 
to add at no charge their 
DOSFIX, a set of repairs to the 
Model II disk operating system. 
These include both official Fort 
Worth and Snapp originals. 

The first 16 remove unneces- 
sary files from the operating 
system, some which don't work 
anyway, plus junk like SYSL/ 
SYS which only prints the logo 



on the screen during the power- 
up sequence. Another patch 
moves the Break key to CTRL 6. 
This patch has appeared in 80 
Microcomputing before and 
has often saved me from enter- 
ing CONT (enter) which lets the 
program continue from where it 
stopped after accidentally hit- 
ting the Break key While trying 
to use the backspace key. 

The last DOS fix has stopped 
my cussing upon power up or 
reset when the Forms com- 
mand initializes the printer and 
the computer issues two line 
feeds, destroying my top-of- 
form alignment. 

Thanks to Snapp XBasic and 
their DOSFIX, my Model II no 
longer seems to fight my every 
move. ■ 



1 DEFINT J-L:DIHAS(12) :PI=3. 1415927 

2 IFPI>3THEN4ELSEPI=PI|5 

3 GOT02 

4 PORX»=lT01B:A$(X%) -STR$(PI*X%) :NEXTX%:BS = "NOW PRINT THE Ht&I" 
PRINTBS:PORX% = lT012:PRINTAS(X») ; X% :NEXTX% : END 



Program Listing 2 



JOE COMPUTER Presents Handicapping Software 

IT'S FOOTBALL SEASON! - ,93 

Pro and Collage Football from SOL: Now with new manual - old price 1 Thai s 

right. Ken Perry ot SDL refuses to raise the price Joe (eels thai this program should sell 

tor $500.00! Why 7 Because it works - better than 65% against the Las Vegas line lo< 

the last 3 years on picking upsets — a whopping 73% lasl year 1 A proven winner 1 it 

takes about 10 minutes a week to record the weekend s results Then sit back and let 

your computer predict next weekend s pants tor 28 pro teams or 78 college teams Each program 

comes with a prior season data tile 16K TRS-80 Pro Football version now available 

Pro Football Cassette (TRS-80 or Apple) $2195 

Disk $26 95 

College Football Cassette (32K TRS-80 or Apple) $21.95 

Disk ......... $26 95 

Brand New! Pro Football History 

This unique program with data liles displays the scores and Las Vegas lines lor the last live years tor all 
NFL regular and post season games including the Super Bowl All 28 teams included This data is hard 
to tind — now it can be in your computer Data is displayed via a variety ot search keys A must lor 
serious football tans 
TRS-80 or Apple 48K Disk only „ >9 95 

r*2V Horse Race Hanolcapplna! Our biggest seller - Probability Handicapping Device 1 
*^* This is a comprehensive horse racing system lor spotting overlays in thoroughbred 
i sprint races Easy entry ot data trom the racing torm A complete users manual !3kes 

«« you step by step through a sample race and explains overlay belling ana money 
. ** management The user's manual contains a detailed tab run ot a 100 consecutive race 
system workout showing an amazing $1 50 returned for each $i 00 wagered (Note this is no! the 
same program as Winning at the Races ) You may purchase the manual seperaiely tor $7 95 and 
credit PH0-1 is new available tor CP/M (Base-So. fa-Basic). PHD-1 User's Manual and cassette lor: 
16K Apptt II Applesoft. SK Ohio Saentmc (specify IPor 4P). 16K TRS-80 Model I or III $29 35 

Apple or TRS-80 Disk $34.95 

CP/M 5 "or 8" Sfngla Density Data Disk $39 95 

DR. QUIRINS FAMOUS DISCOVERIES! 

Winning it the Races. This is the program using the algorithms trom Dr Quirmsbook Highly praised 
and endorsed by Dr Quirin. this program is the best available today Again. Ken refuses to raise the 
price 1 Our loss is your gain Screen edit type data entry makes entering data a bree?e Order now 
before Joe convinces Ken to raise the price 1 

Winning it the Races Cassette (32K TRS-80 or Apple) » $34.95 

Disk 7. $39.95 

Winning at the Races — the book by William Ouinn Pti D This is me best computerized study of 
thoroughbred racing ever published This 300 page hardbound book shows detailed studies of high im- 
pact value factors and includes Dr Quirm's famous Par Times 
A Tom Ainsle Winners Circle Book $21.95 

Beating the Races with i Computer by Steve Brecher A good How To book on multiple regression 
techniques applied to Pan-Mutual handicapping Some heavy math $14.95 



Mi« checks Payltm lo JOE COMPUTER - 

Sena 10 JOE COMPUTER. !2"2 Ven!u'« 

Calilo.n,a .es")eol! 
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UTILITY 



Using Model I Scripsit on the Model III. 



Patching Across 



Richard Koch 
2740 Washington St. 
Eugene, OR 97405 

Recently Radio Shack an- 
nounced that the Model III 
version of Scripsit can be copied 
a limited number of times. 
Owners can duplicate the pro- 
gram twice, after which backup 
skips over the Scripsit program; 
the duplicated programs cannot 
be copied at all. 

If Scripsit cannot be duplicat- 
ed, things I do with the Model I 
are impossible on the Model III. I 
keep a copy of Scripsit on each 
disk to document computing 
tasks as soon as they are com- 
pleted. Apparently that is not 
possible on the Model III. 
Moreover, I use a serial printer 
which prints at 1200 baud, pro- 
vided it can shake hands with 
the output program. I have 
modified Scripsit to provide this 
handshake, but a program that 
cannot be duplicated cannot 
easily be modified. 

I predict that Scripsit's limi- 
ted backup ability will be 
dropped when Radio Shack de- 



cides to emphasize the word 
processing ability of the Model 
III. But in the meantime, many of 
us have a problem. Luckily, it 
turns out that the old Model I 
Scripsit package can be easily 
modified to work on the Model 
III. 

Making the Modification 

This modification requires the 
disk version of Scripsit. Recall 
that the disk comes with two 
programs, Scripsit/UC and 



to the printer. The cassette re- 
corder doesn't work either. 

Scripsit starts at 5200H, over- 
lapping the end of Debug. First 
lift it higher in memory so Debug 
can inspect the code. The trick 
runs like this: 

Use Debug to insert the fol- 
lowing hex code starting at ad- 
dress 9AB0. F3 21 00 72 1 1 00 52 
01 B0 28 ED B0 FB C3 3F 52 F3 
21 AF 7A 11 AF 9A 01 B0 28 ED 
B8 FB C3 2D 40. Quit Debug and 
enter the command Dump Move/ 



"// Scripsit cannot be duplicated, 
things I do with the Model I 
are impossible on the Model III. " 



Scripsit/LC. Naturally we will 
use Scripsit/LC, because Model 
III displays lowercase. 

Begin by placing Scripsit on a 
Model III disk using Convert. 
You might like to try this unmod- 
ified Scripsit; in large measure, 
it still works. The right shift key 
fails, and nothing can be output 



CMD (Start = 9AB0, End = 9AD0, 
TRA = 9AC0). Then run the un- 
modified Scripsit/LC. As soon 
as it begins, enter the command 
End to return to DOS. Next enter 
the command Move. The DOS 
prompt will return. Enter Dump 
SCR/CMD (Start = 7200, End = 
9AC0, TRA = 9AB0). If every- 



thing works, you now have a pro- 
gram on disk called SCR. When 
this program runs, it provides 
the unmodified Scripsit. But 
SCR can also be loaded for in- 
spection. 

The modifications we must 
make now are rather minor. Our 
first problem is that Scripsit 
doesn't print anything. In the 
Model I, a character is printed by 
placing it in the accumulator 
and then performing LD 
(37E8H),A. For the Model III, the 
analogous command is Out 
(0F8H),A. 

To make Scripsit print, Load 
SCR/CMD and then turn on De- 
bug. Use the M command to 
change the code 32 E8 37 to D3 
F8 00; this change must be 
made five times, at locations 
7244, 865E, 8722, 9A97 and 
9A9E. 

Our second problem is that 
the right shift key does not work. 
The computer reads the status 
of the shift key by examining 
memory location 3880. In the 
Model I, this location contains a 
zero when no shift key is 
pressed and a one otherwise. 
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PROFESSIONAL 




INCOME TAX SYSTEM 

FOR TRS-80* MODEL I, II or III 

For four successive years! 



Our system, running on the magnificent line of TRS-80 computers, has 
prepared thousands of lightning-fast, error-free tax returns a day in 
accounting offices nationwide. 

Now we introduce! 

SYSTEM THREE! 

SYSTEM THREE is an improved, still more interactive version — Totals W-2's and 
computes FICA overpayment — Includes "QWIKTAX," a fast tax calculator for tax 
planning — Has automated Client Billing — More! 

And, as always— 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. All formats IRS and State approved. 

4. Schedule amounts automatically entered on Form 1040. 

5. Your Preparer's Information automatically printed at bottom of Page 2, Form 1040. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special printer adjustment routines: Margin Offset, Text Position, etc. 

8. Fills in pre-printed forms (we supply) or use overlays. Your choice. 

9. AUTOMATICALLY COMPUTES: Tax — Earned Income Credit — Maximum/Minimum Tax — Least Tax 
Method — All Percentage of Income Limitations — All Fixed Limitations. 

DOES INCOME AVERAGING IN EIGHT SECONDS! 

10. Full support through the tax season, no charge. 

11. Inexpensive yearly updates in accordance with tax-law changes. 

SYSTEM THREE comes in four modules. You select the ones you need. There is no 
system like it, for any computer, and the cost is literally nothing. In one season, our users 
have paid, out of savings, for the software and the computer. 

35-page Descriptive Manual - $7.50 

(Refundable on order) 

MINIMUM SYSTEM REQUIRED: Model I, 48K, 1 Disk Drive 

CONTRACT SERVICES ASSOCIATES . 

706 SOUTH EUCLID • ANAHEIM, CA 92802 • TELEPHONE: (714) 6354055 

•TRS-80 is a trademark of Tandy Corp 



-See List ol Advertisers on page 354 
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But in the Model III, the location 
contains either zero, one, two or 
three depending on the combi- 
nation of left and right keys 
pressed. The code which reads 
the status of the shift key is LD 
A,(3880H). We will change this 
code to Call 78A2H. 

Use Debug to change the 
code 3A 80 38 to CD A2 78. This 
change must be made twice, at 
locations 80CD and 80F9. 

Of course we need code to 
process this call. The new 
routine will read LD A,(3880H); 
OR A; RET Z; LD A,1 ; RET. Room 
will be made for this code by 
shortening the message "RS232 
Interface Not Ready" to "RS232 
Not Ready." 

Use Debug to change the 
code starting at 9891 from 1 A 52 
53 2D 32 33 32 20 49 4E 54 45 52 
46 41 43 45 20 4E 4F 54 20 52 45 
41 to 10 52 53 2D 32 33 32 20 4E 
4F 54 20 52 45 41 44 59 3A 80 38 
B7 C8 3E 01 C9. 

The cassette recorder must 
be repaired. We will use ROM 
routines; five are involved. 

Use Debug to change CD F0 
63 to C3 87 02 starting at 83CB, 



to change CD F0 63 to C3 96 02 
starting at 83DA, to change D9 
F5 0E to C3 64 02 starting at 
83AF, to change D9 0E 08 to C3 
35 02 starting at 8381, and to 
change E5 21 00 to C3 F8 01 
starting at 83F9. 

Finally, the serial printer rou- 
tine must be changed. If you 



pulses. In technical language, 
the board must be initialized. 

In the Model I, this initializa- 
tion is done in a strange way. 
The RS232 board contains eight 
very small switches, called DIP 
switches. The particular method 
used in serial output is pro- 
grammed by setting these 



"The RS232 serial interface. . . 
converts data. . . into a stream of 
pulses that can be sent to a printer. 



have an ordinary parallel printer, 
you might want to skip this one. 

Fixing the Serial Printer 

The RS232 serial interface is a 
device that converts data used 
by the computer into a stream of 
pulses that can be sent over a 
wire to a printer. There is no 
unique way to do the conver- 
sion; Radio Shack's board can 
do it several different ways. 
Before data can be output, 
therefore, the board must be 
told how it will convert data into 



switches. But, mysteriously, the 
switches are not connected to 
the RS232 board in any serious 
way. Instead, the computer 
must tell the board which meth- 
od to use. Whenever Scripsit is 
run, the program asks the RS232 
board how the switches have 
been set. It then initializes the 
board as the switches com- 
mand. 

The Model III does not have 
DIP switches. We must tell 
Scripsit from the beginning how 
the board should be initialized. 



To do that, we replace the code 
starting at 661A by: LD A, (Baud 
Rate); Out (0E9H),A; LD A, (Parity 
and Stop Bits); Out (0EAH),A; JR 
15H. 

Using Debug, find the follow- 
ing code at location 861 A: DB E9 
E6 F8 F6 D3 EA DB E9. Replace 
this code with 3E * * D3 E9 3E ## 
D3 EA 18 15. The values chosen 
for * * and ## will depend on your 
printer. The value ** must be 
computed using the information 
"Transmit/Receive Baud Rate 
Code" on pages 8/5 and 8/6 of 
the Model III Operation and 
Basic Language Reference 
Manual. The value ## must be 
computed using the information 
"Parity/Word Length/Stop-Bit 
Code" on pages 8/6 and 8/7 of 
the same manual. 

Finishing the Task 

After the above changes have 
been made, turn off Debug and 
issue the command Dump Scrip- 
sit/CMD (Start = 7200, End = 
9AC0, TRA = 9AB0). Test the 
resulting program. It should 
work exactly as it did on the 
Model ■ 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



NEW MODEL UPI-3 SERIAL PRINTER INTERFACE MAKES IT 
POSSIBLE TO CONNECT AN ASCII SERIAL PRINTER TO THE 
PARALLEL PRINTER PORT ON THE TRS-80. 

Software compatibility problems are totally eliminated because 
the TRS-80 "THINKS" that it has a parallel printer attached. 
NO MACHINE LANGUAGE DRIVER NEEDS TO BE LOADED 
INTO HIGH MEMORY BECAUSE THE DRIVER ROUTINE FOR 
THE UPI-3 IS ALREADY IN THE LEVEL II ROM! SCRIPSIT, PEN- 
CIL, RSM 2, ST80D, NEWDOS, FORTRAN, BASIC etc. all work as 
if a parallel printer was in use. 

The UPI-3 is completely self contained and ready to use. A 34 
conductor edge card connector plugs onto the parallel printer 
port of the model I Expansion Interface or onto the parallel 
printer port on the TRS-80 III. A DB25 socket mates with the 
cable from your serial printer. The UPI-3 converts the parallel 
output of the TRS-80 printer port into serial data in both the 
RS232-C -nd 20 MA. loop formats. 



bd 



SPEEDWAY ELECTRONICS 

Division of Binary Devices 

11560TIMBERLAKE LANE 
NOBLESVILLE, IN 46060 

IRS B0 is a trademark <>l Tandy 



Also available from 
YE ODDE SHOPPE 
(317) 925-04% 



VISA MasterCard 




Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per Word 

• Parity or No parity 

• ODD or EVEN Parity 

UPI-3 assembled with 90 day warranty 

UPI-4 for use with Model 1 and RS Printer 

interface Cable (no expansion interface required) 

Manual only (may be applied to order) 

Ten day return privilege 

Shipping and Handling on all orders 

Specify BAUD rate 50-9600 BAUD 



$1 19.95 

$149.95 
$ 5.00 

S 4.00 
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***** ******************* ** * **** ********************* 

4MHZ, DOUBLE DENSITY,COLOR&B/W 
GRAPHICS . .THE LNW80 COMPUTER 



COMPARE THE FEATURES AND PERFORMANCE 
FEATURES LNW80 PMC-80** 



TRS-80* 
MODEL III 




When you've compared the features of an LNH80 Computer, you'll quickly 
understand why the LNW80 is the ultimate TRS80 software compatible system. 
LNW RESEARCH offers the most complete microcomputer system at an outstand- 
ing low price. 

We back up our product with an unconventional 6 month warranty and a 10 
days full refund policy, less shipping charges. 

LNW80 Computer SI ,450.00 

LNW80 Computer w/BSW Monitor a one 5" Drive $1,914.00 

All orders must be prepaid, CA residents please Include 6X sales tax. 
Contact us for shipping charges 



TRS80 
PMC 



Product of Tandy Corporation. 

Product of Personal Microcomputer, Inc. 



PROCESSOR 




4.0 MHZ 


1,8 MHZ 


2.0 MHZ 


LEVEL II BASIC INTERP. 

TRS80 MODEL 1 LEVEL II COMPATIBLE 


YES 
YES 


YES 
YES 


LEVEL III 
BASIC 

NO 


48K BYTES RAM 




YES 


YES 


YES 


CASSETTE BAUD RATE 




500/1000 


500 


500/1500 


FLOPPY DISK CONTROLLER 




SINGLE/ 
DOUBLE 


SINGLE 


SINGLE/ 
DOUBLE 


SERIAL RS232 PORT 




YES 


YES 


YES 


PRINTER PORT 




YES 


YES 


YES 


REAL TIME CLOCK 




YES 


YES 


YES 


24 X 80 CHARACTERS 




YES 


NO 


NO 


VIDEO MONITOR 




YES 


YES 


YES 


UPPER AND LOWER CASE 




YES 


OPTIONAL 


YES 


REVERSE VIDEO 




YES 


NO 


NO 


KEYBOARD 




63 KEY 


53 KEY 


53 KEY 


NUMERIC KEY PAD 




YES 


NO 


YES 


B/W GRAPHICS, 128 X 48 




YES 


YES 


YES 


HI-RESOLUTION B/W GRAPHICS, 


480 X 192 


YES 


NO 


NO 


HI-RESOLUTION COLOR GRAPHICS 
128 X 192 IN 8 COLORS 


(NTSC), 


YES 


NO 


NO 


HI-RESOLUTION COLOR GRAPHICS (RGB), 
384 X 192 IN 8 COLORS 


OPTIONAL 


NO 


NO 


WARRANTY 




6 MONTHS 


90 DAYS 


90 DAYS 


TOTAL SYSTEM PRICE 




$1 ,914.00 


$1,840.00 


$2,187.00 


LESS MONITOR AND DISK DRIVE 




$1 ,450.00 


$1,375.00 


— 



LNW80 

- BARE PRINTED CIRCUIT BOARD i MANUAL $89.95 

The LNW80 - A high-speed color computer totally compatible with 
the TRS-80*. The LNW80 gives you the edge in satisfying your 
computation needs in business, scientific and personal computa- 
tion. With performance of 4 MHz, Z80A CPU, you'll achieve per- 
formance of over twice the processing speed of a TRS-80*. This 
means you'll get the performance that 1s comparable to the most 
expensive microcomputer with the compatibility to the world's 
most popular computer (TRS-80*) resulting in the widest soft- 
ware base. 

FEATURES: 

. TRS-80 Model 1 Level II Software Compatible 

High Resolution Graphics 

. RGB Output - 384 x 192 in 8 Colors 

. NTSC Video or RF MOD - 128 x 192 1n 8 Colors 

. Black and White - 480 x 192 

4 MHz CPU 

500/1000 Baud Cassette 

Upper and Lower Case 

16K Bytes RAM, 12K Bytes ROM 

Solder Masked and Silkscreened 



LNW SYSTEM EXPANSION 

BARE PRINTED CIRCUIT BOARD 

AND MANUAL *69.95 

WITH GOLD CONNECTORS $84.95 



The System Expansion will allow you to expand your LNW80. TRS-80*, 
or PMC-80** to a complete computer system that is still totally 
software compatible with the TRS-80* Model 1 Level II. 

FEATURES: 

. 32 K Bytes Memory 

5" Floppy Controller 
. Serial RS232 20ma I/O 

Parallel Printer 
. Real Time Clock 

Screen Printer Bus 

On Board Power Supply 

Solder Masked and Silkscreened 



LNW RESEARCH 

CORPORATION 

2620 WALNUT 
TUSTIN CA. 92680 ^53 



LNDoubler&DOS PLUS 3.3D 



- Assembled and Tested W/DOSPLUS 3. 3D 5175.00 

Double- density disk storage for the LNW Research's "System Expan- 
sion" or the Tandy's "Expansion Interface". The LNDoublerTM Is 
totally software compatible with any double density software 
generated for the Percom's Doubler***. The LNDoublerTM provides 
the following outstanding features. 

. Store up to 350K bytes on a single 5" disk 
Single and double density data separation 
Precision write precompensatlon circuit 
Software switch between single and double density 

. Easy plug in installation requiring no etch cuts, jumpers 
or soldering 

. 35, 40, 77, 80 track 5" disk operation 
120 day parts and labor Warranty 

*** Doubler is a product of Percom Data Company, Inc. 

DOS PLUS 3. 3D 

Micro Systems software's double density disk operating system. 
This operating system contains all the outstanding features of 
a well developed DOS, with ease in useabillty. 

KEYBOARD 



LNW80 KEYBOARD KIT $84.95 

The Keyboard Kit contains a 63 key plus a 10 key, P.C. board, and 
remaining components. 



CASE 



LNW80 CASE $84.95 

The streamline design of this metal case will house the LNW80, 
LWN System Expansion, LNW80 Keyboard, power supply and fan, 
LNDoublerTM, or LNW Data Separator. This kit includes all the 
hardware to mount all of the above. Add S'2.00 for shipping 

PARTS AVAILABLE FROM LNW RESERARCK 
. 4116 - 200ns RAM 

6 chip set *. $26.00 

8 chip set $33.50 

16 chip set $64.00 

24 chip set $94.00 

32 chip set $124.00 

LNW80 "Start up parts set" LNW80-1 $82.00 

LNW80 "Video parts set" LNW80-2 $31.00 

LNW80 Transformer LNW80-3 $18.00 

LNW80 Keyboard cable LNW80-4 $16.00 

40 Pin computer to expansion cable $15.00 

System Expansion Transformer $19.00 

Floppy Controller (FD1771) and UART (TR1602) . . . $30.00 



ORDERS * I N FO. NO. 714- 544 - 5744 
SERVICE NO 714-641-8850 



VISA MASTER CHARGE 
ACCEPTED 



UNLESS NOTED ,.,„ 
ADO $3 FOR SHIPPING 



APPLICATION 



Stand up and be computed! 



The Secret Ballot 



David D. Busch 

515 E Highland Avenue 

Ravenna, OH 44266 



Secret Ballot allows any rea- 
sonably small group to hold 
an election using the TRS-80 
Model I computer as an impar- 
tial, incorruptible voting ma- 
chine. Users' groups, computer 
clubs, social groups— any orga- 
nization that elects officers can 
use the computer to conduct a 
secret ballot. 

Only voters who have regis- 
tered ahead of time can vote; the 
program asks for the name of 
the person voting, and then 
strikes that name off its list. It is 
possible, of course, to vote in 
the name of someone else— but 
if that person later tries to vote, 
he or she will be barred, possibly 
invalidating the election. 

Secret Ballot does not keep 
track of who voted for whom; as 
long as other members of the 
group cannot watch the screen, 
balloting is 100 percent secret. 
Write-in votes are not allowed. 

As written, Secret Ballot ac- 
commodates 100 group mem- 
bers; this can be enlarged to the 
limits of memory by making a 
single change in the DIM state- 



ment on line 20. Eligible voters 
may be input ahead of time, and 
stored in a disk file named Vot- 
ers. Up to 20 candidates for 
each of 20 different offices may 
be input and stored in two addi- 
tional disk files, Jobs, which 
stores the names of the offices, 
and Candid, which keeps track 
of the candidates. 



Input Voters' Names 

This module is contained in 
lines 220-460. If an existing 
voter file is being updated, it is 
first loaded from disk in a rou- 
tine at lines 480-540. The cur- 
rent number of voters in the file, 
NV, is input first, and then a 
For . . . Next loop of one to NV re- 
trieves the names and loads 
them into a string array, VOT- 
ERS$(n). 

Line 360 adds new names. As 
each name is input, NV is incre- 
mented by one, so the latest 
name is deposited in the array 
one element beyond the most 
recent entry. NV begins at zero if 
a new file is being created. Cau- 
tion: If you create a new Voters 
disk file, it erases any existing 
file by that name on that disk. Be 
sure you want to initialize a new 
file before beginning. The user 
inputs X instead of a name when 
finished adding voters to the 
file. 

There is no way to delete a 
voter's name from the file be- 
cause the voter list is used only 
as a check to see that someone 



is voting just once. A ballot-box 
stuffer could conceivably vote in 
the name of a departed member, 
if he or she understood the pro- 
gram. If your group has a num- 
ber of despicable members who 
would attempt to cheat, you 
could probably write an en- 
hancement to Secret Ballot to 
delete names, or rig a trap within 
the program. 

When all the voters have been 
entered, the file is saved to disk 
(lines 400-460), and control re- 
turns to the menu. 



Input Candidates Names 

Unlike the Voters disk file, the 
candidates/offices files can on- 
ly be created from scratch, not 
updated. Usually, a slate of 
candidates will be finalized just 
before an election, and changed 
for the next one. The eligible vot- 
ers will essentially remain the 
same, requiring only minor up- 
dates. 

To put forth a new slate, the 
election officer first has to enter 
a list of the names of the posi- 
tions to be filled (lines 710-780). 
The program will handle up to 20 
jobs. After the offices have been 
saved to disk (lines 800-850), the 
candidates may be entered. The 
title of the office is listed, and 
the candidates entered in a For 
. . . Next loop contained at lines 
870-980. The candidate data is 
stored in a two-dimensional ar- 
ray, CA$(row, col.). Each row 
accounts for a particular can- 



didate, while the columns of the 
array point to the specific job. 
That is, if president were the 
first office entered into JOB$(n), 
then the first three candidates 
would be assigned CA$(1,1). 
CA$(2,1),CA$(3,1), etc. The first 
vice presidential candidate 
would be CA$(1,2), and so on. 
This string array is saved to disk 
in lines 1000-1070. 



Inspect List of 
Candidates and Voters 

You may wish to check the 
lists before balloting begins. 
This option loads all the data 
files, and lists them to the 
screen in lines 1430-1690. Be- 
cause X is used to exit the data 
entry process, that character 
will always be the last in each 
candidate or voter file. The pro- 
gram looks for the X, and sets 
CFLAG to tell the program 
whether or not to print an array 
element to the screen. You 
could direct the program to exit 
the display loop when it encoun- 
tered the X, but the loop is so 
short in most cases (five or six 
offices), that little time is saved. 
Take note when you exit a For 
. . . Next loop prematurely, be- 
cause of the error that might be 
generated the next time you re- 
use that loop counter in the 
same, or similar, For... Next 
loop. 

Voting 

To conduct the actual polling, 
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Color computer owners 




Yes, that's right - for as little as 
$298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI), from Exatron, into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card? 
Well as we said it's only an extra 
$99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 
your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 
As a further plus, with the optional 

ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only $19.95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 7111), or clip the coupon. 




excellence in electronics 

exatron 




DEALER ENQUIRIES INVITED 



Exatron. ^500 

181 Commercial Street, 

Sunnyvale, CA 94086 



D Please send a 32K Color Computer 
Interface for $199.00 

□ Please send a CCI Disk Card for $99.00 

□ Please include CCDOS and manual 
for $29.95 

3 Also include a ROM Backup adaptor 
for $19.95 

Please add S5.00 for shipping to all orders, 
and 6 percent sales tax in California. 

Name 

Address 



City 

State Zip 

Charge my: 

□ MasterCard Interbank Code 

D Visa Expiration Date 



Card. 



□ Check enclosed for 

□ Ship COD ($2.00 extra) 



Signature 



•:t2K HAM plus Disk Interface 



THS-MI i* a trademark of Tandv 



the computer should be set up in 
a location where curious on- 
lookers cannot see who a mem- 
ber is voting for. The first step is 



to enter the member's name as 
it appears on the membership 
roster. This entry must match 
exactly the entry in VOTER$<n). 



Using the full legal name (with 
middle initial or name) when 
compiling Voter$(n) provides an 
extra measure of security. Any- 



one trying to vote for someone 
else must know the full name of 
the person they are trying to im- 
personate. 













1 ■ 




910 


PRINT 


* * 


920 


PRINT "ENTER CANDIDATES' NAMES" 


2 ' * SECRET BALLOT " 


930 


PRINT "ENTER ' X ' WHEN FINISHED" 


» * 


940 


INPUT CAS(C,N2) 


* DAVID D. BUSCH • 


950 


IF CA$(C,N2)-"X" GOTO 970 


3 ■ * 515 E. HIGHLAND AVE. * 


960 


GOTO 880 


• RAVENNA, OHIO 44266 * 


970 


C-0 


* * 


980 : NEXT N2 




990 ■*..**. SAVE CANDIDATE FILE TO DISK ...... 


10 CLEAR 2BBB 

20 DIM VOTER$(100) ,CAS(20,20) ,BAL(20,20) ,JOBS(20) 

3i . ...... MENU ...... 


1000 OPEN "0",1, "CANDID" 
1010 : FOR ROW=l TO 20 


1020 : FOR COL-1 TO NJ 


40 CLSs PRINT 


1030 : PRINT #1, CAS (ROW, COL) »","> 


50 PRINT * i t : i : : SECRET BALLOT ::::::" 

60 PRINT 

70 PRINT "DO YOU WANT TO !* 

80 PRINT' 1. INPUT VOTERS' NAMES' 


1040 : NEXT COL 

1050 : NEXT ROW 

1060 CLOSE 1 

1070 RETURN 

1080 ' ****** VOTE ****** 


90 PRINT* 2. INPUT CANDIDATES' NAMES" 


100 PRINT' 3. VOTE" 

110 PRINT" 4. INSPECT LIST OF CANDIDATES AND VOTERS" 


1090 GOSUB 480 
1100 GOSUB 560 
1110 '*«**** QUALIFY VOTER ****** 


120 PRINT* 5. SEE RESULTS OF ELECTION" 
130 PRINT 


140 PRINT " ENTER CHOICE ! "» 
150 AS-INKEYS:IF AS="" GOTO 150 


1120 CLS: PRINT: PRINT 

1130 INPUT "PLEASE ENTER YOUR NAME : ";VTS 


160 A-VAL(AS) 


1140 IF VT$="END" RETURN 


170 IF A<1 OR A>6 GOTO 150 


1150 VFLAG-0 


180 PRINT A 


1160 : FOR N6=l TO NV 


190 ON A GOSUB 220,710,1090,1430,1780 


1170 : IF VOTERS (N6J-VTS THEN VFLAG-1 : VOTERS (N6) -"" 


200 GOTO 40 


1160 i NEXT N6 


218 • **.**• ENTER NAMES OF VOTERS ****** 


1190 IF VFLAG-1 GOTO 1270 




1200 PRINT * SORRY, "jVTS;" BUT YOUR NAME DOES NOT" 


220 CLSi PRINT: PRINT 


1210 PRINT " APPEAR IN OUR VOTER LIST. EITHER YOU HAVE" 


230 PRINT "ARE YOU :" 


1220 PRINT " ALREADY VOTED, ARE INELIGIBLE, OR SPELLED YOUR" 


240 PRINT " 1.) CREATING A NEW VOTER FILE" 


1230 PRINT " NAME DIFFERENTLY THAN IT APPEARS IN OUR LIST " 


250 PRINT " 2.) UPDATING EXISTING VOTER FILE" 


1240 PRINT 


260 PRINT 


1250 : FOR N7-1 TO 5000:NEXT N7 : GOTO 1120 


270 INPUT " ENTER CHOICE: "jBS 


1260 ' ***** CONDUCT POLLING ****** 


280 B-VAL(B$) 




290 IF B<1 OR B>2 GOTO 220 


1270 : FOR NW-1 TO NJ 


300 ON B GOTO 320,310 


1280 : CLS: PRINT 


310 GOSUB 4 80 


1290 : PRINT JOB$(NW) 


320 CLS:PRINT:PRINT 


1300 


PRINT 


330 NV-NV+1 


1310 


FOR N8-1 TO 20 


340 PRINT "ENTER VOTER'S NAME"; 


1320 


IF CAS(N8,NW)-"X" THEN CFLAG-1 


350 PRINT " ENTER ' X ■ WHEN FINISHED " 


1330 


IP CFLAGOl PRINT N8;".) ";CAS(N8,NW) 


360 INPUT VOTERS (NV) 


1340 


NEXT N8 


370 IF VOTERS (NV)»"X" THEN NV-NV-1 : GOTO 400 


1350 


PRINT 


380 GOTO 320 


1360 


INPUT "PLEASE VOTE:" /VOTES 


390 ••*•**« SAVE VOTER FILE TO DISK *»«*** 


1370 


VOTE-VAL( VOTES) 




1380 : BAL(VOTE,NW)-BAL(VOTE,NW)+l 


400 OPEN "0",1, "VOTERS" 


1390 : CFLAG-0 


410 PRINT 11, NV 


1400 : NEXT NW 


420 : FOR N2-1 TO NV 


1410 GOTO 1120 


430 : PRINT #1 ,VOTERS(N2) ; " , "; 


1420 •**.«*• INSPECT LIST ****** 


440 : NEXT N2 




450 CLOSE 1 


1430 GOSUB 480 


460 RETURN 


1440 GOSUB 560 


470 i ...... L0AD VOTER FILE FROM DISK ...... 


1450 CLS:PRINT 




1460 : FOR N2-1 TO NJ 


480 OPEN " I ",1, "VOTERS" 


1470 : PRINT JOBS(N2) 


490 INPUT 11, NV 


1480 : PRINT 


500 


FOR N2 = l TO NV 


1490 : PRINT "CANDIDATES: " 


510 


INPUT 11, VOTERS (N2) 


1500 : PRINT 


520 


NEXT N2 


1510 


FOR N4-1 TO 20 


530 CLOSE 1 


1520 


IF CAS(N4,N2)-*X" THEN CFLAG-1 


540 RETURN 


1530 


IF CFLAGOl THEN PRINT CA$(N4,N2) 


559 i...... LOAD CANDIDATES FROM DISK ****** 


1540 


NEXT N4 




1550 


GOSUB 1710 


560 OPEN "I", 1, "JOBS" 


1560 


CFLAG-0 


570 INPUT 01, NJ 


1570 


NEXT N2 


580 


FOR N2=l TO NJ 


1580 PRINT 


590 


INPUT tl,JOBS(N2) 


1590 CLS: PRINT 


600 


NEXT N2 


1600 PRINT "VOTERS :":PRINT 


610 CLOSE 1 


1610 T-0 


620 OPEN "I", 1, "CANDID" 


1620 


FOR N5-1 TO NV 


630 : FOR ROW=l TO 20 


1630 


T-T+l 


640 : FOR COL-1 TO NJ 


1640 


IF T/10-INT(T/10) GOSUB 1710 


650 : INPUT #1 , CAS (ROW, COL) 


1650 


PRINT VOTERS (N5) 


660 : NEXT COL 


1660 


NEXT N5 


670 : NEXT ROW 


1670 PRINT 


680 CLOSE 1 


1680 GOSUB 1710 


6 90 RETURN 


16 90 RETURN 


700 ■ ...... ENTER NAMES OF OFFICES ****** 


1700 ' ****** 'PAGE' SUBROUTINE ****** 


710 CLS: PRINT: PRINT 


1710 PRINT 


720 INPUT "HOW MANY OFFICES WILL BE ELECTED" >ANS 


1720 PRINT "HIT ENTER TO SEE REST OF LIST") 


730 NJ-VAL(ANS) 


1730 INPUT AS 


740 


FOR AN=1 TO NJ 


1740 CLS:PRINT 


750 


CLS : PRINT : PRINT 


1750 RETURN 


760 


PRINT"ENTER NAME OF OFFICE »")ANj 


1760 ' ****** PRINT OUT RESULTS *««*«* 


7_7.it 


INPUT JOBS (AN) 




~f-~i 


NEXT AN 


1770 CFLAG-0 


fP0 ■ ...... SAVE NAME S OF OFFICES TO DISK ****** 


1780 


FOR NQ-1 TO NJ 




1790 


CLS: PRINT 


800 OPEN "0",l,"JOBS" 


1800 


PRINT JOBS(NQ) 


810 PRINT 11, NJ 


1810 


PRINT 


820 


FOR N2-1 TO NJ 


1820 


PRINT "CANDIDATE", "NO. VOTES" 


830 


PRINT *l,JOB$(N2) ;","; 


1830 


FOR N9-1 TO 20 


840 


NEXT N2 


1840 


IF CAS(N9,NQ)-"X" THEN CFLAG-1 


850 CLOSE 1 


1850 


IF CFLAGOl PRINT CAS (N9 ,NQ) ,BAL(N9 ,NQ) 


860 • ****** ENTER CANDIDATES' NAMES ****** 


1860 : NEXT N9 




1870 : GOSUB 1710 


870 : FOR N2«l TO NJ 


1880 : CFLAG-0 


880 : CLS:PRINT:PRINT 


1890 : NEXT NQ 


890 : C-C+l 


1900 GOSUB 1710 


900 : PRINT JOBSIN2) 


1910 RETURN 


Program 


Listing 
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When the name is entered in 
line 1130, a For... Next loop 
looks at every name in 
VOTER$(n), and, if the name is 
located, a flag, VFLAG, is set to 
one, which empowers the per- 
son to vote. The name is also re- 
moved from the array (line 1 170), 
so that person cannot vote 
twice in that session. The origi- 
nal disk file, of course, remains 
unchanged, so it can be loaded 
and reused for repeated ballot- 
ings. If no name match is found 
in VOTER$(n), a scolding mes- 
sage appears on the screen, and 
control goes back to the name 
input stage. 

Two nested loops at lines 
1270-1410 present each office 
and its candidates, and allow 
the voter to cast a ballot. Candi- 
dates' totals are stored in an ar- 
ray, BAL(row, col.), in which the 
rows and columns correspond 
with the positions of the candi- 
dates names in CA$(row, col.). 
Each element of BAL(row, col.) is 
incremented each time the ap- 
propriate candidate receives a 
vote. Nothing prevents a mem- 



ber from throwing away a vote 
by entering a number (or charac- 
ter) that does not have a corre- 
sponding candidate. 

Balloting is ended by entering 
the word End, instead of a name. 
At this point, control branches 
back to the menu, where offi- 
cials can choose to have the re- 
sults printed out to the screen. 

Print Out Results 

This short subroutine at lines 
1770-1910 uses two nested For 
. . . Next loops to print out all the 
elements of CA$(row, col.), and 
their respective vote totals in 
BAL(row, col.). 

Secret Ballot provides a sim- 
ple way to conduct a computer 
club's election. Obviously, a 
users' group is a bad place to 
depend on the security of a TRS- 
80 to protect the integrity of an 
election. You may want to add 
an appropriate POKE or two to 
disable the Break key. Or, you 
could compile this program us- 
ing Microsoft's Basic compiler 
as a way of discouraging tam- 
pering. ■ 



MODELS I ™° III 

ALL PROGRAMS USE TESTED 

MICRO - TYPIT A text editing program that uses the keyboard 
"as is" like a typewriter. All edit and prompt functions are 
"built in" so instruction or learning is minimum. Text can be 
generated three pages at a time and printed either numbered, or 
unnumbered single or double spaced. Also, right justification 
is optional. Does not require substitution of @ for commas or 
any other character revision. Slowest function is transferring 
text to and from tape. Neat error free text with large print 
titles. Excellent for specifications, agreements, instructions, 
form letters or announcements. Complete with sound for TR3-80 
Model I or III and Microteck printer easily adaptable to most 
other printers. PRICE $26. 0C 

CLIENT FILES Allows keeping several contracts for up to 20 
clients. Enter contracts including either payment amounts or 
percentages. As bills are sent out and payments received, the 
program is a record by contract of amounts outstanding and not 
billed including a summary of receivables and work in progress. 
Works well with one to 3 projects for a dozen or so clients. 

PRICE $25.00 

ENGINEERING PROGRAMS 

LIGHTING CALCULATIONS Calculates the required number of 
fixtures for a room given the dimensions and reflectances by 
the zone cavity method. Three standard fixtures are "built in" 
so that 8 room calculations are made to compare results such as 
watts, footcandles and number of fixtures. PRICE $30.00 

HVAC PROGRAM This program calculates sensible and latent 
cooling and heating load by zone each two hours of the typical 
hottest and coldest days. Equations per 197? ASHRAE Fundamental 
Guide page 25.2. Three programs are: Calculations, Geographic 
and Variable Data and Data Generator. PRICE $35.00 

All tapes furnished with full documentation and instructions. 
Documentation, Instructions and Source List alone $15. 0C 

All programs on tape require Level II and 16K . Printer is 
required for MICRO-TYPIT and optional on all others. Do not 
forget to include the Model Number (I or III) with your order. 



;nd Check or Money Order 



^52 



Coolidge & Associates 



1317 S. CONGRESS #10 AUSTIN, TEXAS 78704 



(512) 443 -5329 



EDflS 



EDAS is a sophisticated Editor 
and Assembler for the '80 Model 
I or Model III. All commands 
and SOURCE text can be enter- 
ed in upper or lower case. Direct 
assembly for memory or mul- 
tiple disk files by means of 'GET 
assembler directives provides 
the capability of assembling 
huge source files with 30,000 
bytes of symbol table. Direct 
assembly to disk or memory for 
faster debugging operations. 
DOS functions DIR, KILL, and 
LIST are available from within 
EDAS. The Editor provides 
block move & global change 
withBASICsyntaxediting. EDAS 
provides power with ease of 
use. $79 + $S&H. 



Dum 



DUTIL is a utility to examine, 
clear, initialize, move, and modify 
data in memory. Load, punch, 
verify SYSTEMtapes. Disk sector 
I/O. More! $20. 



CKIDFJI.E 



Nowyou can append two or more 
CMDfilesand/orSYSTEMtapes. 
Perform transfer to & from disk/ 
tape of SYSTEM/CMD modules 
with offset capabilities. $20. 




LDOS is the latest generation of sophisti- 
cated operating systems for tha TRS-80 
computers. LDOS is completely docu- 
mented in a 252-page reference manual. 
Total support is provided from some of 
the most knowledgeable people in the 
industry. You owe it to yourself to inves- 
tigate this system. Call or write for details. 
LDOS is priced at $149 plus $4 S&H. 



LDQS 5.0 



Dsimn 



Complement your assembly language tools with this 
Z-80 disassemble*, which produces screen, printer, 
cassette, or dhfc'|ile hklMl A <f#jfpj>ass process 
provides SYMBOLS for 16-bit address and 8-bit rel 
ative references. EQUates & ORG are generated. 
is &#| 
"l for nbhMkkW^ if 



sadd4%. 




fJOttS.CMDFlLE, DSMBLR Specify M 
$1 SEfH + $.Wper unjggram. 





H 



MISOSYS^Dept. MU2 ^221 

5904 Edgihill Drive 

Alexandria, Virginia 22303 

703-960-2998 MicroNET 70140,310 

Dealers Inquiry Invited 



DJBrHHQD 

Turn your Editor Assembler into 
a disk package. This 32K patch 
modifies EDTASM for DOS op 
eration. Features? Add full disk 
I/O, block move, global change, 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhance DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, 
KILL, & FREE. Upgrade your 
EDTASM! $20. 

THE B00K 

THE BOOKs must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM. A symbol 
table of the entire machine not- 
ing over 500 addresses is includ- 
ed. Volume II tells you eve- 
thing you wanted to know ah* 1, l . 
the Level II I/O — printer, key- 
board, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed. THE BOOKs will save 
you hours of assembler pro- 
gramming. Each volume is priced 
at $14.95 or buy both for $24.95. 
Add $1.50 SErH per book. 



.- S»» Li if ol Advtrtisars on page 354 
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REVIEW 



Exploit the 737's features with enhanced software. 



Enhanced Word Processing 



John F. Rogers 
600 Seventh St. 
Morgan City, LA 70380 

Flextext 

Apparat, Inc. 

Denver, CO 

$29.95 

Subscript 5.0 

Pro*oft 

No. Hollywood, CA $79.95 

Radio Shack introduced its 
Line Printer IV (Centronics 
737-1) as having fonts of word 
processing quality. However, 
the July, 1980 newsletter an- 
nouncement and the advertise- 
ment both carefully minimized 
the fact that the Scripsit word 
processor could not right-justify 
the proportional font, which is 
the high quality one, nor use any 
of the other special features, 
such as underlining, sub and 
superscripting, elongated char- 
acters, or forward and reverse 
linefeeds. 

Happily for TRS-80 users who 
have the Centronics 737 printer, 
there are several software pack- 
ages available that will allow 
you to take advantage of most 



or all of that printer's capabili- 
ties. Some are enhancements of 
Scripsit, such as Apparat's Flex- 
text, Terry Fiveash's Scriptmod, 
or Acorn's Superscript. Others 
are complete programs, such as 
Prosoft's Newscript and Sub- 
script 5.0 or SSM's Lazy Writer. 
Computex's PEN737 enhances 
Electric Pencil to utilize the 737 
fully. 

Flextext 

Apparat, the Denver people 
who upgraded TRSDOS so well 
with NEWDOS, show off their 
enhancement of Scripsit with a 
handsome full-page ad totally 
prepared on the Centronics 
737-1 printer. Flextext modifies 
Scripsit on disk so that printer 
function commands embedded 
in text use almost every ability 
of the printer— proportional font 
right-justification (mixed with 
elongated and compressed 
characters), underlining, super- 
scripts and subscripts— all any- 
where within a document. 

A special file called Modify/ 
SCP is entered in DOS to incor- 
porate Flextext comments in 
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Scripsit. The modification is 
stored as a separate file named 
SCP/LC or SCP/UC without any 
alteration of the original Scripsit 
file. (LC and UC stand for lower- 
case and uppercase.) SCP/xx 
has ail of Scripsit's features. 
Simply enter SCP/LC or SCP/UC 
instead of Scripsit/xx. 

The embedded-in-text printer 
commands always begin with 
the ESCape character (the less- 
than symbol-<) followed by a 
primary action code (either an S 
or an E, for Start or End) fol- 
lowed by a secondary action 
code that identifies the 737 
printer function to be activated 
(or halted). For example, <SU 
would begin the underlining 
function. 

One excellent feature actually 
overcomes a 737 shortcoming- 
stopping elongated printing at 
the end of a print line. Flextext 
continues double-width printing 
for line after line if desired. 
Special print commands acti- 
vate Flextext when it is time to 
print a document. They are 
P.FLX for continuous forms and 
P.FLX.P for single pages. 



With Apparat's Flextext, 
Radio Shack's Scripsit com- 
bined with the Centronics 737 
printer becomes an outstanding 
word processor. 

Subscript 

Subscript 5.0 combines pro- 
grams named Edit, Script. Prop, 
and Mininit into a Basic/ma- 
chine-code package that is line- 
oriented rather than character- 
oriented like Scripsit. The user 
composes in Edit mode, insert- 
ing print format commands as 
he goes along. Since this is 
done in Basic, one must hit 
Enter after each 255 characters, 
or preferably, at the end of each 
display line (64 characters). 

When the document is ready 
for printing. Script is called up to 
read the printer function com- 
mands and, combined with ma- 
chine-code Prop, format and 
print the document using all of 
the 737's abilities. 

Mininit is an upper/lowercase 
driver that supports Radio 
Shack's modification. It also 
detects Basic's string compres- 
sion mode, which can appear 



like a CPU hangup, since Basic 
is reallocating string space; a 
graphic C is displayed in the up- 
per right corner of the display. 
Mininit also has a screen-print 
routine— shift-zero transfers the 
display contents to the printer. 
Keyboard debounce is built in. 

Even though Subscript is a 
Basic-centered package, it has 
some features not found in 
Scripsit or Electric Pencil. One 
is a darkness control code, 
which causes the printing to be 
overstruck for darker type. 
When this code is operating, the 
737 prints a line, does a carriage 
return, then prints the same line 
again on top of the first printing. 

Another is a table-of-contents 
code which builds up a separate 
file of strings which will be 
printed as the table of contents 
pages, automatically adding the 
number of the page where each 
string is located. Still another is 
you to number paragraphs. 

A fourth extra feature is the 
alter code that can print charac- 
ters that are not on the key- 
board, such as square brack- 
ets or braces, a vertical line or 
backward slash, or any other 



special character that the 737 
can print. These characters are 
conveniently listed. 

However, Flextext wins over 
Prop in right-justification ability. 
Prop can right-justify single and 
double-width proportional styles 
mixed on a line, but not a mix- 
ture of proportional and com- 
pressed fonts, while Flex-text 
handles all combinations (ex- 
cluding 10 characters per inch). 



NEWSCRIPT 

Prosoft has further upgraded 
Subscript 5.0. Newscript com- 
bines prop and Mininit with new 
machine language routines into 
a single command: NS/CMD, 
which automatically invokes 
Basic and brings up the menu 
program. The menu is written in 
Basic, allowing you to easily 
change it to suit your particular 
needs. While Subscript 5.0 can 
run in 32K TRS-80's, Newscript 
requires 48K. 

Some important changes and 
additions make Newscript even 
more convenient and versatile 
than subscript. It is a full-screen 
editor rather than the usual line- 



oriented editor. The cursor can 
be placed anywhere in the text 
to make changes or additions. It 
is no longer necessary to hit 
Enter after every 255 characters, 
but only when memory is full. 
When Enter is hit, Edit pro- 
cesses everything on the screen 
and then generates a blank line 
so the user may continue typing. 

The alter function has been 
dropped in favor of direct entry 
of special characters while in 
Shift-Clear control mode; single- 
key entry of square brackets, 
braces, etc., Is much quicker. 

The Directory command 
displays a disk's directory 
(NEWDOS/80 or Model III). An in- 
dex is generated by inserting the 
proper control word near the 
words or phrases to be indexed. 
The "Line Manipulation Area" 
(LIMA) commands, displayed 
down the left side of the screen, 
let you insert, delete, duplicate, 
and mark lines for various pur- 
poses. 

The Read control word allows 
creation of form letters with dif- 
ferent names and addresses 
taken from a disk file. Newscript 
and Subscript also support 



some of the special functions of 
the Epson MX-80, IBM Selectric, 
and Diablo 1620 printers. 

The documentation for both 
packages is absolutely first rate 
—probably the best I've ever 
seen! The Newscript manual 
even has a How To section. 

Newscript (and Subscript 5.0) 
comes on disk from which the 
user should create a DOS disk 
containing all the necessary 
files. With two disk drives, 
creating a System disk with 
Newscript on it is simplicity 
itself: In DOS mode, enter IN- 
STALLS and the installation is 
completed without operator 
intervention— very thoughtful of 
Prosoft. 

Summary 

The main difference between 
Scripsit/Flextext and Newscript/ 
Subscript is in printing speed. 
Because Script is in Basic, it 
reads controls more slowly than 
Flextext does, and there are 
noticeable pauses during print- 
ing. This is not, however, a major 
shortcoming; a few seconds 
here and there really aren't in- 
convenient. ■ 



MORE GREAT SOFTWARE FOR PEANUTS FROM P80NUT HOME OF 
THE DOGUMEIMTEIR! 

CRAIG EARON* S TELEMESSAGE - Teleiessage is a lessage service prograi for as 
little as UK. Also, YOU DO NOT NEED DISK! It runs on Model I or III. When used with an auto-answer iodei, 
the prograi Mill provide the following functions: enter, suuarize, retrieve, and kill eessages; list other 
systei nuibers; list systei bulletins} chat with systei operator; protected reiote systei operation; and 
automatic sign-off. YES you can believe your eyes it said 16K and TAPE. For a deio CALL I THE DACULA FLA6SHIP 
(404) 962-0616 ALL this for only $49.95 Disk version available soon. Contact us if interested. 

FORGOTTEN GRAPHICS - Forgotten graphics is a KEY ACTIVATED lachine language screen duip 
that Morks for all printable characters on the HX-BO and OKIDATA printers. The tape also includes fully 
coeiented source code so YOU can relocate the prograi or lodify it for other printers! The operating instructions 
are included on the tape. Unlike other Nell known screen print routines, forgotten graphics will even 
print graphics. Model III owners love it and it runs on Model I. ONLY 414.95 

THE DOCUMENTER -The Docueenter is a unique prograi that will turn your Model I or III 
into a fantastic prograiiing aid. YOU can now have your TRS-80(Tandy Corporation Trademark) display or 
print a flowchart and branch lap of any BASIC Level II and Disc Basic prograi using THE DOCUMENTER. This 
powerful prograi has lany uses including: flowcharting your prograis and the prograis of others; an aid to 
learning prograiiing; aid to error detection; etc. If documentation is a problei for you, SOLVE IT. 
$ t t BUY THE DOCUMENTER % t t TAPE VERSION - $19.95 DISK VERSION - $29.95 

When ordering PLEASE SPECIFY: Program desired; Model I or III; 
MEMORY SIZE 16K 32K 48K ; and Tape or Disk version 

I t DON'T F0R6ET ADDRESS PHONE NO. AND $1.05 FOR P0STA6E AND HANDLIN6 6a. Res. add 41 sales tax t t 

P80NUT SOFTWARE PO BOX 490 LILBURN, GA- 30247 (404) 469-0056 

VISA AND MASTERCHARGE ACCEPTED -469 DEALER INQUIRIES INVITED 



.' S»« List of Advertisers on page 354 
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EDUCATION 



And on the 7th day at this Sunday school, they computed. 



The Walls of Jericho 



Chuck and Jo McNichols 
2052 Granada Drive 
Dayton, OH 45431 



The TRS-80 can capture 
student interest and help 
with teaching chores in a Sun- 
day school, since motivation is 
a major problem when kids feel 
they've already done their time 
in class during the week. This 
article presents a 16K Level II 
TRS-80 program that combines 
an attention-getting welcome 
sequence with a game that 
makes memorizing Bible facts 
and terminology enjoyable. 

The open classroom ap- 
proach to Sunday school, which 
features learning centers and 
gives students flexibility in 
choosing activities, makes it 
easy to work a computer center 
into theteaching program. Many 
Protestant churches now use 
the Christian Education: Shared 
Approaches (CESA) materials 
that support teaching with learn- 



ing centers. We've found it rela- 
tively easy to get our computer 
center started by adapting some 
CESA workbook ideas, but other 
educational materials work as 
well. 

The Computer Center 

Our fourth and fifth-grade 
learning center is just a large 
table that holds the computer 
and two mounted posters which 
identify the center and provide 
instructions for operating the 
computer. It shows the location 
of the TRS-80 space bar and 
says any further instructions 
will appear on the video display. 
We've chosen to control pro- 
grams primarily with space bar 
input because the location of 
specific keys is difficult for non- 
touch typists. 

As children arrive in the 
classroom, they are greeted by 
a welcoming message that 
displays their first names ran- 
domly on the screen. This is 
followed by the drawing of a 
happy face. The welcoming se- 
quence repeats until a shift A is 
input to begin the game. 

Playing the Walls of Jericho 

This game was designed for 
use with a unit on the battle of 



Jericho, but the questions can 
be easily altered for other 
topics. The object is to knock 
down the wall of Jericho by cor- 
rectly answering a sequence of 
multiple choice questions. 

Following an introduction 
describing the game's rules, a 
wall is drawn. Then, a term 
taken from the lesson flashes 
on and off at a randomly se- 
lected block in the wall while 
multiple choice responses are 
displayed at the bottom of the 
screen. An arrow cycles among 
the responses, pausing for a 
few seconds at each one. The 
player presses the space bar 
when the phrase believed to 
match the flashing word is in- 
dicated. A correct response 
causes the wall above the 
flashing word to crumble; an in- 
correct response leaves the 
wall intact. The player gets 20 
tries to knock down the entire 
wall. Each player's score is the 
number of chances remaining 
when the wall is gone. At the 
end of each game a "next 
player" message is displayed 
and the program is set up for 
the next contestant. The best 
score achieved so far is re- 
tained and displayed while suc- 
cessive games are in progress. 



Program Instructions 

To alter the number of names 
displayed in the welcoming 
segment, the value of NX in line 
180 should be changed. New 
nine-character string con- 
stants can then be set up repre- 
senting students' first names. 
Mixing a blank or two (like 
NM$(21)) in the list adds to the 
visual impact of the display. 
The happy-face routine (lines 
510-850) relies on a circle- 
drawing technique used for 
many years with vector-graph- 
ics computers. 

To customize the Walls of 
Jericho game, it's necessary to 
change the data statements at 
lines 1230-1400, the response 
subroutines that begin at line 
3460, and the computed 
GOSUB on line 2360. The data 
statement at line 1240 gives the 
number of terms available for 
display at random locations in 
the wall, and is the value of NQ. 
Responses for each question 
are displayed as a result of the 
computed GOSUB on line 2360. 
The index for this GOSUB is ob- 
tained from the array entry Q(l, 
1) where I is the index of the 
term currently being displayed. 
The GOSUB index values are 
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FIELD PROVEN!! 

10 MEGABYTES and MORE for the TRS-80* Model II 
plus SHARED ACCESS to HARD DISK DRIVE 

Hard/Soft Disk System (HSDS) Software allows access as single drive. You can have that 10 Megabyte continuous file - that 50,000 name maillist or inventory' 
Or a directory with 1000 entries! All completely compatible with TRSDOS 2.0 BASIC. You can mix floppy and hard disk drives. Includes special utilities including 
HPURGE, DCS Directory Catalog System, HZAP Hard Disk Superzap, and many special formatting options. Three to eight times faster than (loppy! RACET quality 

HARD DISK DRIVE & CONTROLLER $5995. Second User $595. HSDS Software $400. (Note: HSDS now also available for C0RVUS drives! 1 ) 
KFS-80 (1 -drive 32K Min Mod II 64K) Mod I and III $100, Mod II $175 

Assembly language ISAM facility! Interfaces with BASIC. Very fast access to records in large files. Access/insert times 1 -4 seconds. 

B-Trec directory structure eliminates record search. No file reorganization required. Sector buffering reduces media and drive wear while increasing performance. 

Can be used for primary and secondary file database applications. Records are kept in sorted order on disk by alpha key. Deferred write option. Comprehensive 

file maintenance and debugging utilities are included. Attention applications programmers - Save time in implementing your custom database application software. 

MAILLIST (1-drive 32K Min - Mod II 64K) Mod I and III $75, Mod II $150 

This ISAM-based maillist minimizes disk access times. Four keys — no separate sorting. Supports 9-digit zip code and 3-digit state code. Up to 30 attributes. 

Mask and query selection. Record access/update time 1-4 seconds!! 

DISCAT (32K 1 -drive Min) Mod I and III $50 

This comprehensive Diskette Cataloguing/Indexing utility allows the user to keep track of thousands of programs in a categorized library. Machine language program 

works with all TRSDOS and NEWDOS versions. Files include program names and extensions, program length, diskette numbers, front and back, and diskette 

free space. RS232 drivers and other features 

LPSPOOL (32K 1-drive Min) Mod I $75 

LPSPOOL — Add multi-tasking to permit concurrent printing while running your application program. The spooler and despooler obtain print jobs from queues 

maintained by the system as print files are generated. LPSPOOL supports both parallel and serial printers. 

BASIC LINK FACILITY 'BUNK' (Mod I Min 32K 1-disk) Mod I $25; Mod II $50; Mod III $30 

Link from one BASIC program to another saving all variables! The new program can be smaller or larger than the original program in memory. The chained program 

may either replace the original program, or can be merged by statement number. The statement number where the chained program execution is to begin may 

be specified 1 

INFINITE BASIC (Mod I & Mod III Tape or Disk) Mod I $50; Mod III $60 

Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET machine language sorts! Sort 1000 elements in 9 seconds" 

Select only functions you want to optimize memory usage. 

INFINITE BUSINESS (Requires Infinite BASIC) Mod I & III $30 

Complete printer pagination controls — auto headers, footers, page numbers. Packed decimal arithmetic — 127 digit accuracy +, -,*,/. Binary search of 

sorted and unsorted arrays. Hash codes. 

COMPROC (Mod I & Mod III — Disk only) Mod I $20; Mod III $30 

Command Processor. Auto your disk to perform any sequence of instructions that you can give from the keyboard. DIR, FREE, pause, wait for user input, BASIC, 

No. of FILES and MEM SIZE, RUN program, respond to input statements, BREAK, return to DOS, etc. Includes lowercase driver software, debounce and screenpnnt! 

GSF (Mod I & III Tape or Disk - Specify Memory Size) Mod I $25; Mod II $50; Mod III $30 

Generalized Subroutine Facilities. The STANDARD against which all other sorts are compared! And then compare prices! Machine language — fast and powerful! 

Multi-key multi-variable and multi-key character string. Zero and move arrays. Mod II includes USR PEEKS and POKES. Includes sample programs. 

DSM (Mod I Min 32K 2-drive system. Mod II 64K 1-drive. Mod III Min 32K 1-drive) Mod I $75; Mod II $150; Mod III $90 

Disk Sort/Merge for RANDOM files. All machine language stand-alone package for sorting speed. Establish sort specification in simple BASIC command File. 

Execute from DOS. Only operator action to sort is to change diskettes when requested! Handles multiple diskette files! Super fast sort times — improved disk I/O 

times make this the fastest Disk Sort/Merge available on the TRS. 

UTILITY PACKAGE (Mod II 64K) $150 

Important enhancements to the Mod II. The file recovery capabilities alone will pay for the package in even one application! Fully documented in 124 page manual! 

XHIT, XGAT, XCOPY and SUPERZAP are used to reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, 'wild-card' mask select, 

absolute sector mode and other features. SUPERZAP allows examine/change any sector on diskette including track-0, and absolute disk backup/copy with I/O 

recovery DCS builds consolidated directories from multiple diskettes into a single display or listing sorted by disk name or file name plus more. Change Disk 

ID with DISKID. XCREATE preallocates files and sets 'LOF' to end to speed disk accesses DEBUG!! adds single step, trace, subroutine calling, program looping, 

dynamic disassembly and more! ! 

BASIC CROSS REFERENCE UTILITY (Mod II 64K) $50 

SEEK and FIND functions for Variables, Line Numbers, Strings, Keywords. All' options available for line numbers and variables. Load from BASIC — Call with 

'CTRL'R. Output to screen or printer! 

DEVELOPMENT PACKAGE (Mod II 64K) $125 

Includes RACET machine language SUPERZAP, Apparat Disassembler, and Model II interface to the Microsoft 'Editor Assembler Plus' software package including 

uploading services and patches for Disk I/O. Purchase price includes complete copy of Editor Assembler + and documentation for Mod I. Assemble directly 

into memory, MACRO facility, save all or portions of source to disk, dynamic debug facility (ZBUG), extended editor commands. 

DEALER inquiries invited. System Houses - check for special pricing on hard drives and software. 



CIRCLE READER REQUEST FOR FREE 24-PAGE CATALOG 
•TRS-80 IS A TRADEMARK OF TANDY CORPORATION 



CHECK. VISA. M/C COD. PURCHASE ORDER 
TELEPHONE ORDERS ACCEPTED (714) 997-4950 
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loaded by the same data state- 
ments that load the terms (lines 
1280-1400) 

The W(„) matrix controls the 
overall graphic display. The 
screen is divided into a 12 by 



6-block matrix, each repre- 
sented by a string variable and 
drawn by one of the sub- 
routines beginning at line 3180. 
Drawing or removing the wall is 
controlled by calling these 



Welcoming Segment 


NX 


Number of names (or welcoming message. 


NM$(30) 


Array holding names as nine-character strings. 


LN(10) 


Screen locations (or display of names. 


W 


Controls length of time-delay subroutine. 


FL 


If FL= 1, circle drawing subroutine draws full circle. Other- 




wise, a semicircle Is drawn. 


N 


Number o( increments defining the circle. 


R 


Radius of the circle. 


S 


Starting angle for circle. 


E 


Ending angle for circle. 


Walls of Jericho Game 


W(12. 6, 2) 


Describes the 12 row by 6 column grid that defines the wall. 


0(20,3) 


Question control array. The three values provided for each 




question represent the index of the computed GOSUB that 




displays the responses, the number of the correct response 




(one if A is correct, two for B. three for C), and the number of 




responses (up to three). 0(1,0) is set to zero when a term has 




been correctly identified. 


Q$(20) 


Nine-character terms that represent the questions. 


NB 


Holds best score across multiple players. 


P.R.S 


Define screen locations for displaying responses. 


SS<6) 


Displayed sequentially to disintegrate the wall. 


BF$, BR$. etc 


Nine-character graphics strings which represent the various 




wall components. 




Table 1. Major Variables and Arrays 



subroutines using computed 
GOSUBs at lines 2090 and 2640. 
The main loop for play of the 
game begins at line 2160 and 
ends at line 2900. A wall loca- 
tion in the lower nine rows of 
the 12 by 6 block grid that has 
not been disintegrated yet is 
randomly chosen for display of 
the term (lines 2190-2220). 
Seventy percent of the time one 
of the bottom four rows is 
chosen with the current code. 
Then a term is randomly se- 
lected from those not yet cor- 
rectly matched with a re- 
sponse. When all terms have 
been correctly identified, the 
entire set is again made avail- 
able. Thus, there can be less 
than 20 terms in a game with 20 
chances for the player. 

The possible responses are 
then displayed in a routine that 
also flashes the term and 
moves the response arrow (be- 
ginning at line 2320). Routines 
for reacting to an incorrect or 
correct response begin at lines 
2540 and 2660 respectively. 



Every time part of the wall is 
removed, the W(„) matrix is 
checked to see if anything is 
left (lines 2830-2890). If not, we 
have a winner, and an ap- 
propriate message at line 3120 
precedes the recycle of the 
game for the next player. If the 
wall survives 20 tries by the 
player to match terms, the code 
at line 2910 is used to restart 
the game. 

Our Experience 
With the TRS-80 

The biggest problem we've 
encountered is needing an- 
other machine for the class, 
which numbers over 20 stu- 
dents. Today's fourth and fifth 
graders seem very comfortable 
working and playing in a com- 
puter environment. We plan to 
continue our experimentation 
with this learning medium, and 
would enjoy sharing experi- 
ences with other Sunday 
school teachers who have 
found similar use for their 
microcomputers. ■ 
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POCKET COMPUTER NEWSLETTER 

P.O. BOX 232, Seymour, CT 06483 ^ 12/ 



FOR POCKET COMPUTER ~USERS! 

News and Product Reviews 

Programming Tips 

Operating Timtiaviri 

Tutorials 
Customizing Your Unif 

Short Cuts 

Practical Programs 
Technical Details 
Inside Information 
Application Forums «*j 



D YES! Sign me up as a charter subscriber for issues 1 - 10. 
Enclosed is my $20.00 for U.S. delivery. (U.S. $24.00 to 
Canada. U.S. $30.00 elsewhere.) 

D Not sure. Enclosed is $2.00 for a sample issue in U.S., $3.00 
for a sample issue elsewhere. 

NAME. 



ADDR_ 


CITY 


_ STATF 7IP 


MC/VISA # 


BANK 


Signature 


_ i nato 



Program Listing 



1KB CLEAR 1BBB 

110 DIM W(12,6,2),Q(20,3),QS(20),NMS(30),LN(10 

120 ' 

130 'WELCOME MESSAGE AND HAPPY PACE 

148 ' 

ise cls 

160 PRINT CHRS123); 

170 'NX IS NUMBER OF NAME ENTRIES, UP TO 30 

180 NX-24 

*:NM$(2)-"LAURIE 
":NM$(5)-"LISA 
*:NMS(8) -"KATIE 
*:NHS(11) -'LAURA 
":NM$(14)-"JENNIFER *:NMS(15> 
":NM$(17)-"ANNA ":NM$(18) 



190 NMS(1)-"ANN 
200 NM$( 4) -"ROBERT 
210 NMS(7)-"POLK 
220 NM$(10) -"ELLEN 
230 NMS{ 13) -"ASHLEY 
240 NMS(16)-"BILLY 
250 NM$<19) -"KATIE 
260 NMS(22) -"SCOTT 



"iNMS<3)-*DAVID 

":NMS (6) -"BARBARA 

":NM$(9)-"ANNE 

":NM$<12)-"LEXY 

'JOHN 

EVAN 



iNHS(20) -"STEVEN *:NM$(21)' 
:NMS(23) -"JASON *:NM$(24) -"MICHAEL " 

270 -SETUP SCREEN POSITIONS POR RANDOM NAME DISPLAY 
280 LN(l)-200:LN(2)-236:Lll(3)-340:LN(4)-360:LN(5)-450 
III ^'?':* 8 ^ UJ < 7 >" 5 9»'" , <8>-«20:LN(9)-704:LN(10)-746 
300 PRINTM, "WELCOME TO THE WESTMINSTER"; 964, "LEARNING CENTER.., 

; 

310 'INCREASE W IN NEXT LINE TO WAIT LONGER AFTER MESSAGE 

320 W-400:GOSUB 860 

330 "K LIMIT TELLS HOW MANY TIMES TO REPEAT EACH NAME 

340 FOR K-l TO 3 

350 FOR 1-1 TO NX 

360 'LC IS RANDOMLY SELECTED SCREEN POSITION 

370 LC-RND{10) 

380 PRINT*LN(LC),NMS(I)| 

390 'INCREASE W IN NEXT LINE TO HOLD NAME LONGER 

400 W-50:GOSUB 860 

410 'CHECK FOR EXIT REQUEST 

420 GOSUB 670 

430 NEXT I 

440 NEXT K 

450 FOR J-l TO 10 

460 PRINTeLN(J) ," •, 

471 NEXT J 

480 PRINT8960," WE'RE GLAD YOU'RE HERE | | » ■ 

490 W-1000:GOSUB 860 

500 GOSUB 670 

510 'DRAW HAPPY FACE 

520 PRINT CHR$(28); 

530 FL-1:N-225:R-35:E-2«ATN(1) :S-E/N:E-E+E/N 
540 GOSUB 700 
558 GOSUB 670 

560 FL-0:N-181:R-28:S-7"E/N:E-E+2*E/N 

570 GOSUB 700 

580 GOSUB 670 

590 'SETUP N0SE,NS, AND EYES.ES 

600 E$=CHRS(141)+CHRS(140)+CHR$(14O)+CHR$<140)+CHR$(142) 

628 PRIOT«47»,ES;:PWNIM85 f E5;:PRIllTMB6,K5; 
630 W-2000:GOSUB 860 



Program continued 
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WE WILL NOT BE UNDERSOLD 



DISK DRIVES 



i 



FOR TRS 80* Model I 

CCM00 5'V, 40 Track (102K) $299 

ADDON DRIVES FOR ZENITH Z-89 
CCM89 5'4".40Track(102K) S394 

Z-87 Dual 5%" system S995 



External card edge and power supply included. 90 day warranty/one 
year on power supply. 



RAW DRIVES 

5V,"TEACorTANDON 



SCALL POWER SUPPLIES SCALL 



DISKETTES - Box of 10 



5V«" 
8 



Maxell 
Maxell 



$40 
$45 



BASF/ Verbatim 
BASF/ Verbatim 



PLASTIC FILE BOX-Holds 50 5' h " diskettes 
PLASTIC LIBRARY CASE 5'V $3.00 

HEAD CLEANING DISKETTE 
FLOPPY SAVER $11.95 

16K RAM KITS 

200ns for TRS-80'Apple II. (specify): 

SYSTEM SPECIAL 

Apple II Plus 48K w/drive and controller. Epson MX-80 printer and 
interface SUP R Mod RF Modulator: List $2965 You Pay $2299 

COMPUTERS/TERMINALS 



$26.95 
$36.00 
$19.00 

8 $ 4.00 

$25.00 

RINGS $ 6.95 

2 for $37 $19 

Jumpers $2.50 



ARCHIVES 


64K. 2-Dnves. 77 Track 




$CALL 


ALTOS 


ACS8000 Series 




SCALL 


ZENITH 


48K, all m one computer 




S2200 


ZENITH 


Z-19 




$ 725 


TELEVIDEO 


910 $559 920C $ 729 


950 


$1039 


IBM 


3101 Display Terminal 




S1189 


ATARI 


400 $ 429 


800 


$ 795 


MATTEL 


INTELLIVISION 




S 259 


APPLE PERIPHERALS 




$CALL 


S-100 CALIFORNIA COMPUTER SYSTEMS 




MAINFRAME 


Model 2200A 


Z80 CPU 


Model 2810 


MOTHER BOARD 


Model 2501 


16K STATIC RAM. 200ns 


Model 2116C 


32K STATIC RAM, 200ns 


Model 2032C 


64K DYNAMIC RAM 


Model 2065C 


FLOPPY DISC CONTROLLER 


Model 2422A 


EXTENDER BOARD 


Model 2520 K 


2P + 2SI/0 


Model 2718A 



$349 
$259 
$106 
$309 
$619 
$580 
$345 
$ 52 
$309 



PRINTERS 




NEC SPINWRITER 

Letter Quality High Speed Printer 

R.O. 

R.O. with tractor feed 

KSR with tractor feed 



NEC SPINWRITER 3500 Series, 5 new models 
EPSON MX-70 MX-80 MX-80FT MX100 

PAPER TIGER 

Graphics & 2K buffer 

Graphics & 2k buffer 

Graphics 

DP-8000 $849 DP-9500'01 



IDS 445 
IDS 460 
IDS 560 

ANADEX 

OKI DATA 
Microline 80 
Microline 80 
Microline 82 
Microline 83 

CENTRONICS 

C. ITOH 
Starwriter I 
Starwriter I 
Starwriter II 
Starwriter II 



Friction & pin feed 

Friction, and pin & tractor feed 

Friction & pin feed feed 

120 cps, uses up to 15" paper 

739, new model with graphics 

25 cps, parallel interface 
25 cps, serial interface 
45 cps. parallel interface 
45 cps, serial interface 



$2395 
$2555 

$2795 



SCALL 
SCALL 

$ 695 
$ 799 
$ 999 
$1295 

$ 415 

$ 500 

$ 615 

$ 849 

$ 749 



PRINTER SPECIAL 

SEIKOSHA GP-80M 

MONITORS 

BELL& 

HOWELL 

LEEDEX 



List $399 



$1449 
$1529 
$1829 
$1949 



You Pay $319 



SANYO 
ZENITH 



9"B&W BHD911 
12"B&W $129 
13" Color 

9" B & W 
12" B& W 
13 " Color 



$329 
$149 
$219 
$349 



$195 
12" Green Screen $159 

12" Green Screen $238 
13" Color $406 

12" Green Screen $129 



TELECOMMUNICATIONS 

LIVERMORE STAR MODEM 2-year guarantee 

UNIVERSAL DATA SYSTEMS UDS-103 

D CAT HARD WIRED DIRECT MODEM 

AUTO-CAT Auto Answer, Direct Connect Modem 

APPLE-CAT II 

D.C. HAYES MICRO MODEM 

D.C. HAYES SMART-MODEM 

CCI Telnet Communications Package 



$125 
$179 
$189 
$249 
$349 
$295 
$235 
$135 



APPLE ACCESSORIES AND SOFTWARE 

DB MASTER $159.00 
$259.00 



VISICALC $155.00 

Z 80 SOFTCARD 

VIDEX BOARD 

KEYBOARD ENHANCER 

16K CARD 

APPLE JOYSTICK 

SUP-RMOD 

CCS CARDS 

GALAXIAN 

SPACE ALBUM 

ASTEROIDS 

FLIGHT SIMULATOR 

WIZARD & PRINCESS '_ 

SARGON2 

MYSTERY HOUSE $ 24.00 




$259.00 
$110.00 
S 169.00 
$ 49.00 
$ 25.00 
SCALL 
$ 22 95 



HI RES FOOTBALL 



35.00 
17.95 
29.00 
2S.00 
29,00 
35.00 



For fast delivery, send certified checks, money orders or ca 
to three weeks to clear. All prices are mail order only and 



I to arrange direct bank wire transfers. Personal 
are subject to change without notice Call for 



or company checks require two 
shipping charges. 



dealer (national/international) inquiries invited Send for FREE Catalogue 



The CPU SHOP 
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TO ORDER CALL TOLL FREE 1800 343-6522 

TWX: 710-348-1796 Massachusetts Residents call, 617/242-3361 



5 Dexter Row, Dept MC09M 
Charlestown, Massachusetts 02129 
Hours 10AM-6PM (EST) Mon -Fri. (Sat. ti 



Technical Information call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 
Tandy Corporation Trademark/' Digital Research 



master charge 




■ See List ot Advertiser* on page 354 
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RELIABLE, SIMPLE MEMORY 
EXPANSION YOU CAN AFFORD! 




Shown above is the IM-2 48K INTERNAL MEMORY"and a phillips screw- 
driver — everything you need to ADD up to 32K RAM to your TRS-80* Model I 
keyboard unit (for a total of 48K RAM). No soldering or trace cutting — just open 
the case, remove your RAM chips, plug the INTERNAL MEMORY (IM)into the 
RAM sockets, plug your chip:, back in, connect 4 soiderless clips (they work!)and 
close the case (Detailed, illustrated step-by-step instructions show you how to do 
this). You now have a 48K keyboard unit — and you didn't have to buy an 
expansion interface! If you don't need 48K, a 32K version is available. 

Time and experience have shown that the TRS-80* expansion buss cannot 
reliably drive memory systems. Because the IM does not use the buss, it may be 
used with ANY expansion device for reliable memory operation. Some of our 
customers use an IM INSTEAD OF the RAM in their expansion interface to 
eliminate El memory problems! 

Because the IM draws most of its power from the 12 volt supply, power supply 
loading is not a problem. Some additional heat is generated, but the TRS-80* runs 
so hot anyway you probably won't notice the increase! 

The INTERNAL MEMORY is completely tested and assembled using only 
the finest materials. You have 15 days to return it for a refund if you don't like it, 
and it is guaranteed for I full year. Installation is available for a small fee. 

Send a S.A.S.E. for more information. 

PRICK — IM,B [32K > * 59 - 50 < les$ "AM) *85.50 (W/I6K RAM) 
, M _ 2 (48K) «69.50 (less RAM) H40.00 (w/32K RAM) 

Prices include UPS shipping in U.S. 
Utah residents add 5% tax; FOREIGN ORDERS add 15%. 



(>ruJUrief>J<ifirts 



'401 



- ?iG£rne& 
6246 West 3705 South Salt Lake City. UT 84120 (801) 967-2324 



3E 



as 



ar 



DISCOUNT 



Stock Computer Paper & Labels 
Over 50 Items in Stock 



ITEMS IN STOCK 


Custom To Your Needs 


Stock Forms Blank or Green Bar 


Invoices 


Statements 


Shippers 


Index Cards 


Custom Checks 


Pressure sensitive labels all sizes 


Custom Continuous Envelopes 


Continuous #10 envelopes 


& Letter Heads 


Continuous Blank Letter Heads 


Statements 


Spacing charts & layout sheets 




Forms rulers 


Quantities Of 1000 Or More 



► 



Send Inquiries To 

WHITE RIVER PRODUCTS ^450 

P.O. BOX 604 

MT. CLEMENS, MICHIGAN 48043 



Name. 

Street. 
State_ 



Phone. 



Z«P. 



Type of Equipment. 



FREE 
SEND FOR 



^ Q Computer O 81 Tax Guide 
YOURS TOOAY W Package rj Stock Price Us , 



2E 



sr 



as 



as 



as 



Program continues 



640 GOSUB 670 

650 GOTO 150 

660 "SUBROUTINE TO CHECK FOR SHIPT-A WHICH STARTS GAME 

670 IF INKEY$=CHR$(97) THEN 900 

680 RETURN 

CIRCLE OR FRACTION OF A CIRCLE 



778 

7B0 
79B 
K00 
810 
822 
830 



690 'SUBROUTINE TO DRAW 

700 'ENTRY VALUES N,S,F,R 

710 PN-8*ATN(1)/N 

720 SP-SIN(S) :CP«COS(S) 

730 SD=SIN(PN) :CD-COS(PN) 

740 K=(E-S)/PN 

750 FOR 1=1 TO K 

760 S£T(64+R*CP,24+.4*R*SP) 

SET(6 4-R*CP,24+.4*R*SP) 

IF FLOl THEN 810 

SET(64+R*CP,24-.4*R*SP) 

SET(64-R*CP,24-.4*R*SP) 

S=SP*CD+CP*SD 

CP=-SP*SD+CP*CD 

SP=S 
840 NEXT I 
850 RETURN 
860 'WAIT ROUTINE 
870 FOR WI-1 TO W: NEXT: RETURN 
880 END 
890 ' 

900 'WALLS OF JERICHO GAME 
910 ' 

920 'BEST SCORE SO FAR 
930 NB-0 

940 P«845:R-64:S-128 
950 'LOAD QUESTIONS, RESPONSES 
960 RESTORE 
970 CLS 

980 PRINTCHRSI23) 

990 PRINTg4,STRINGS(24,CHRS(140)) ; 
1000 PRINT870, "WALLS OF JERICHO GAME'; 
1010 PRINTei32,STRING$(24,CHR$(131)) 
1020 PRINT 

1030 PRINT'PRESS THE SPACE BAR WHEN" 
1040 PRINT 

1050 PRINT"===> POINTS TO THE ANSWER" 
1060 PRINT 

1070 PRINT'THAT GOES WITH THE FLASHING" 
1880 PRINT 

1090 PRINT'WORD. YOU HAVE 20 TRIES TO" 
1100 PRINT 

1110 PRINT'MAKE THE WALLS COME" 
1120 PRINT" TUMBLING" 

1130 PRINT* DOWN" 

1140 READ NQ 'NUMBER OF QUESTIONS 
1150 POR I«l TO NQ 
1160 READ QS(I) 
Q(I,0)=1 
FOR J=l TO 3 
READ Q(I,J) 
NEXT J 
1210 NEXT I 

1220 NC-20 'NUMBER OF CHANCES TO KNOCK DOWN WALL 
1230 "NUMBER OF QUESTIONS 
1240 DATA 13 

1250 'EACH DATA STATEMENT GIVES 9 CHARACTER QUESTION 
1260 'FOLLOWED BY QUESTION INDEX, CORRECT ANSWER, 
1270 'NUMBER OF ANSWERS 
1280 DATA " THE ARK ",1,1,3 
JOSHUA ",2,2,3 
JERICHO ",3,2,3 
NOMAD ",4,2,3 
PROPHET ",4,3,3 
EGYPT ",5,1,3 
SEVEN ",6,3,3 
JORDAN ",7,1,3 
MOSES ",8,3,3 
1370 DATA "MEMORIAL ",9,2,3 
1380 DATA " SYMBOL ",9,1,3 
1390 DATA "TRUMPETS ",10,2,3 
1400 DATA " RED SEA ",11,3,3 
1410 'STRINGS FOR PICTURE ELEMENTS 
1420 'BLOCK IN WALL 

1430 BFS-STRING$<8,CHRS<143))+CHR$<133) 
1440 BRS-STRING$(9,CHR$(143)) 
1450 HS-" 

1460 'SEQUENCE TO MAKE WALL CRUMBLE 

1470 S$(1)=CHR$(153)+CHR$(155)+CHR$(174)+CHR$(161)+CHR$(138)+CHR 
$(159>+CHR$(175)+CHR$(182)+CHR$(158) 

1480 SS(2)-CHRS(146)+CHRS(173)+CHRS(132)+CHRS(134)+CHRS(153)+CHR 
S(145)+CHRS(147)+CHR$(150)+CHR$<146) 

1490 S$<3)-CHR$<152)+CHRS<ie0)+CHR$<188) t CHRS<164)+CHR$(14fl)+CHR 

S(168) + CHRS(172)+CHRS(180)+CHRS(156) 

1500 SS(4).CHRS(136)+CHR$(160)+CHRS(164)+CHRS(136)+CHRS(148)+CHR 

$<132)+CHR$(160)+CHR$(176)-»CHR$<160) 

1510 SS(5)«CHRS(144) + CHRS(176)+CHRS(136) + CHRS(160)+CHRS(144)+CHR 
$(176) + CHR$(144)-fCHR$(160)+CHR$(160) 
1520 SS(6)-' 
1530 'TOWER 

1540 T1S-CHRS(191)+CHRS(176)+CHRS(191)+CHR$(176)+CHRS(191)+CHR$( 

176)+CHR$(191)+CHR$(176)+CHR$(191) 

1550 T2$=STRING$(9,CHR$(191)) 

1560 T3$-CHRS(128)+STRING$(7,CHR$(191))+CHR$(128) 

1570 'GATE 

1580 G$-CHRS(131) + CHRS(131)+CHRS(191) + CHRS(131) + CHRS(131)+CHRS(1 

31)+CHR$(191)+CHR$(131) v "* ,a 

1590 GL$-G$+CHR$(131) 

1600 GR$-G$+CHR$(129) 

1610 "NAME OVER GATE 

1620 N1S=* JERICHO-" 

1630 N2$-"KEEP OUT " 

1640 'SETUP PICTURE MATRIX 

W(12,6,3) DEFINES THE WALL, 6 BLOCKS WIDE AND 12 HIGH 
THE FIRST ELEMENT IS 1 IF A BLOCK IS AT THE LOC'N 
THE SECOND ELEMENT IS THE SCREEN POSITION 
THE THIRD ELEMENT IS THE COMPUTED GOTO INDEX WHICH 
CHOOSES THE BLOCK TO DRAW 

Program continued 



1170 

1180 
1190 
1200 



1290 DATA 
1300 DATA 
1310 DATA 
1320 DATA 
1330 DATA 
1340 DATA 
1350 DATA 
1360 DATA 



1650 
1660 
1670 
1680 
1690 



296 • 80 Microcomputing, September 1981 



Program continues 



1768 for i-l to » 

1711 FOR J-l TO 6 

1726 W(I,J,6)-1 

1736 W(I,J,l)-768-(I-l)*64*(J-l>*9 

1741 W(I,J,2)-1 

1759 NEXT J 

1769 W[I,6,2)-6 
177* NEXT I 

net FOR 1-19 TO 12 

1799 W(I,1,9W«W(I,6,6)-1 

18M 11(1,1, 1)-131-(I-19)*64»W(I,6,1)-178-(I-16)*64 

1811 W(I,l,2)-3*(I-19)iWU.6,2)-3»<I-16) 

1828 NEXT I 

1838 FOR 1-18 TO 12 

1848 FOR J-2 TO 5 

1858 W(I,J,8)«B 

1868 SEXT J 

1878 SEXT I 

1888 'GATE 

1898 FOR I-l TO 4 

1988 W(I,3,2)-2 

1918 W(I,4,2)-7 

1928 NEXT I 

1938 'NAME OVER GATE 

1948 H(5,3,2)-8 

1958 W(5.4 r 2)-9 

1968 H(5,3,8)>3 

1978 W(5,4,9)-3 

1988 "WAIT TO PLAY 

1998 PRINT 8968, 'PRESS SPACE BAR TO PLAY....*» 

2998 IF INKEYSo- * THEN 2888 

2818 "SETUP PICTURE 

2828 CLS 

2838 FOR J-9 TO 127 

2848 SET(J,36) 

2859 NEXT J 

2868 FOR I-l TO 12 

2878 FOR J-l TO 6 

2888 IF M(I,J,8)-S THEM 2188 

2896 ON K(I,J,2) GOSUB 3226,3256,3288,3318,3339,3358,3389,3426 

,3446 

2186 NEXT J 

2119 NEXT I 

2126 FOR I-l TO 4B6:NEXT 

2136 'MAIN LOOP 

2146 'QU IS NUMBER OF QUESTION ANSWERED OK IN ONE PASS 

2158 QU-B 

2166 FOR QX-1 TO NC 

2178 PRINT022,NC-QX+1) 'CHANCES LEFT '; 

2188 PRINT686, 'SCORE TO BEAT-';NB; 

219B I-RND(4) 

2266 IF RND(6)<.3 THEN I-I*5 

2218 J=RND(6) 

2220 IF W(I,J,9)<>1 THEN 2196 

2238 'PICK A QUESTION 

2248 M=RND(NQ-NU) 

2250 FOR K-l TO HQ 

2260 IF Q(K,0)>1 THEN 2298 

2278 M-H-l 

2280 IF H-0 THEN 2380 

2290 NEXT K 

230B L-W(I,J,1) 

2318 PRlNT8L,Q$(K)s 

2328 'DUMMY INKEY READ TO CLEAR 

2336 DS-INKEYS 

2346 GOSUB 2990 

2358 'PRINT POSSIBLE ANSWERS 

2360 OH Q(K,1) GOSOB 3466,3569,3548,3586,3626,3668,3768,3748,37 

86,3826,3866 

237B 'GET SELECTED ANSWER 

2368 FOR AX-1 TO 0(K,3) 

2398 PL»P-4+(AX-l)*64 

2466 PRIHT9PL,*— >"> 

2416 'FLASH THE QUESTION WHILE LOOKING FOR ANSWER 

2426 FOR KK-1 TO 8 

2438 FOR LL-1 TO 6 

2446 IF KK-INT(KK/2)«2 THEN PRINT6L,HS; ELSE PRIHT«.,Q$(R) J 

2456 IF INKEYS-* ' THEN 2528 

2466 NEXT LL 

2476 NEXT KK 

2488 PRINT9PL,* *« 

2496 NEXT AX 

2S68 GOTO 2386 

2S16 'SEE IP ANSWER IS RIGHT 

2528 PRINT8PL, ••••>•, 

2539 IF AX-Q(K,2) THEM 2668 

2546 'WRONG ANSWER 

2556 FOR KK-1 TO 5 

2566 FOR LL-1 TO 46 

2576 PfUWT#L,* KOPEJ *» 

2586 NEXT LL 

2596 FOR LL-1 TO 48 

2699 P*INTfL,QS(K)| 

2616 NEXT LL 

2626 NEXT KK 

2636 PRIHT8PL,* *| 

2646 ON W(1,J,2) GOSUB 3226,3256,3286,3316.3338,3356,3388 

2656 GOTO 2998 

2666 ' RIGHT ANSWER 

2676 PRINTRL,* RIGHT! '; 

2686 FOR AX-1 TO 666 t NEXT 

2699 PRINT«L,Q$(R)| 

2796 FOR AX-1 TO 466 : NEXT 

2716 'NARK ANSWER RIGHT 

2726 Q(K,6)-Q(K,6)*1 

2736 NU-NU+1 

2748 IF NU<NQ THEN 2866 

2756 FOR H»l TO NQ 

2766 Q(H,6)-1 

2778 NEXT M 

2789 NU-6 

2798 'REMOVE COLUMN DOWN TO BLOCK 

2860 GOSUB 3866 



2818 PRINTBPI..* "i 

2826 N(I,J,6)-6 

2839 'SEE IF ANYTHING IS LEFT 

2846 FOR II-l TO 12 

2856 FOR JJ-l TO 6 

2866 IF W(II,JJ,6)-1 THEN 2966 

2879 NEXT JJ 

2886 NEXT II 

2896 GOTO 3126 

2966 NEXT QX 

2919 'END OF THE GAME — JERICHO WINS 

2928 GOSUB 2996 

2939 PRINT6P*R-3,'THE WALL SURVIVED — BETTER LUCK NEXT TIMEI'j 

2949 FOR I-l TO 1866:NEXT 

2959 CLS 

2966 PRINT6468,CHRS{23);*NEXT PLAYER'; 

2979 FOR 1-1 TO 1866: SEXT 

2986 GOTO 969 

2999 FOR N-P TO P*S STEP R:PRIMT8N,CHRS{242) ; :NEXT:RETURN 

3999 'SHAKEDOWN PICTURE 

3919 FOR 11-12 TO I STEP -1 

3929 IF W(II,J,9)-9 GOTO 3699 

3639 LL-W(II,J,1) 

3949 W(Il,J,9)-t 

3959 FOR K-l TO 6 

3666 PRINT6LL,S$(K); 

3676 FOR AX-1 TO 26:MEXT 

3686 NEXT K 

3696 NEXT II 

3166 GOSUB2996 

3119 RETURN 

3129 PRIWT6797,CHRS(23);*YOU WIN-WELCOME TO JERICHOI'j 

3136 PRIMT922,CHR$(232); 

3148 PRINT686,CHR$(232); 

3158 'CHECK BEST SCORE SO FAR 

3169 IF NC-QX>NB THEN NB-NC-QX 

3176 GOTO 2949 

3186 'DELETE A BLOCK 

3199 W(I,J.6)«B 

3296 PRINT9W(I,J,1>,U$; 

3216 RETURN 

3226 'DRAW BLOCK IN WALL 

3239 PRINT*W(I,J,1),BF$; 

3249 RETURN 

3259 'DRAW GATE 

3266 PRINT9W(I,J,1) ,GLS; 

3276 RETURN 

3286 'DRAW TURRET 

3299 PRINT8W(I,J,1) ,T3$; 

3366 RETURN 

3316 PRINT9W(I,J,1) ,T2S; 

3326 RETURN 

3338 PRINT9W(I,J,1) ,T1$; 

3348 RETURN 

3358 'RIGHT HAND BLOCK 

3368 PRINT9W(I,J,1),BR$; 

3379 RETURN 

3388 'RIGHT SIDE OF GATE 

3399 PRINT6W(I,J,1),GR$; 

3480 RETURN 

3416 'NAME — FREE LOCATION 

3428 PRINT0W(I,J,1),N1$; 

3436 RETURN 

3449 PRINT9W(I,J,1),N2$; 

3458 RETURN 

3466 PRINTS?, "A. A BOX CONTAINING THE LAWS OF GOD"; 

3476 PRINT6P*R,*B. A STORAGE CONTAINER"? 

3489 PRINT8P*S,*C. A MUSICAL INSTRUMENT"; 

3499 RETURN 

3599 PRINTBP.'A. AN EGYPTIAN PHARAOH' j 

3519 PRINT»P+R,*B. LEADER OF THE ISRAELITES'; 

3S29 PRINT#P*S,'C. DEFENDER OF JERICHO'; 

3539 RETURN 

3549 PRINTfP,'A. A CITY IN EGYPT'; 

3559 PRINT9P+R,*B. A WALLED FORTRESS CITY'; 

3569 PRINT6P+S,'C. LEADER OP THE ISRAELITES'; 

3579 RETURN 

3588 PRINTBP.'A. RULER OF THE ISRAELITES'; 

3599 PRINT9P*R,'B. A PERSON MHO MOVES FROM PLACE TO PLACE' ; 

3699 PR!MT9P»S,*C. A PERSON WHO SPEAKS OR WRITES FOR GOD*; 

3616 RETURN 

3626 PRIHT6P,'A. WHERE GOD HELPED THE PEOPLE ESCAPE FROM SLAVERY 

*f 

3636 PRINTfP*R,"B. A WALLED FORTRESS CITY*; 

3646 PRINT#P*S,*C. THE WILDERNESS EAST OF THE JORDAN'; 

3656 RETURN 

3666 PRIWTfP.'A. THE NUMBER OP TRIBES'; 

3676 PRINT8P*R,'B. THE NUMBER OF YEARS WANDERING IN THE WILDERNE 

SS m t 

3686 PRINT8P*S,*C. THE NUMBER OF TIMES TO MARCH AROUND THE CITY* 

> 

3696 RETURN 

3796 PRINT#P,*A. THE RIVER CROSSED TO GET TO JERICHO* ; 

3719 PRIWT#P**,*B. A WALLED PORTRESS CITY*; 

3728 PRINT»P-»S,*C. THE LEADER OF THE ISRAELITES*; 

3739 RETURN 

3746 PAINTfP.'A. LEO THE ISRAELITES TO JERICHO* ; 

3756 PRIWT9P*R,*B. THE PHARAOH WHO RULED EGYPT"; 

3766 PRIWT#P*S.*C. LED THE ISRAELITES OUT OF EGYPT"; 

3778 RETURN 

3786 PRINT»P,*A. OBJECT REMINDING US OP A FEELING OR EVT"*f"| 

3799 PRIWTIP»R,*». KEEPS A MEMORY OF A PERSON OR EVENT ALIVE' j 

3816 PRINT8P+S,'C. A MUSICAL INSTRUMENT'; 

3918 RETURN 

3826 PRINT#P,*A. USED TO ANNOUNCE THE ARRIVAL OF THE ISRAELITES* 

I 

3838 PRIWT#P+R,"B. USED TO KNOCK DOWN THE WALLS OP JERICHO'; 

3848 PRINT»P*S,*C. USED TO ANNOUNCE THE CAPTURE OF JERICHO* ; 

3856 RETURN 

3866 PRINT9P,*A. A SEA BESIDE JERICHO*; 

3878 PRINT9P*R,'B. DRIED UP FOR JOSHUA SO THE PEOPLE COULD CROSS 

*j 

3888 PRINT#P*S,'C. PARTED FOR MOSES SO THE ISRAELITES COULD ESCA 

PE', 

3896 RETURN 
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CONSTRUCTION 



So you followed the article's instructions like a puppy but. 



Lowercase Done Right 



John Burgan 

734 Flamingo Way 

North Palm Beach, FL 33408 



Several recent computer 
magazine articles have ex- 
plained how to install a lower- 
case modification for under 
$20. All these modifications dif- 
fer from Radio Shack's, require 
switches, and have missing 
lowercase descenders. One 
even lost the graphics char- 
acters. 

Using a little logic, I deduced 
that the Radio Shack modifica- 
tion, which has lowercase 
descenders and graphics, must 
contain something more than 
the changes in these mods. A 
careful look at the parts list in 
the TRS-80 Technical Manual 
revealed only one chip with a 
name that sounds like it has 
anything to do with lowercase: 
the Z-29, an MCM6670 char- 
acter generator chip. 

What I Did 

With this piece of informa- 
tion, I went to Radio Shack and 
»!aced an order for this chip, 
and after several weeks picked 
up my new chip with a piece of 
paper attached stating that its 
National Parts stock number 
was AXX3027 and its cost was 

$12.95. 1 also picked up an 18-pin 



socket for this chip for 49 cents, 
and a 2102L 1 K static RAM chip, 
as required in the Electric Pencil 
documentation, for $2.69. 

First I installed the Electric 
Pencil lowercase mod, minus 
the switches (I wired the up- 
per/lower switch in the lower 
position, and omitted the con- 
trol key completely). Then I 
carefully unsoldered and re- 
moved the Z-29 chip, installed 
the 18-pin socket and inserted 
my AXX3027 chip. (I later found 
out that the newer keyboards 
already have a socket installed 
for Z-29, as well as one for the 
2102L (Z-45), thus eliminating 
the nerve-racking job of un- 
soldering an 18-pin chip.) 

I quickly reassembled the 
keyboard, booted up NEWDOS- 
80, and executed the LCDVR/ 
CMD lowercase driver program. 
My TRS-80 had lowercase 
descenders and the graphics 
worked just like before. This is 
the same mod that Radio Shack 
sells for $59, but I installed it for 
only $16.13. Some savings! 

How It Is Done 

This not a job for someone 
lacking soldering experience. If 
you make a mistake, you have 
voided your warranty and Radio 
Shack will charge you to fix it (if 
they can). If you don't know 
how to work a soldering iron to 
perfection, take this job to 
someone who can! 

Go to Radio Shack and get 
the following: a 2102L static 
RAM chip (RS #276-2501), an 
18-pin socket (RS # 276-1992), 

and order a AXX3027 character- 



generator chip for the Model I 
computer from National Parts. 
You may order directly from Na- 
tional Parts by phone at (817) 
870-5600. 

When the parts arrive, 
carefully open your keyboard 
and find the Z-29 chip. Carefully 
unsolder and replace the Z-29 
chip with the 18-inch socket. 
Place the AXX3027 chip in the 
socket. 

Take the 2102L and bend 
pins 11 and 12 up parallel with 
the surface of the chip. (Be 
careful with this chip, as it's 
static susceptible.) Solder a 
piece of light-weight wire (wire- 
wrap wire preferred) to pins 11 
and 12. 

Locate the Z-45 chip (one 
down, and two to the left of the 
Z-29 chip). If it's in a socket, 
remove it; piggyback the 2102L 
to it, and reinsert it with the pig- 
gybacked chip back into its 
socket. If it's not in a socket, 
carefully piggyback the 2102L 
to it where it sits, being 
especially careful not to get 
any solder bridges between 
pins. 

Run the wire from the 2102L 
pin 11 to the Z-44 pin 13, and 
solder it to the trace from the 



Z-44 pin 13 that goes through 
the board. 

Locate the Z-29 and Z-30 
chips. Cut the trace that goes 
under the Z-29 chip between 
pins 11 and 12, but cut it out in 
the open where you can jumper 
again if necessary. 

Solder the wire from the 
2102L pin 12 to the Z-27 pin 13. 

Reassemble the keyboard 
and turn it on. You should now 
have standard uppercase 
characters, and if a lowercase 
driver is available and loaded, 
you should have upper and 
lowercase with descenders. 

A lowercase driver comes 
with NEWDOS-80, as well as 
several other DOSes, or one is 
available from Radio Shack. 
Until you can get one, Program 
Listing 1 can be used in a Level 
II 16K machine. This program 
takes only 30 bytes of high 
memory and produces lower- 
case when the shift key is 
pressed. ■ 

Since this article was written, 
Radio Shack has raised the 
price of their chip to $34.95. The 
same chip is available from E.B. 
Garcia and Assoc, Chicago, IL, 
for $19.95. 
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10 REM - FOR 16K MACHINES, SET MEMORY SIZE TO 32737 

20 POKE 16553, 255: FOR I = 32738 TO 32767 :READJ:POKEI,J:NEXT 

30 POKE 16414,226:POKE 16415.127 

40 DATA 221,110.3,221,102,4,218,154,4,221,126,5,183,40,1 

50 DATA 119,121.254,32.218,6,5,254,128,210,166,4,195,125,4 



Program Listing. 



The Captain 80 Book of 



BASIC 





• Over a dozen famous 
adventures, listed in large easy to read type 
ready to be keyed in. Adventures by Boner, 
Kepner, Powers, Micklus, Forsythe, Greg 
Hassett and others. 

• Includes Temple of the Sun, Dog Star, 
Lost Ship, Spider Mountain, Lost Dutch- 
man's Gold, Thunder Road, Sorcerer's 
Castle, Deadly Dungeon, Atlantean 
Oddysey and others. These adventures 
would tost over $200 is purchased 
individually! 

• Includes a unique Adventure 
Generator program - not available 
anywhere. YES, this program will 
actually write another BASIC 
adventure program, which you 
may then run. Not even the author 
of the generator program knows the out- 
come! This program alone is worth the price of 
the entire hook! 

• Includes chapters on what an adventure is, how to 
play adventures, how to write adventures, how to sell 
your adventure, ten adventure program ideas, and 
more! 

• Study the techniques and methods used by the 
masters of adventure program writing. All adventure 
programs listed in this book are in their original form 
and in full length. Although specifically written for 
the TRS-80 Model I and III, these programs are 
adaptable to other computers using Microsoft's 
BASIC 

• Available at your dealer approximately 
November 15th, 1981. The suggested retail price 
of this book is $19.95. 

• The BASIC Adventure Book was compiled 
and edited by Bob Liddil, of The Programmers 
Guild. It measures 8'j by 11 inches and will 
contain approximately 250 pages. 

• To reserve your copy of this unique book, | 
order NOW for only $14.95 and save. This . 
special pre-publication offer is good only with | 
paid orders until Nov 1st, 1981. 

• ORDER YOURS TODAY! 




r 
i 
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i 



i 



Pre-Publication 
SPECIAL $14.95 



Send To: 80-U.S. Journal ^ 33 
3838 South Warner Street 
Tacoma, Washington 98409 

Please reserve Copy (Copies) of the Basic Adventure 

Book at the pre-publication priceof only $14 95 Payment must 

be enclosed with this order Offer good in the United States 

only. 

Name 



Deulei discounts available please inquire 

IKS W is .1 tipqwlvrrd Itad.'ma.l. ol th» Tandy ( orp 



I 
I 
I 

I 



Address 
City 



.State. 



-Zip 



Visa MC 



Exp Date. 



.Signature 



(206) 475-2219 Phone orders accepted for Visa MC onlv 

OKIil H « SM 



• S»« U*t oi Ad**r1la0n on pug* 3S4 
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GAME 



It's done with strings, not mirrors. 



The Magic Trick 



David D. Busch 
515 E. Highland Ave. 
Ravenna, OH 44266 



Magic Trick is a quick party 
program that can be used 
to mystify your non-computer 
owning friends. I even managed 
for a few minutes to puzzle a few 
of my more astute programmer 
buddies at a recent meeting of 
my user's group. They watched 
the trick unfold, tried to think of 
a fast way of achieving the ef- 
fect presented using assembly 
language, and then suddenly 
realized what was going on. 

The trick works like this: The 
person demonstrating the com- 
puter rattles off some patter 
about how the TRS-80 has mar- 
velous capabilities which in- 
clude the power to communi- 
cate through phone lines, via an 
RS-232 or through the air, using 
brainwaves. 

Someone is certain to ques- 
tion a computer's ESP ability. 
Quickly, the magician loads this 
program from cassette or disk. If 
saved on disk, a mysterious 
name such as DEMO/ESP may 
be used. Questions are tossed 
out from the onlookers, and the 
operator proceeds to type in- 
nocuous messages into the key- 
board, such as "Hello there, 
computer," or "Are you ready for 
another question?" 

As if by magic, the computer 
responds with a correct 
answer. . .then another. . .and 
another. 

You may get four or five ques- 
tions answered before someone 
catches on. As with all magic 
tricks, the fewer times it is 



presented, the better the effect. 
And, as with most good magic, 
the secret is in misdirection. 
Though the operator appears to 
be typing in innocent questions, 
he or she is actually entering the 
answers at that time. Because 
everyone will be raptly reading 
the CRT screen, no one will 
notice that the keys that are be- 
ing hit do not match those which 
are appearing on the screen. 
The Secret 

Here's how the trick is set up: 
seven (or more— add your own) 
messages are stored in data 
lines within the program itself. 
As the trick is run, and INKEYS 
strobing loop repeatedly looks 
at the keys for input. If a key is 
hit, in most cases (the excep- 
tions will be discussed later) the 
character is added to a string 
variable, AN$. 

In addition, as each character 
is entered, one letter is printed 
to the screen. It is not the same 
character as the one entered. In- 
stead, one more letter of the pre- 
selected message is revealed. 
To the unsuspicious, it looks as 
if the CRT is echoing the charac- 
ters typed by the person doing 
the demonstration. 

A dummy message is read 
from data in line 130. The IN- 
KEYS loop repeats in line 140 un- 
til a key is hit. Then, A$ is 
checked in line 150 to see if the 
key struck was Enter(CHR$(13)). 
If so, entry is complete, and the 
routine goes to lines 210-220. 
Otherwise, the program checks 
to see if the character entered 
was a period. 

If not, then Flag = 0, and A$ is 
added to AN$. A counter, CU, is 
incremented by one and used to 



command the next character of 
the pre-selected message, B$, 
to be printed to the screen (line 
190). 

Control returns to line 140 for 
additional input. The operator 
should be a touch typist, but at 
least do not obviously stare at 
the keyboard. It helps the misdi- 
rection to look the audience in 
the eyes, or to guide their gazes 
to the CRT. 

The operator can enter any 
message or answer that he or 
she wishes, as long as it is 
shorter than the dummy mes- 
sage string being printed to the 
screen. When the end of the in- 
put message is reached, the ma- 
gician should enter a period. 
When this is done, then Flag is 
set to one, and all other input is 
not added to AN$. After entering 
the period, the operator should 
just strike random keys to allow 
the rest of the dummy message 



to print out. A punctuation mark 
of some sort should be included 
in each message in the data 
lines so that the demonstrator 
will have a quick means of know- 
ing when to stop typing. 

The trick should not continue 
more than three or four mes- 
sages, or else the onlookers will 
start to get suspicious. They 
may tell you what messages to 
type into the computer, and, of 
course, you have no control over 
what appears on the screen. 
However, to keep the over-en- 
thusiastic from blowing their 
cover with an Out-of-Data mes- 
sage, this program loops 
through all seven messages, 
then repeats through a Restore 
and GOTO 120 in lines 300-310. 

A good quickie to liven up par- 
ties, Magic Trick provides an 
easy way to mystify the unwary 
with the wondrous powers of the 
TRS-80. ■ 



100 CLEAR 1000 

110CLS 

120 FOR N = 1 TO 7 

130 READ B$ 

140 A$ = INKEY$:IF A$ + ""GOTO 140 

150 IF A$ = CHR$(13) GOTO 210 

160IFA$ = "."FLAG = 1 

170 IF FLAG< >1 THEN AN$ = AN$ + A$ 

180CU = CU + 1 

190 PRINT MID$<B$,CU,1); 
200 GOTO 140 
210 PRINT 
220 PRINT AN$ 

230 INPUT "PRESS ENTER FOR ANOTHER QUESTION";D$ 
240AN$ = "" 
250CU = 
260 FLAG = 
270 NEXT N 
280 RESTORE 
290 GOTO 120 

300 DATA "HELLO THERE, COMPUTER.'V'ARE YOU READY FOR ANOTHER 
QUESTION?","WE HAVE ANOTHER ONE FOR YOU.'V'NOW TRY THIS 
ONE."," PRETTY GOOD FOR A DUMB MACHINE.'7'PLEASE TRY ONE 
MORE.","YOU'VE GOT US FOOLED PRETTY GOOD." 



Program Listing 
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Poor 

Man's 

Floppy 



HIGH SPEED CASSETTE SYSTEM 



Now the widely acclaimed 
JPC Cassette System is available 
for your TRS-80* computer. 
The price is only $90.00 

TC-8 Cassette System 
JPC Products 
Albuquerque, NM 
Kit: $90 
Assembled: $120 

by Carl A. Kollar 

1 guess I don't have to tell any TRS-80 owners 
how frustrating the cassette system that 
comes with the computer can be. Even with the 
factory mod that's available, the annoyance of 
loading and checking programs becomes just 
barely tolerable. 

If you're like me, after you've just plunked 
down a chunk of money for a Level II 16K ma- 
chine, "you ain't got nuttin left" for even one 
disk drive at 500 bucks apiece. So you suffer. 

A reasonable alternative is the Exatron 
Stringy Floppy (ESF). This will cost you about 
250 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still too steep, have I got a 
device for you! 

The Device 

The February 1980 issue of Microcomputing 
had an ad that intrigued the hell out of me. It 
was a high-speed cassette system by JPC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sorts of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bytes on a 10-minute cassette," "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

All this for a measly (90] bucks? How could 
this be? A call to Albuquerque answered a few 
questions: Yes, it had its own power supply, 
and, it stored programs five times faster be- 
cause it utilized higher density data. The com- 
puter outputs the information at a higher rate 
out of the rear keyboard connector. 

The ad had even claimed anyone could build 
it even if you have never soldered before. JPC 
would make it work, if you couldn't — for free. 
I was sold. I placed my order, and it arrived 
about two months later (parts shortage). 

I work in electronics, so I found the unit ex- 
ceptionally easy to build. It took about an 
hour. The manual is superb. (That's better than 
great.) It was clear, concise and exact with no 
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ambiguities. Important parts placements are 
stressed (polarity markings on electrolytics, 
bands on diodes, etc.). 

JPC was right! With these instructions, you 
couldn't go wrong. The board quality is excel- 
lent. It is double-sided and parts locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plated-through 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjustments or 
settings to bother with. 

The documentation is a sheaf of 8 '/a x 1 1 pa- 
pers stapled together. It is written in the nicest 
format I've seen in a while. Each command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
English — not computerese. 

Commands and Features 
SAVE"fiiename": Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the next BASIC program from 
the cassette. 

LOAD" filename": Searches for and loads the 
specified file from cassette. 
LOAD? and LOAD?"filename": Reads file 
from cassette, and compares contents to mem- 
ory. 

LOADN: Prints a list of all the programs on a 
cassette, until interrupted by the "break" key. 
LOADN "filename": Same as above except the 
tape will stop at the end of the program named. 
KILL: Removes the file manager program 
from memory so that the extra memory can be 
used by large programs. 
RSET: Allows the operator to rewind and posi- 
tion the tape on tape recorders that have these 
functions tied to the motor control jack. 
RUN'Tilename": TC-8 searches for a specified 
program and runs it immediately. 
PUT"filename": Same as SAVE "filename", 
except it is for use with system tapes. 
GET: Same as LOAD, except it is for use with 
system tapes. 

GET'Tilename": Same as LOAD "filename", 
except it is for use with system tapes. 
GET? and GET?"filename": Same as LOAD? 
and LOAD? "filename", except it is for use 
with system tapes. 
GETN and GETN"filename": Same as 



LOADN and LOADN"filename", except it is 
for use with system tapes. 
OPEN: Required before cassette input or out- 
put of a data file can be attempted. 
CLOSE: Required to end a cassette data file. 
PRINT#: Allows numerical or string data to be 
output to a cassette file. 

INPUT#: Allows numerical or string data to be 
input from a cassette file. 

1 haven't counted them, so 1 don't know 
about the "one load in a million bytes" claim, 
but my son, Anthony (age 1 1 ), loaded about 30 
of his programs from his Radio Shack format 
tape to a new TC-8 format tape. He's run them 
all and found no bad loads. 

Unlike the standard tape system, you can po- 
sition your tape anywhere before the program 
you want and not have to look for a blank spot 
between programs. The TC-8 patiently waits 
for the program you want and then starts load- 
ing without getting confused by the portion of 
the previous program you just fed it. 

Try that on your regular cassette system; 
you'll wear out the reset button.! 

ORDF.R NOW 

To order your TC-8 kit, send your check or 
money order for $90.00 plus $3.50 postage 
and handling to JPC PRODUCTS CO., 12021 
Paisano Ct., Albuquerque, NM 87112 (New 
Mexico residents add 4<7o sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We will otherwise 
immediately ship you the TC-8 kit, the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software. 



CJfjPC Pf 



^190 



PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 



*> See List Ot Advertisers on ptge 354 
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GRAPHICS 




Francis S. Kalinowski 









76 N. Alder Drive 


BANG*BANG*BANG*BANG 


*BANG*BANG*BANG*BANG*BANG*BANG*BANG*BANG*BANG \ 


Orlando, FL 32807 


*BANG* 


DUCK HUNT 
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TITLE GRAPHICS BY KAL 


_____/ 


If you have programs tha 
1 start abruptly with small, in 



Fig. 1 



significant titles, you might like 
to add graphic title display 



routines to them, so that your 
Level II Basic programs will 
identify themselves conspicu- 
ously. 

All the graphic title programs 
in this article begin with a state- 
ment 0. This statement clears 
the display screen and 
necessary string space, and 
jumps to a graphic title display 
routine. Display routines start 
at statement 65500 or higher, 
where they won't alter existing 
program statements. 

A display routine will have 
seven to fifteen statements, 
depending on the complexity of 
its graphics. Each routine 
displays its uniquely formatted 
graphic title, holds it steady for 
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PARACHUTE JUMP CONTEST 
PARACHUTE JUMP CONTEST 
PARACHUTE JUMP CONTEST 
PARACHUTE JUMP CONTEST 
PARACHUTE JUMP CONTEST 
PARACHUTE JUMP CONTEST 
PARACHUTE JUMP CONTEST 
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Fig. 2 
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SHOOTING 
SHOOTING 
SHOOTING 
SHOOTING 
SHOOTING 
SHOOTING 
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SHOOTING 
SHOOTING 
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SHOOTING 
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TITLE GRAPHICS BY KAL 



Fig. 3 



convenient reading, and 
returns display control to state- 
ment 0. 

Statement adds more title- 
hold timing if needed, restores 
string space to 50, and drops 
display control to your existing 
program's first statement. 

Statement 1 G0T01 is in- 
cluded in each graphic title 
program for debugging con- 
venience. It holds a title dis- 
played on the screen until the 
Break key is pressed. State- 
ment 1 must be deleted after 
your program title has been 
fitted and adjusted within a 
display routine and you are 
satisfied with the routine's 
operation. 

Parallelogram Titles 

Right and left-slant parallelo- 
gram formats can be varied to 
accommodate short, medium 



or long program titles. Program 
Listing 1 displays a 13-line title 
stack within a right-slant paral- 
lelogram window. A repeated 
five-character word or group of 
characters makes up the back- 
ground frame. B$ in statement 
65508 defines the five- 
character string that prints the 
background. Statement 65516 
specifies the title stacking for- 
mat and the program title. 

Program Listing 1a prints the 
title stack Duck Hunt downward 
on a left slant (Fig. 1). Listing 1a 
can handle titles up to 14 char- 
acters above eight in your title- 
subtract one from 97 and from 
854 in statement 65518; add one 
to 97 and to 854 for every two 
characters below eight. State- 
ment 65520 may be deleted or 
used to display a program credit 
line at the bottom of the screen. 

Program Listing 1b prints its 



i 



CLS: CLEAR75: GOSUB65508: F0RU=1T01999 : NEXT: CLEAR50 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65508 B$="BANG*": '(VARIATION 1, SEE FIG. 1) 
65510 FORU=0TO65STEP5: PRINT@U,BS: NEXT 

65512 FORU=110TO845STEP65: PRINT@U ,B$+B$+B$+B$+B$; : NEXT 
65514 FORU=890TO955STEP5: PRINT@U,B$;: NEXT: 

FORI=1TO200: NEXT 
65516 FORU-97T0854STEP63: PRINT@U , "DUCK HUNT"; 
65518 F0RI=1T09: NEXTI,U 
65520 PRINT@981, "TITLE GRAPHICS BY KAL";: RETURN 
65522 '(STATEMENT CHANGES FOR VARIATION 2, SEE FI6& 2) 
'65508 B$="%%%%%": >r . 

'65516 FORU=855T087STEP-64: PRINT@U, "SHOOTING 
GALLERY"; 
65524 '(STATEMENT CHANGES FOR VARIATION 3, SEE FIG. 3) 
'65508 B$="DOWN"+CHR$(92) : 

'65516 FORU=79T0859STEP65: PRINT@U , "PARACHUTE 
JUMP CONTEST"; 
65526 '(STATEMENT CHANGES FOR VARIATION 4, SEE PHOTO 1) 
'65508 B$=STRING$(5,132) : '(USE ANY ASCII CODE) 
'65516 FORU=84T0852STEP64: PRINT@U , "GRAPHIC 
CHARACTER TITLE"; 

Program Listing 1a 



CLS :CLEAR75:GOSUB65508:FORU=1TO1 999: NEXT :CLEAR50: 

1 GOTOl 
65508 B$="%%%%%": 

65510 FORU=0TO65STEP5: PRINT@U,B$: NEXT 

65512 FORU = 110TO845STEP65: PRINTeu,B$+B$+B$+B$+B$; r NEX 1 ! 

65514 FORU=890TO955STEP5: PRINT@U,B$;: NEXT: 

FORI-1TO200: NEXT '\ . 

65516 FORU=855T087STEP-64: PRINT@U , "SHOOTING GALLER/" ; 
65518 F0RI=1T09: NEXTI: NEXTU 
65520 PRINTe981, "TITLE GRAPHICS BY KAL";: RETURN 
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CLS:CLEAR7 5:GOSUB6 5 508:FORU=1TO1999:NEXT:CLEAR50: 

1 GOTOl 

65508 B$="DOWN"+CHR$(92) 

65510 FORU=0TO65STEP5: PRINT@U,B$: NEXT 

65512 FORU=110TO845STEP65: PRINT@U ,B$+B$+B$+B$+B$; : NEXT 

65514 FORU=890TO955STEP5: PRINT@U,B$;: NEXT: 

FORI=1TO200: NEXT 
65516 FORU=79T0859STEP65: PRINT@U , "PARACHUTE JUMP CONTEST"; 
65518 F0RI=1T09: NEXTI: NEXTU 
65520 PRINT@981, "TITLE GRAPHICS BY KAL";: RETURN 

Program Listing 1c 

CLS: CLEAR75: GOSUB65508: F0RU=1T01999 : NEXT: CLEAR50 

1 GOTOl 

65508 B$=STRING$(5,132) : '(USE ANY ASCII CODE) 

65510 FORU=0TO65STEP5: PRINT@U,B$: NEXT 

65512 FORU=110TO845STEP65: PRINTgU ,B$+B$+B$+B$+B$; : NEXT 

65514 FORU=890TO955STEP5: PRINT@U,B$;: NEXT: 

FORI=1TO200: NEXT 

65516 FORU = 84T0852STEP64: PRINTgU , "GRAPHIC CHARACTER TITLE" ; 

65518 F0RI=1T09: NEXTI: NEXT 

65520 PRINT§981, "TITLE GRAPHICS BY KAL";: RETURN 



Program Listing 1d 



Program Listing 1. Right Slant Parallelograms 



title stack straight upward 
within a percent sign back- 
ground frame (Fig. 2). This 
variation can handle titles up to 
26 character positions long. 
For every two characters above 
16 in your program title, sub- 
tract one from 855 and 87 in 
statement 65516. Add one to 
855 and 87 for every two char- 
acters below 16. 

Program Listing 1c prints its 
title stack downward on a right 
slant (Fig. 3). This variation can 
handle titles up to 38 character 
positions long. For every two 



characters above 22 in your 
title, subtract one from 79 and 
859 in statement 65516. Add 
one to 79 and 859 for every two 
characters below 22. 

Program Listing 1d prints its 
title stack straight downward 
within a graphic character 
background frame. You may 
use any graphic character 
ASCII code (129 through 191) in- 
stead of the 132 code in state- 
ment 65508. Using B$ = 
STRING$(5,191), for example, 
provides a sol'd white back- 
ground fra^.e. Listing 1d can 
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handle titles up to 26 character 
positions long. Numbers 84 and 
852 in statement 65516 define 
the title stack start and end 
points. Decrease or increase 
those numbers by one for every 
two characters above or below 
22, respectively, in your pro- 
gram title. 

Program Listing 2 displays a 
13-line title stack within a left- 
slant parallelogram window. As 
in Listing 1, B$ in statement 
65508 defines the five-char- 
acter background printing 
string. Also, statement 65516 
specifies the title and its stack- 
ing format. 

Program Listing 2a prints its 
title stack downward on a left 
slant within a slash symbol 
background frame (Fig. 4). 



Listing 2a can handle titles up 
to 41 character positions long. 
Numbers 92 and 848 in state- 
ment 65516 define the title 
stack start and end points. 
Decrease or increase both 
numbers by one for every two 
characters above or below 17, 
respectively, in your title. 

Program Listing 2b prints its 
title stack straight upward 
within an up-arrow background 
frame (Fig. 5). This variation 
can handle titles up to 29 
character positions long. 
Numbers 855 and 87 in state- 
ment 65516 define the title 
stack start and end points. 
Decrease or increase both 
numbers by one for every two 
characters above or below 17, 
respectively, in your title. 



Program Listing 2c prints its 
title stack downward on a right 
slant within a graphic char- 
acter background frame. You 
may use any graphic character 
ASCII code (129 through 191) in- 
stead of 179 in statement 
65508. This variation can 
handle titles up to 17 character 
positions long. Add one to 
statement 65516 numbers 81 
and 861 for every two char- 
acters below 17 in your pro- 
gram title. 

Moving Title 

Program Listing 3 displays a 
moving title stack within a 
changing-pattern background 
frame. Four graphic character 
strings in statements 65510 
through 65516 provide the 



changing maze-like patterns. A 
13-line title stack moves left to 
right across the background 
frame's window as the frame 
pattern continually changes. 

This program can handle 
moving titles of up to 20 
character length. Subtract one 
from T = 854 and from R = 74 in 
statement 65508 for every two 
characters above 16 in your 
program title. Add one to 854 
and 74 for every two characters 
below 16. Replace "The Moving 
Maze" in statement 65524 with 
your program title. 

Diamond Titles 

The Program Listing 4 dis- 
plays one title line within a 
diamond-shaped background 
frame. Statement 65510 



1 1 1 1 1 1 • i in ii 
1 1 1 1 1 1 ii 1 1 in ■ 



■ 1 1 1 1 1 1 ii i ii n i 
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GBfHK EWBCTff TITLE 

ffivtac character TITLE 

BBffHK CWft*TE> TITLE 
GBVKK CHARACTER TITLE 

:;rfv:r character title 

5HPHK CHARACTER TITLE 
GHM£ CHfBCTER TITLE 
93FHK CttRfiCTER TITLE 
GRAPHIC CHARACTER T 1TLE 
GRAPHIC CHARACTER TITLE 
GRAPHIC CHARACTER TITLE 

I II III I II I I II I III I II I Mil 

TITLE XAPKICS I '-t 



Photo 1. Program Listing 1d Variation 4 




Photo 3. Program 3 Moving Title 
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Photo 4. Program Listing 4 Random Graphics 



Hay den Performance Software— 
Something For Everyone! 



SARGON II (Spraklens) The first 
great computer chess program! 
Choose from 7 levels of play, levels 
0-3 in tournament time. Randomized 
opening book for all 7 levels of play 
through 3 moves. Special hint mode 
suggests possible next moves. 
#03418, TRS-80 Models I and 
III, tape, $16.95; #03408, 
TRS-80 Level II Disk, $34. 95 

DISK CATALOGER (LeBar) 
Automatically maintains a cross- 
reference listing of all your programs, 
their location by disk number, their 
function and use.* #05203, TRS-80 
Level II tape, $16.95; #05208, 
TRS-80 Level II Disk, $21.95 

COMPLEX MATHEMATICS 

(Gilder) Contains 8 programs that 
give the user the ability to perform 
computations of complex numbers in 
BASIC rather than in FORTRAN. 
Documentation included. #01203, 
TRS-80 Level II tape, $14.95 



ORDER NOW! 

Hayden Book Co., Inc. 

50 Essex St. Rochelle Park, NJ 07662 

Send me the software checked. On all pre- 
paid orders, Visa and Master Card charges, 
publisher pays postage and handling. Resi- 
dents of NJ and CA must add sales tax . Offer 
good in USA only. Payment must accom- 
pany orders from PO Box Numbers. Allow 4 
to 6 weeks for delivery. Name of individual 
ordering must be filled in. 

D 01103 □ 03408 □ 05208 

□ 01203 □ 03418 □ 05303 

□ 01303 □ 05103 □ 05308 

□ 01403 □ 05108 □ 05403 

□ 02403 □ 05203 a 07403 

Name 

Address 

City /State /Zip 

EOM 9/81-071 



New! MIND THRUST (Sackson 
and Wazaney) The first of its kind - an 
exciting game that lets you match wits 
with the computer. Complete an 
unbroken chain across the board 
before your opponent, the computer. 
Switch sides at any time and control 
your opponent's chain while he 
controls yours. #07403, TRS-80 
Level II, $16.95 

ENGINEERING 
MATHEMATICS- 1 (Gilder) 
Contains eight programs useful to the 
engineer: 1. Solving Simultaneous 
Equations. 2. Evaluation of a 
Polynomial. 3. Quadratic Equations. 

4. Integration by Simpson's Rule. 

5. Newton -Raphson Roots. 

6. Derivative of a Function. 

7. Factorial of a Given Number. 

8. Extended Factorial Calculation. 
#01303, TRS-80 Level II, $14.95 

MCAP: A Microcomputer 
Circuit Analysis Program 

(Savon) Performs a linear voltage, 
impedance, or transfer impedance 
analysis of an electronic circuit. 
#05403, TRS-80 Level II, $24.95 

MICROCOMPUTER AIDED 
DESIGN OF ACTIVE 
FILTERS (Gilder) Eight programs 
that simplify the design of active filters 
and will calculate the component 
values needed for various bandpass, 
low -pass, and notch -type filters. 
#01403, TRS-80 Level II tape, 
$16.95 



BLACKJACK MASTER: A 
Simulator/Tutor/Game 

(Wazaney) A serious game that 
performs complex simulations and 
evaluations of playing and betting 
strategies. Develop your own system 
for winning at blackjack without 
leaving your home and without 
risking a penny. #05303, TRS-80 
Level II tape, $24.95; #05308, 
TRS-80 Disk Version, $29.95 

FINPLAN: A Financial 
Planning Program for Small 

Business (Montgomery) Allows 
you to enter data from business 
documents into the program, make 
assumptions about the future growth 
of business, and to have the 
computer project results for up to a 
five year period based on those 
assumptions. Disk version can be 
used only with TRSDOS version 2.3. 
#05103, TRS-80, Level II tape, 
$69.95; #05108, TRS-80 Level 
disk, $74.95 

GENERAL 

MATHEMATICS- 1 (Gilder) 
Contains over 15 programs useful to 
anyone who wants to improve their 
math skills and accelerate their 
computation. #01103, TRS-80, 
Level II tape, $14.95 

MICROTYPING (Engel) Features 
the "touch method" of learning to 
type for improving your computer 
skills #02403, TRS-80, Level II 
tape, $10.95 



Available at your local computer store! 

For Orders and Inquiries Call Toll Free 

HAYDEN HOTLINE 800-631-0856 




50 Essex Street, Rochelle Park, NJ 07662 



Book Company, Inc. 



^See List of Advertisers on page 354 
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specifies random characters 
for printing the background 
frame. Each' new character re- 
prints the background from top 
and bottom to its center. The 
characters may be letters, 
numbers, symbols, or graphic 
patterns. You may select any 
type character group by chang- 
ing statement 65110 as de- 



scribed in REM statements 
65525 and 65526. 

The 10-second countdown 
variation (Program Listing 4e) 
starts with a background frame 
made up of the numeral nine 
(Fig. 6), and counts down at one 
second intervals to an all zeros 
background frame. The dia- 
mond title program can handle 



CLS: CLEAR75: GOSUB65508: F0RU=1T01999: NEXT: CLEAR50 

1 G0T01: * (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65508 B$="/////": "(VARIATION 1, SEE FIG. 4) 
65510 FORU=0TO55STEP5:PRINTeu,B$: NEXT 

65512 FORU=60TO816STEP63: PRINT@U,B$+B$+B$+B$; : NEXT 

65514 F0RU=87 9T0959STEP5: PRINTeu,B$;: NEXT 

65515 PRINT§960," " ; 

65516 FORU=92T0848STEP63: PRI NT @U , "PROGRAM TITLE HERE"; 
65518 FORI=0TO9: NEXTI, U 

65520 PRINT@981, "TITLE GRAPHICS BY KAL";: RETURN 
65522 '(STATEMENT CHANGES FOR VARIATION 2, SEE FIG. 5) 
•65508 B$=STRING$(5,91) : 

'65516 FORU=855T087STEP-64: PRINT@U,"UP, UP, AND 
AWAY 1 " ; 
65524 '(STATEMENT CHANGES FOR VARIATION 3, SEE PHOTO 2) 
'65508 B$=STRING$(5,179) : '(USE ANY ASCII CODE) 
'65516 FORU=81T0861STEP65: PRINT@U,"USE ANY CHAR 
CODE"; 

Program Listing 2a 

CLS: CLEAR75: GOSUB65508: F0RU=1T0999: NEXT: CLEAR50 

1 GOTOl 

65508 B$=STRING$(5,91) : 

65510 FORU=0TO55STEP5:PRINT@U,B$: NEXT 

65512 FORU=60TO816STEP63: PRINTGU ,B$+B$+B$+B$; : NEXT 

65514 FORU=879T0959STEP5: PRINT§U,B$;: NEXT 

65515 PRINT0960," ";: FORI=lT0199: NEXT 

65516 FORU = 855T087STEP-64: PRINT@U,"UP, UP, AND AWAY 1 " ; 
65518 FORI=0TO9: NEXTI : NEXTU 

65520 PRINT§981, "TITLE GRAPHICS BY KAL";: RETURN 



Program Listing 2b 



CLS: CLEAR75: GOSUB65508: F0RU=1T01999 : NEXT: CLEAR50 

1 GOTOl 

65508 B$=STRING$(5,179) : '(USE ANY ASCII CODE) 

65510 FORU=0TO55STEP5:PRINT@U,B$: NEXT 

65512 FORU=60TO816STEP63: PRINT9U ,B$+B$+B$+B$; : NEXT 

65514 FORU=879T0959STEP5: PRINT@U,B$;: NEXT 

65515 PRINT@960," " ; : F0RI=1T0199: NEXT 

65516 FORU=81T0861STEP65: PRINT§U,"USE ANY CHAR CODE"; 
65518 FORI=0TO9: NEXTI: NEXTU 

65520 PRINT8981, "TITLE GRAPHICS BY KAL";: RETURN 



Program Listing 2c 



52 character positions. In- 
crease or decrease the state- 
ment 65518 PRINT® value to 
accommodate your program 
title. The credit line statement 
(6551 1 ) may be used or omitted. 

Wedge Title 

Program Listing 5 displays 
two title lines within a wedge- 
shaped background frame 
(Photo 5). The background 
frame may be made up of any 
printable character, described 
in REM statement 65514. In- 
crease or decrease the state- 
ment 65522 and 65524 PRINT® 
values to accommodate your 
title and credit lines. Either 
statement may be omitted. 

Spiral Title 

Program Listing 6 displays 
one title line within a graphic 
spiral background frame. This 



program can handle three title 
or credit lines up to 30 
characters long. Statement 
65522 prints the single line title. 
Increase or decrease that state- 
ment's PRINT® value to ac- 
commodate your program title. 
Additional title lines may be 
displayed with their centers at 
PRINT® 415 and PRINT® 543. 
Decrease these PRINT® 
values by one for every two 
characters in your additional 
title lines. Include the upper 
and lower lines by using state- 
ment numbers 65521 and 
65523. 

Lattice Title 

Program Listing 7 displays 
two title lines within a latticed 
background frame. Each line 
can handle a title up to 30 
character positions long. Ad- 
just statement 65522 and 65524 



iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
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PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
PROGRAM TITLE HERE 
11111/ III llllll II III/ III III /III III UIIIIIIIUIIU II III 1/11/1/1/ 1 
TITLE GRAPHICS BY KAL 
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miiuiiiimu 

miiiimuum 



J 



Fig. 4 



Program Listing 2. Left Slant Parallelograms 



CLS: CLEAR75: GOSUB65506: CLEAR50: '(SEE PHOTO 3) 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65506 PRINT8981, "TITLE GRAPHICS BY KAL";: T=854: R=74 
65508 T=T+1: R=R+1: Q-Q+l: ONQ GOTO 65512,65514,65516, 

65510,65512,65514,65516,65510,65512,65514,65516 
65510 B$«CHR$(15 0)+CHR$(141)+CHR$(172)+CHR$(178)+ 

CHR$(174) : G0TO65518 
65512 B$=CHR$(137) +CHR$ (140) +CHRS (174) +CHR$(171) + 

CHR$(131) : GOT065518 
6 5514 B$=CHR$(151)i-CHR$(171)+CHR$(186)+CHR$(162) + 

CHR$(167) : GOT065518 
65516 B$=CHR$(14 9)+CHR$(17 6)+CHR$(176)+CHR$(152)+ 

CHR$(131) 
65518 FORU=0TO65STEP5: PRINT@U,B$;: NEXT 

65520 FORU=110TO845STEP65: PRINT@U ,B$+B$+B$+B$+B$; :NEXT 
65522 FORU=890TO955STEP5: PRINT§U,B$;: NEXT 
65524 FORU=T TO R STEP-65 : PRINT§U , " THE MOVING MAZE1";: 

NEXT 
65526 IF T<866 GOTO65508 
65528 FORU=1TO200: NEXT: RETURN 

Program Listing 3. Moving Title 



ftmtmmmmtttnmttttttmmtmttt 

ftttttttttmitl UP, UP, AND AWAY! 

ntltftnmtt! up, up. and away! 

Itttlttltttlll UP, UP, AND AWAY! 

tfttttttttttt UP, UP, AND AWAY! 

tttttttttttt UP, UP, AND AWAY! 

tttlttttttl UP, UP, AND AWAY! 

TTTTTTTTTT up, up, and away! 

ttttttTIt UP, UP, AND AWAY! 

TTTTTTTT up, up, and away! 

ttftttt UP, UP, AND AWAY! 

T T T 1 1 T UP, UP, AND AWAY! 

ttttl UP, UP, AND AWAY! 

tttt UP, UP, AND AWAY! 

rmtmttintmmtmtmmitmtiittmi 
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Fig. 5 
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PRINT® values to accommo- 
date your program title lines. 

Animated Title 



an animated title, shown in the 
three frames of Fig. 7. The pro- 
gram first fills the display 
screen with grass (exclamation 



Program Listing 8 displays points). Next, two caterpillars, 



CLS: CLEAR100: W=58: GOSUB65 508: CLEAR50 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65508 X=52: Y=100: Z=808 

65510 W=RND(50)+136: '(RANDOM GRAPHICS, SEE PHOTO 4) 

65511 PRINT@981, "TITLE GRAPHICS BY KAL"; 

65512 PRINT@0,STRING$(92,W) ;: PRINT@868,STRING$( 92 ,W) ; 
65514 PRINT@Y,STRING$(X,W) ; : PRINT@Z , STRINGS (X P W) ; 
65516 X=X-8: Y=Y+68: Z=Z-60: IF X>4 GOT065514 

65518 PRINT6471, "PROGRAM TITLE HERE"; 
65522 FORU=1TO110: NEXT 

65524 V=V+1: IF V<10 GOTO65508 ELSE RETURN 

65525 ' 

'FOR RANDOM LETTERS, CHANGE 65510 TO W=RND(10)+47 
'FOR RANDOM NUMBERS, CHANGE 65510 TO W=RND(26)+64 

65526 'FOR A 10-SECOND COUNTDOWN, CHANGE 65510 TO W=W-1 
'FOR RANDOM SYMBOLS, CHANGE 65510 TO W=RND(15)+32 

OR TO W=RND(7) +57 



Program Listing 4a. RND Graphics 

CLS: CLEAR100: W=58: GOSUB65508: CLEAR50: 

1 GOTOl 

65508 X=52: Y=100: Z=808 

65510 W=RND(26) +64 

65511 PRINT0981, "TITLE GRAPHICS BY KAL"; 

65512 PRINT@0,STRING$(92,W) ; : PRINT6868, STRINGS ( 92 ,W) 

65513 PRINT@959,CHRS(W) ; 

65514 PRINT@Y,STRING$(X,W) ;: PRINT0Z , STRINGS (X,W) ; 
65516 X=X-8: Y=Y+68: Z=Z-60: IF X>4 GOT065514 
65518 PRINT@471, "PROGRAM TITLE HERE"; 

65522 FORU=1TO110: NEXT 

65524 V=V+1: IF V<10 GOTO65508 ELSE RETURN 



Program Listing 4b. RND Letters, 



CLS: CLEAR100: W=58: GOSUB65508: CLEAR50 

1 GOTOl 

65508 X=52: Y=100: Z=808 

65510 W=RND(10)+47 

65511 PRINT@981, "TITLE GRAPHICS BY KAL"; 

65512 PRINT§0,STRING$(92,W) ;: PRINTe868,STRING$(92 ,W) 
65514 PRINT@Y,STRING$(X,W) ;: PRINT§Z , STRINGS (X ,W) ; 
65516 X=X-8: Y=Y+68: Z=«Z-60: IF X>4 GOT065514 

65518 PRI NT @4 71, "PROGRAM TITLE HERE"; 

65522 FORU=1TO110: NEXT 

65524 V=V+1: IF V<10 GOTO65508 ELSE RETURN 

Program Listing 4c. RND Numbers 



CLS: CLEAR100: W=58: GOSUB65508: CLEAR50 

1 GOTOl 

65508 X=52: Y=100: Z=808 

65510 W=RND(15)+32 

65511 PRINT0981, "TITLE GRAPHICS BY KAL"; 

65512 PRINT@0,STRING$(92,W) ;: PRINT@868, STRINGS (92 ,W) 
65514 PRINT@Y,STRING$(X,W) ;: PRINT8Z , STRINGS (X,W) ; 
65516 X=X-8: Y=Y+68: Z=Z-60: IF X>4 GOT065514 

65518 PRI NT@4 71, "PROGRAM TITLE HERE"; 

65522 FORU=0TO110: NEXT 

65524 V=V+1: IF V<10 GOTO65508 ELSE RETURN 

Program Listing 46. RND Symbols 



CLS: CLEAR100: W=58: GOSUB65508: CLEAR50 

1 GOTOl 

65508 X=52: Y=100: Z=808 

65510 W=W-1 

65511 PRINT§981, "TITLE GRAPHICS BY KAL"; 

65512 PRINT§0,STRING$(92,W);: PRINT@868, STRINGS ( 92 ,W) ; 
65514 PRINT§Y,STRING$(X,W)>: PRINTgZ .STRINGS (X,W) ; 
65516 X=X-8: Y=Y+68: Z=Z-60: IF X>4 GOT065514 

65518 PRI NT §4 71, "PROGRAM TITLE HERE"; 

6 5 522 FORU=0TO110: NEXT 

65524 V=V+1: IF V<10 GOTO65508 ELSE RETURN 

Program Listing 4e. Countdown 



YOU'RE OUR PATIENT... 



MEDICAL & 
DENTAL SYSTEMS 



Appointments 
Master Records 
Private Billing 
ADA or AMA 
Claim Preparation 
Diagnostic and 
Treatment Records 
Recall and more 



Apple E • TRS-80 • Apple /// 

CHARLES MANN & ASSOCIATES .555 

Micro Software Division 

55722 Santa Fe Trail 

Yucca Valley, CA. 92284 

(714)365-9718 




Program Listing 4. Diamond Titles 



TRS-80 ADVENTURES FOR 16K COLOR 80 

Extended color or Level II BASIC 
ESCAPE FROM MARS — You are stranded on Mars and some- 
where in the Martian city are the parts you need to repair your 
ship. Our best adventure for new adventurers. 
TREK ADVENTURE - You will recognize the spaceship this 
takes place on. The crew has left— for good reason— but they 
forgot you— and the "Orbit is Decaying." Almost as good as 
being there. 

PYRAMID - Our most advanced and challenging adventure, this 
takes place in our own special ancient pyramid. The builders 
were as nasty as pyramid builders usually are, and ransacking 
this one is a dangerous job. 

ADVENTURES are all written in BASIC, all come with listings, 
and each sells for $14.95. 

ARCADE AND THINKING GAMES 

16K and extended or level II BASIC 
TIME TREK, REAL TIME REAL GRAPHICS TREK. See the 

torpedoes fly and the Klinsons explode. No more scolling dis- 
plays, no more turn taking. - This one has real time and real 
displays. In BASIC - for 16K level II or extended color BASIC. 
$14.95. 

STARFIGHTER - This one man space war game pits you against 
spacecruisers, battlewagons, and one man fighters. You have 
the view from your cockpit window, a working instrument 
panel, and your wits. Another real time goody. 
BATTLEFLEET - This grown-up version of Battleship is the 
toughest thinking game available on 80 computers. There is no 
luck involved as you seek out the 80's hidden fleet. This is a 
topographical toughie. $9.95. 

SLASHBALL - A two player game of strategy and skill, this is 
like nothing you have ever seen before. This takes fast fingers, 
quick wits and concentration. Playable from age 6 to 65, it is a 
good family game. $9.95. 

FREE CATALOG 

AARDVARK-80.129 

2352 S. Commerce, Walled Lake, Ml 48088 

(31 3)669-3110 



^ 



% 
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working in opposite directions, 
start chomping out a clearing in 
the grass (frame 1). The cater- 
pillars eventually meet at the 
clearing's center and disin- 
tegrate in a series of explo- 
sions J (frame 2). Finally, a 
program title appears in the 
clearing (frame 3). 



The clearing can handle a 
title of up to 33 characters. Ad- 
just the statement 65524 
PRINT® value as needed to ac- 
commodate your program title. 

You may also add upper and 
lower title lines with their 
centers at PRINT® 351 and 
PRINT® 479. Subtract one 



9999999999999999999999999999999999999999999999999999999999999999 
9999999999999999999999999999 9999999999999999999999999999 
999999999999999999999999 999999999999999999999999 

99999999999999999999 99999999999999999999 



9999999999999999 

999999999999 

99999999 

9999 

99999999 

999999999999 

9999999999999999 

99999999999999999999 

999999999999999999999999 

9999999999999999999999999999 



.-:>:, RAM TITLE HERE 



9999999999999999 

999999999999 

99999999 

9999 

99999999 

999999999999 

9999999999999999 

99999999999999999999 

999999999999999999999999 

9999999999999999999999999999 



9999999999999999999999999999999999999999999999999999999999999999 
TITLE GRAPHICS BY KAL 



Fig. 6 10-Second Countdown 



CLS: CLEAR99: G0SUB65512: CLEAR50: '(SEE PHOTO 5) 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65512 Y=124: X=10: Z$=CHR$ (149) 

65514 '(IN 65512 ABOVE, SUBSTITUTE ANY LETTER, NUMBER, 
SYMBOL, OR GRAPHIC CHARACTER ASCII CODE FOR THE 
(149) CODE. SEE PAGES C/2 AND C/6 IN RS TRS-80 
LEVEL II BASIC REFERENCE MANUAL.) 

65516 PRINT§0,STRING$(68,Z$) ; 

65518 PRINT@Y,STRING$(X,Z$) ; : Y=Y+62: X=X+4 

65520 IF X<58 GOT065518 ELSE PRINT@Y, STRINGS ( 92 , Z$) ; 

65522 PRINT@217, "TITLE GRAPHICS";: '(FIRST TITLE LINE) 

65524 PRINT@348,"BY: KAL";: '(TITLE OR CREDIT LINE) 

65526 F0RU=1T01999: NEXT: RETURN 



Program Listing 5. Wedge Titles 



from the specified PRINT® 
value for every two characters 
in an added title line. Add the 
upper and lower title lines by 
using statement numbers 
65523 and 65525. 

Using the Programs 

Select a graphic title pro- 
gram that suits your existing 
program. Load, CLOAD, or 
©LOAD your program and List 
it to check its first and last 
statement numbers. If your pro- 
gram has a statement 0, 
renumber it. Also renumber any 
statement above 65499 that 
conflicts with a statement 
number in the selected title pro- 
gram. 

When a statement ends with 
a Return command, trace 



backward through your pro- 
gram for the calling GOSUB 
command. Change the GOSUB 
command to correspond with 
the revised statement number. 

After the renumbering is 
completed, key in the title pro- 
gram's statements. Put your 
program title and credit lines in 
the title and credit line state- 
ments. Adjust title PRINT® 
values or title stack start and 
end numbers as prescribed in 
the title program's description. 

Run the combined program 
to verify that the graphic title 
display routine works. At this 
time, readjust title PRINT® 
values or title stack start and 
end numbers, if needed. Delete 
GOT01 in statement 1. 

When titling a program that 




Photo 6. Program Listing 6 Spiral Title 



lllllllllllllllllllllllllllllllllllllllllllllll 



title amies 



IV: K\ 



■ ■■■■ 

■ ■■■■ 
■■■■41 
■■■■■1 


■■■■■■■■■■■■■■■i] 
■■■■■■■■■■■■■■■I 

■■■■■■■■■■■■■■■■! 
■■■■■■■■■■■■■■■I 




FfffiMH TITLE r£tt 

staiifi tut mi 


■ ■■■■ 

■ ■■■■ 

■ ■■■■ 

■ ■■■■ 

■ ■■■■ 
!■■■■■ 


■■■■■■■■■■■■■■■I 
■■■■■■■■■■■■■■■1 
■■■■■■■■■■■■■■■■ 
■■■■■■■■■■■■■■■I 


!■■■■■ 
!■■■■■ 

!■■■■■ 

!■■■■■ 



ITLE GMFHKS 1Y r-A 



Photo 5. Program Listing 5 Wedge Title 
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Photo 7. Program Listing 7 Lattice Title 
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Color Computer 4K $310 
w/16KEx1. Basic $4*9 
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Pocket Computer $169 
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call toll-free for full information. 



COMPUTERS 




PERIPHERALS 




Mice -ne 82A 


549 


Model II 64K 


$3300 


Expansion interface OK 


$249 


Microline 83A 


839 


Model III 4K LEV I 


599 


Expansion Interface 16K 


355.50 


Pocket Computer Printer 


130 


MODEL III 16K 


839 


•Expansion Interface 16K 


291.50 


DISK DRIVES 




MODEL III 32K 


945 50 


Expansion Interface 32K 


462 


R S Model III 1 ST-Oive 


712 


•MODEL III 32K 


88150 


•Expansion Interlace 32K 


334 


TEAC40TrackMI 


329 


MODEL III 48K 


1052 


16KRAMNEC 200 N.S. Chi 


ps 25 


R S 1 Drive Exp Mil 


999 


•MODEL III 48K 


924 


MODEMS 




R S 2 Drive Exp Mil 


1518 


Model III 48K 




Lynx Direct Connect Ml- Mil 


269 


R S 3 Drive Exp Mil 


2040 


2D.SC&RS232C 


2100 


AutoAns Dial 




Seimans 8 Mil 


799 


Color Computer 4K 


310 


Telephone Interface II 


169 


Atari 810 Disk 


499 


Color Computer 16K 


41650 


R S Modem I DC 


130 


SOFTWARE 




'Color Computer 16K 


352 50 


Atari 830 Modem 


159 


R.S. Software 10% off list 




Color Computer 16K 




Atari 850 Interface 


183 


Atari Software 10% off list 




w extended basic 


489 


PRINTERS 




Newdos-f (40) track Ml 


88 


Pocket Computer 


189 


Daisy Wheel II 


1695 


Newdos 80 Mill 


149 


VIDEOTEX 


310 


Line Printer VI 


999 


ST80III 


149 


APPLE 48K only 


1279 


Epson MX80 


499 


ETC. 




ATARI 800 32K 


789 


Epson MX80 FT 


599 


VerPatum 5 DouPle Density 


32 






Epson MX1 00 


799 


Verbatum 8 Data Life 


49 95 






Line Printer VII 


315 


Ctr-80A recorder 


52 


'Computer Plui N«* £qj pmenf 
1 SO Day tifended War ranty 


Line Printer V 


1610 


C C Joysticks 


22 


Bl 1 IC Mai Ki*>L 


f-IIM lAf' 


Microline 80 


365 







Factory warrantees on Apple and Alar* equipment Other 
equipment carries manufacturers warranty or Computer 
Plus 180 day extended warranty Combined warrantees 
carry Computer Plus 180 day warranty or original manu- 
facturer's warranty 



call TOLL FREE 1-800-343-8124 



com 



DEALER INQUIRIES ARE INVITED 

Prices subject to change without notice 
Not responsible for typographical errors. 
trs-so It a regtsterod trademork of Tandy Corp 




Dept D 

245A Great Road 

Littleton, MA 01460 

617-486-3193 



• 130 



Write for your 
free catalog 



• Im utt o# Mnmimn m mm *« 
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CLS: CLEAR2S0: GOSUB65510: CLEAR50: '(SEE PHOTO 7) 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65510 DEFSTRA-F: F=STRING$ (32 ,128) : A=CHR$ (191) +STRINGS 

(2,131): B=A+A: C=B+B: D=C+C: E=D+D+C+A+CHR$ (191) 
65512 FORY=0TO832STEP64: PRINT@Y,E;: NEXT: PRINT§896, 

STRING$(64,131) ; 
65514 FORY=592T0236STEP-64: PRINTeY,F;: NEXT: 

PRINT@272,STRING$(32,131) ; 
65516 PRINT@407, "PROGRAM TITLE HERE"; 
65518 PRINT8472, "SECOND LINE HERE"; 
65520 PRINT8981, "TITLE GRAPHICS BY KAL"; 
6552^ F0RY=1T019 99: NEXT: RETURN 



Program Listing 7. Lattice Title 



CLS: CLEAR65: GOSUB65500: CLEAR50: '(SEE FIG. 7) 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65500 DEFSTRS-Z: V=STRI NG$ ( 3 , 128) : S=STRING$(30 ,33) 
65502 W=" 'QQQQQQQQQQ@=": X=" , 0000000000@<" : K=335 
65504 Y="=@QQQQQQQQQQ' " : Z=" >§0 000000000 , " ; J=483 
65506 FORR=0TO930STEP30: PRINT@R,S; : NEXT 

65508 PRINT§J,Y;:PRINT@K,W;: F0RR=1T06 : NEXT: PRINT@J,Z; 
65510 PRINT§K,X;: F0RR=1T03 :NEXT: K=K+1:J-J-1: IF K<404 

GOTO65520 
65512 PRINT@414,"(**) ";: F0RR=1T04: NEXT: PRINT8414, 

"*()*";: T="$++$" : U="?+ +? 
65514 PRINT@350,T; : PRINT@478,T; : F0RR=1T04: NEXT 
65516 PRINT@285,U; : PRINT@541 ,U; : F0RR=1T04: NEXT 
65518 FORR=273T0529STEP64: PRINTER, V; : NEXT: G0T065522 
65520 FORR=24lT0562STEP64: PRINTER, S; : NEXT 
65522 PRINT@J,Y;: PRINTER, W; : IF K<410 GOTO65508 
65524 PRINT8407, "CATERPILLAR TRAILS"; 
65526 PRINT@981, "TITLE GRAPHICS BY KAL"; 
65528 F0RR=1T01999: NEXT: RETURN 

Program Listing 8. Animated Title 



ELECTRIC SPREADSHEET 



NEW - For Personal or Business Use 

ELECTRIC SPREADSHEET does everything you can do 
with a pencil, paper and calculator Start with a blank 
screen Move the fast cursor to desired location. Enter line 
or column labels or data Select preprogrammed operators 
for line, column, or cell calculations. Run Results appear 
on the screen, formatted for your printer Revise Run 
again 

PREPROGRAMMED OPERATORS for mathematics, 
finance, and statistics Save data on tape or disk The 
screen is your window to a larger spreadsheet Output 
features scrolling and split-screen Variable formats for 
labels and data 

UNI IMITED APPLICATIONS P L forecast Personal 
budget Real estate investment Net worth forecast 
Invoice^. Cash flow estimate Sales analysis Check record 
Business forms 

16K version has 50 operators 32'48K version has 70 
operators plus histogram plot, remote storage of data, 
global revise spreadsheet layout, alpha entries, and more 

16K Model I or III Tape $34 95 

32/4845 Model I or ill Tape $64 95 

48K Model I or III Disk (Specify Model) $67 95 

YOUXANT LOSE 1 Calif orders add 6' % tax 



Dan G. Haney & Associates, Inc. ^ 46 4 
P.O. Box 687, San Mateo, CA 94401 
(415) 493-4094 
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already displays a title, find the 
statement that prints it. Check 
the first few statements. Also 
check statements that are in- 
itially called by a GOTO or 
GOSUB. When found, delete 
the PRINT'TITLE" portion of 
the statement; leave all other 
statement segments intact. In 
some GOTO and GOSUB cases, 



the number of the title printing 
statement must be retained 
with a REM to ensure program 
continuity. 

Now run the combined pro- 
gram. If everything runs 
smoothly, save, CSAVE or 
©SAVE your newly titled pro- 
gram on diskette, cassette or 
wafer. ■ 



CLS: CLEAR99: GOSUB65506: CLEAR50: '(SEE PHOTO 6) 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65506 W=60: S=63: A=l: T=959: U=896: R=62 

65508 PRINT@0,STRING$(63,131) ;: GOT065514 
65510 R=64 

65512 R-R+lt PRINT§R f STRING$(W,131);: W=W-6: R=R+66: 

A=A+1 
65514 FOR X = S TO T STEP64: PRINT@X ,CHRS ( 191 ) ; : "i X l 

T=T-1: S=S+61 
65516 FOR X=T TO U STEP-1: PRINT@X,CHR$ (176) 

T=T-66 

65518 FOR X»U TO R STEP-64: PRINT§X,CHR$ (191) ; : NEXT 
65520 U=U-61: IF A<2 GOTO65510 ELSE IF R<398 GOT065512 
65522 PRINT8471, "PROGRAM TITLE HERE"; 
65524 PRINTG981, "TITLE GRAPHICS BY KAL": 
65526 F0RX=1T01999: NEXT: RETURN 



NEXT 



Program Listing 6. Spiral Title 
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Fig. 7 Animated Title 



THe 80 INDeX 



Superfast computerized 

index to: 

80 - Microcomputing 

KILOBAUD & 80 -US 

For the TRS-80 

Modi 




Unlock the f iling cabinet 
on your shelf. Find 
articles, ads, reviews and 
programs- in seconds! 



Index & Programs & Manual US$29 
Manual a««j nott npersttriy US$8 

Requires -»8k trs 80* Mod . *ffli 2 Di mm 4 ^RSDOS 



*». HeXAGON 

. *• GYSTeMe 

.- 129 



PO. Box 397 Stn.A 

Vancouver. B£. Canada V6C 2N2 

Telephone (604)682 7646 



GOSCIB 

GOSUB'S MX80/70 FRICTION FEED KIT 
ONLY $49.95 ppd 

The Gosub MX8O/70 Friction Feed Kit for the Epson MX80 

printer will give you complete pape' control 

You get easy to follow instructions and all parts necessary 

to give your epson friction feed capabilities 

No dri'ling and it installs in about 15 minutes. 

Money back guarantee if not satisfied 

PLUS: 

• USE SINULfc SMfcET PAPb" 

• USE INEXPENSIVE ROU PAPfH 

• USE YOUR OWN LETTER MEAD 

• PREE PAPER ROLL BACK INCLUDED WITH KIT 

• DOES NOT AFFECT PIN-FEED USE 

PRINTERS EPSON MX90 WIS EPSON MX100 MSO 



STRATEGY SIMULATIONS 
MERCENARY FORCE 

Command a mercenary 
army Decide the number o' 
men. type o* weapons, 
armor, ai' Support rtedioai 
.i 1 .it ;1 transports Battle 
the enemy in jungles. 
underwater, on moons and 
in space (1 4 piaytws) 
TRS80LZ 16K $16 95 

> "-.sis HI n M>1 IX •>».! • I »• 
It . . , ,1 Hill I ' n MAM I AI M. -- I I 



FOR THE TRS-80 

SPACE MERCHANT 
Build an Empire in the 
stars Cioose your cargo, 
"leans .)' shipping and 
security Risk pirates ion 
sto"T"i snQirw failure and 
other ha^a-ds *hiie voo tr> 
i( tx-< ome .< Spat e 
Mef.-ha-it 1 1 6 nlayersi 
TRS-M L2/16K W.9S 

[i «, , . | . .i ., kMM M ' »•.( • 
nil C4TAUX i'"» *iqihm 



SI NO CHIC t. Ol MONIf DKDH l<> 



P.O. BOX 175-C 



GOSUB 

|316| 265 999^ 



WICHITA, K.S 67201 



TheDlTA-TRANSlOOO 



A completely refurbished 
IBM Selectric Terminal with 
built-in ASCII Interface. 

'FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 



Features: 

• 300 Baud Serial 

• 14.9 characters per second 
printout 

• Reliable heavy duty Selectric 
mechanism 

• RS-232C Interface 

• Documentation ln< 'luded 
#bo day warranty— parts and 

labor 

• High quality Selectric print- 
ing Off-line use as typewriter 

9 Optional tractor iced 
available 

• 15 inch carriage width 



Also works with Ex 
tron's Stringy flopp 

lor last loading ol p 
grains. (Has RS2 
built in stringy) 

HOW TO ORDER 
DATA-TRANS 1000 

1 . We accept Visa, Master 
Charge. Make cashiers checks 01 
persona] check payable to: 

DATA-TRANS 

2. All orders are shipped 
F.O.B. San Jose, CA 

3. Deliveries art* immediate 




i 



Desk and table top models also available. 
For orders and information 

DATA-TRANS 

45277 Fremont Blvd., #7 ^274 
Fremont CA ^4538 

Phone: (408) 263-9246 



.' S*« Usf ol AdttrtliTj on jMOt 354 
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TUTORIAL 



You'd be surprised what it really means. 



Clear N 



Nate Salsbury 

608 Madam Moore's Lane 

New Bern, NC 28560 

One night at approximately 
10:18, my 26-1006D got am- 
nesia. The memory-tank gauge 
said OM. Sure enough," the dip- 
stick read ?MEM 102! I should 
have bought the expansion inter- 
face and 32K more memory— my 
Radio Shack dealer had been 
right. 



While investigating the prob- 
lem, I came across the following 
interesting action of the Clear n 
statement. The instruction man- 
ual says that it (a) sets aside n 
bytes for string storage and (b) 
sets all variables to zero. 

The Unmentioned (c) 

Any intelligent person would 
conclude Clear does (a) and (b) 
and nothing else, but I discov- 
ered an unmentioned (c). Refer to 



7 22 

M = 2 ADDRESS =17692 

17689 2 17690 

17693 17694 2 

17697 33 17698 69 

17701 65 17702 28 

17705 17706 88 

17709 2 17710 11 

17713 17714 1 

NO OF BYTES USED FOR ARRAY = 247 
MEMORY LEFT = 14695 
10 CLEARlOOiDEFINT AZ::X(0.0)= 1.1: 
10 

READY 
>. 



Fig. 1. 



WHAT'S THERE? 2 


17691 77 


17692 2 


17695 


17696 66 


17699 2 


17700 


17703 69 


17704 2 


17707 247 


17708 


17711 


17712 11 


17715 





Program Listing 1, the short pro- 
gram I developed which led me 
to (c). If you want to try this your- 
self, be very careful how you 
enter line 10. Note the following: 

• There is no space between 
Clear and 100. This statement 
will be moved around and you 
will change your printout if you 
don't keep it compacted. 

• There are two colons after De- 
fint A-Z. There is no space be- 
tween these colons. 

• There is a trailing colon at the 
end. This, at first glance, appears 
unnecessary, but put it in. 

Setting up in this fashion 
allows you to edit line 10 easily 
(we are going to reposition the 
CleaMOO part) without changing 
the locations of any of the vari- 
ables in memory. Line 120 is in- 
cluded to make this edit easy to 
do. The program shows how the 
placement of Clear 100 affects 
the representation of variables 
and/or arrays and how this, in 
turn, affects your free memory. 

Line 10 implies that I want all 
variables to be integers. CleaMOO 



5 X$ ■= INKEY$: IF X$ ■ "" GOTO 5 

6 CLS 

10 CLEAR100:DEFINT A-Z::X(0,0) - 1.1: 

20 INPUT H 

30 B=0: A = VARPTR(M) 

40 PRINT "M = ", M, "ADDRESS ="; A TAB(POS(0) + 5) "WHAT'S THERE?"; PEEK(A) 

50 PRINT 

60 FOR B = A-3 TO VARPTR(X(0 f 0) ) + 1 

70 PRINT B; PEEK(B) , 

80 NEXT B: PRINT 

90 A = VARPTR(X(0,0) ) - 7 

100 PRINT "NO. OF BYTES USED FOR ARRAY «"; PEEK (A) + 256*PEEK (A+l) 

110 PRINT "MEMORY LEFT -"; MEM, "X(0.0) ="; X(0,0) 

120 EDIT 10 

150 END 

Program Listing 1 



appears as the first statement. 
Notice that X(0,0) is specified as 
1.1 (a decimal). Line 20 can be any 
input, as long as it has a decimal 
part. I used 2.2 for this article. 
Line 40 shows how the computer 
handles the desired integer M, 
VARPTR(M) and what will be 
found when you PEEK there. 
Line 60 does look strange. In line 
30, the variable A is equated to 
VARPTR(M). The instruction 
manual states that for all vari- 
ables (except arrays), VARPTR( )- 
3 will contain a code (02 equals 
integer and 04 equals single pre- 
cision) to indicate what type of 
variable follows. Therefore, the 
first B chosen by line 60 will 
display that code number for M. 

The TRS-80 stores variables in 
the sequence they appear in the 
program and then stores arrays 
after that. In our program, M is 
the first variable specified fol- 
lowed by B and A. Therefore, the 
For. . .Next loop in lines 60-80 
will print out all the pertinent 
data on the variables and end 
with the stored value for X(0,0). In 
the housekeeping information 
stored before VARPTR(X(0,0)), 
there are two bytes which store 
the total number of bytes used 
for the array— in this case it is 
specified, calculated and printed 
by lines 90-100. Taken all 
together, lines 60-100 are the 
spotlight which will uncover that 
(c) action. 

Line 110 will cause a printout 
of the amount of free memory we 
have available and it also prints 
out the stored value for X(0,0). 
Finally, line 120 makes it easy to 
do our editing of line 10. Fig. 1 
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shows the result of running the 
program as shown in Program 
Listing 1. (Note that I listed line 
10 at the end, in the Edit mode, so 
as to identify the placement of 
Clear 100 in Figs. 1, 2 and 3.) 

Let's examine Fig. 1 carefully. 
The first line is my input of 2.2 for 
M. Next we see the TRS-80 has 
this stored as two. M is stored at 
17692 and we find a two right 
there. Here's the ASCII relation- 
ship for our variables (A/65, B/66, 
M/77 and X/88). 

In the tabular printout, 17692 
does contain two (as stated 
above), 17691 has 77 (that's our 
M) and 17689 is the (integer) 
code 2. 17696 identifies B with 
the 66, 17701 does the same for 
A and then follows the informa- 
tion for array X. Some key loca- 
tions here are 17706 (that is our 
ASCII X), 17704 (code 2 for inte- 
ger), 17707/8 which contain the 
memory-used data for the array 
and the last two items which 
show the stored value of X(0,0). 
This time we find just the integer 
part of 1.1. Finally, Fig. 1 shows 
we have 14695 bytes of free 
memory left and notes the array 
has had 247 bytes set aside for 
future entries. 

Now we're going to edit line 10. 
Delete Clear 100 from the begin- 



ning (leave the colon) and insert 
it between the two colons after 
Defint A-Z. When you now run 
this version, you should get the 
same address for M (see Fig. 2). If 
you get a different one from the 
one in Fig. 1, it means you have 
changed the number of bytes in 
your program by not keeping 
everything bunched together. 

Fig. 2 looks like more of the 
same stuff, but now the comput- 
er says M is 2.2! It is still stored 
at 17692. 17691 is comforting — 
(there's our M/77) but look at 
17689; it has a four— "M" is now 
single precision. And so is B 
(1 7696) and A (17703) and array X 
(17710). But we only have 14447 
bytes of memory left. We have 
lost 248 bytes just by moving 
Clear 100. 

(c) Revealed 

We can see where 242 of them 
went because the array now has 
had 489 bytes set aside while 
before it only needed 247. The 
other lost bytes are taken up by 
our three variables which now 
each use four bytes (as single- 
precision numbers) instead of 
two (when they were stored as in- 
tegers). We have discovered the 
unmentioned (c). 

In addition to setting all vari- 



?22 










M-22 




ADDRESS- 17692 


WHATS THERE? 205 


17689 


4 


17690 


17691 77 


17692 205 


17693 


204 


17694 12 


17695 130 


17696 4 


17697 





17696 66 


17699 


17700 72 


17701 


10 


17702 143 


17703 4 


If 704 


17705 


66 


17706 


17707 56 


'7708 10 


17709 


143 


17710 4 


17711 


17712 88 


I77»3 


23) 


17714 1 


17715 2 


17716 11 


17717 





'7718 11 


17719 


17720 205 


17721 


204 








NO OF BYTES USED t OH ARRAY _ 489 






MEMORY LtF T 


14447 






10 DEFIN' A7CIFAR100X(0.0)-1.1 






10 




Fig 2 







5 X$ = INKEYS 


IF X$ = "" GOTO 5 ELSE CLEAR 50 


6 CLS 




10 A = 1 




20 PRINT "MEM 


", "VARPTR(B(0) ) ", "VARPTR(A)" 


3 PRINT MEM, 


VARPTR(B(0) ) , VARPTR(A) 


40 PRINT MEM 




50 CLEAR 50 




6 PRINT MEM, 


VARPTR ( B ( ) ) , VARPTR ( A) 


150 END 






Program Listing 2 



ables to zero, Clear (anything) 
also causes all variables to be 
stored as single-precision values 
unless specified otherwise by a 
statement which follows the 
Clear. In my original program, I 
used four large arrays which I 
thought were integer types. I had 
set them up on the first program 
line with Defint and DIM state- 
ments and then, later, added 
Clear 120 when I found I needed 
some string storage. By merely 
placing that Clear 120 at the be- 
ginning of the line, I suddenly 
found about 1,100 lost bytes! 

Okay— back to the laboratory. 
Edit line 10 again— take Clear100 
out of the middle (leave both col- 
ons) and snuggle it up against 
the right-hand colon which I 
asked you to put there. Run 
again and get Fig. 3. The 
changes here are a little more 
subtle — same MEM, same num- 
ber of bytes for the array, M is 
still 2.2. But note these points: 

• Since ClearlOO followed the 
definition of X(0,0), that value 
is now a (as promised by the 
definition of Clear); but 

• Even though there is 
nothing stored in the array, 
the computer still seems to 
have space reserved for it — 
look at the housekeeping info 
from 17710 to 17719. 



Program Listing 2 

This strange result led me to 
some further tests and I finally 
tied all the information together 
with Program Listing 2. Notice 
that the only variable specified 
here is 'A'. The printout for the 
run of this program is shown in 
Fig. 4. Let's analyze the results. 

We print three numbers identi- 
fied as MEM, VARPTR(B<0)) and 
VARPTR(A). We see that after 
assigning A its value of one we 
have MEM = 15200. We find an 
address for B(0) even though we 
haven't specified B in any way. A 
is stored at 17497. On the next 
line, by itself, we have 15148 
bytes of MEM (we appear to have 
lost 52 bytes somewhere). Then 
the program restates what Basic 
does automatically if not told 
anything else, it Clears 50. The 
final line shows: MEM = 15207; 
B(0) has a new address (7 bytes 
earlier than before); and A 



doesn't exist any more (the blank 
space under VARPTR(A) plus the 
"?FC error in 60" line both tell us 
this). Here's what this data 
reveals: 

• Unless otherwise specified, 
the computer dimensions 
single-variable arrays for 10 
(0-10 or 11 elements). 

• We didn't specify INT so the 
computer stores numerical 
data in single-precision for- 
mat. 

• Therefore, a single-variable, 
undefined array needs four 
bytes/elements by 11 elements 
equals 44 bytes, plus eight 
housekeeping bytes equals 52 
bytes. 

• By merely asking for an ar- 
ray address, even it if has 
never been specified, the com- 
puter sets aside space for that 
array. That's where the miss- 
ing 52 bytes went. 

• When we executed Clear 50 
the array and variable A were 
wiped out. Since A was stored 
in single-precision format, it 
required seven bytes of memo- 
ry. We had 15200 bytes' of 
memory with A stored and, 
therefore, 15207 when it was 
erased. 

• Finally, assoon as weasked 
for VARPTR<B(0)), the comput- 
er reestablished a location for 
it (but now it was set up seven 
bytes lower because A didn't 
exist any more). This is proved 
by the blank under VARPTR(A) 
plus the FC error message. 



Conclusion 

For maximum memory con- 
servation, always make your 
Clear statement first. Once you 
have assigned a variable any 
value, the computer keeps its 
assigned space forever(with the 
exception of a new Clear state- 
ment). You cannot free those 
bytes of memory for any other 
purpose. The instruction manual 
points out how many variables 
you have available to play with 
(around 900). Even in Integer 
form, each variable uses five 
bytes. So be very conservative in 
your use of variable names — es- 
pecially in the Command mode. 
Any new variables you use are 
stored also and continue to take 
up space — even if they are used 
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• CHROME it the perfect back-up for disk— low coat, very low error rate 

• Twice as secure during EMPs, power failures, & other malfunctions 

• MICRO FUSION* CHROME runs like a champ on high baud rate 
formats like JPC 

• Needs no special modification on good cassette decks 

• CHROME saves lots of money & time 
— saves lota of program A data 

C-1 Os — 10 for only $12.00! 

C-20s — 10 for only $15.00! 

Add $2 per order for PAH; in CT add 7.5% lax. M.O., check, MasterCard, 
Visa. If paying by card, give card number, expiration date, sign order. 
Prompt shipment. 

Nine CHROME are in black, 5-screw shells; the 10th CHROME (in white) 
carries a half dozen of Emory Cook's fast-running business-oriented sub- 
routines with documentation. They're in R/S Level II Basic, some very 
sneaky. 

True digital transfer plus premium tape makes us the acknowledged prime 
duplicator of software for T.I., OSI, and all the Tandy, Apple. Pet, Atari, 
& fast formats. Write for further information, or call 203-853-3641. 

* tm t.* C00K LABORATORIES, INC. 

375 Ely Avenue Norwalk, CT06854 ^ 4 is 

Oldest in DIGDUP, newest in SOAP 
(If you don't know what SOAP stands for, place an order!) 



just once. Be very careful in Com- 
mand mode when requesting 
VARPTR for arrays. If you enter 
Print VARPTR(AN(0,0))by mistake 



when you really meant AB(0,0), 
you have just irrevocably lost at 
least 247 bytes (or 489 if A has not 
been declared an integer).B 



?2.2 








M = £2 


ADDRESS = 17692 


WHAT'S THERE? 205 


17689 4 


17690 


17691 77 


17692 205 


17693 


17693 66 


17699 


17700 72 


17701 10 


17702 143 


17703 4 


17704 


17705 66 


17706 


17707 56 


17708 10 


17709 143 


17710 4 


17711 


17712 88 


17713 233 


17714 1 


17715 2 


17716 11 


17717 


17718 11 


17719 


17720 


17721 








NO. OF BYTES USED FOR ARRAY = 489 






MEMORY LEFT 


- 14447 






10 :DEFINT A-Z::X(Q.0) = 1.1.CLEAR100 






10 


Fig. 3. 







RUN 






MEM 


VARPTR(B<p)) 


VARPTRfA) 


15200 


17509 


17497 


15148 






15207 


17502 




7 FC Error in 60 






READY 






> 


Fig. 4. 






«** 



EDITOR, ASSEMBLER AND MORE! 



SOFTWARE DEVELOPMENT SYSTEM 

The Micro Works Software Development System (SDS80C) is a complete 6809 
editor, assembler and monitor package contained in one Color Computer program 
pack 1 Vastly superior to RAM-based assemblers/editors, the SDS80C is non- 
volatile, meaning that it your application program bombs, it can't destroy your 
editor /assembler Plus it leaves almost all of 16K or 32K RAM free for your 
program. Since all three programs, editor, assembler and monitor are co-resident . 
we eliminate tedious program loading when going back and lorth from editing to 
assembly and debugging 1 

The powerful screen-oriented Editor features finds, changes, moves, copys and 
much more All keys have convenient auto repeat (typamattc). and since no line 
numbers are required, the full width of the screen may be used to generate well 
commented code 

The Assembler features aN of the following complete 6809 instruction set 
complete 6800 set supported for cross-assembly, conditional assembly: local 
labels, assembly to cassette tape or to memory; listing to screen or printer, and 
mnemonic error codes instead of numbers. 

The versatile ABUG monitor is a compact version of CBUG. tailored for debugging 
programs generated by the Assembler and Editor it features examine/change of 
memory or registers, cassette toad and save, breakpoints and more SDS80C 
Price: $89.95 



LEARN S809! 

6809 ASSEMBLY LANGUAGE PROGRAMMING. 

by Lance Leventhal contains the most comprehen- 
sive reference material available for programming 
your Color Computer Price: $16.95 




W CRACK THOSE ROMS! 

SOURCE GENERATOR: This package is a disassembler which runs on the color 
computer and generates your own source listing of the BASIC interpreter ROM 
Also included is a documentation package which gives useful ROM entry points, 
complete memory map, I/O hardware details and more A 16K system is required 
for the use of this cassette 80C Disassembler Price: $49.95 



CBUG IS HERE! 

MONITOR TAPE: A cassette tape which allows you to directly access memory I/O 
and registers with a formatted hex display Great tor machine language 

programming, debugging and learning it can also send/receive RS232 at up to 
9600 baud, including nosl system download /upload 19 commands in ali 
Relocatable and reentrant CBUG Tape Price: $29.95 

MONITOR ROM: The same program as above, supplied in 2716 EPROM I his 
allows you to use the entire RAM space And you don t need to re toad Ihe monitor 
each time you use it. The EPROM plugs into the Extended Basic ROM Socket or a 
modified ROMPACK CBUG ROM Price: $39.95 



PARALLEL O! 

USE A PARALLEL PRINTER with your Color 
Computer! Adaptor box plugs into the serial port and 
allows use of Centronics/Radio Shack compatible 
printers with parallel interlace. Assembled and 
tested PI80C Price: $69.96 



32K RAM! 

MEMORY UPGRADE KITS: Consisting of 4116 
200ns integrated circuits with instructions for 
installation 4K-16K Kit Price: $39.95. 16K-32K 

Kit (requires soldering experience) Price: $39.95 






• 109 



P.O. 



GOODSTUFFI WE SHIP FROM STOCK! 

O I U r r . Master Charge/Visa and COD Accepted 

BOX 1 1 1 DEL MAR. CA 9201 4 71 4-942-2400 
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Computer experts 
(the pros) usually have big 
computer experience. 
That's why when they shop 
system software lor Z80 
micros, they look for 
the big system features 
they're used to. And that's 
why they like Multi-User 
OASIS. You will too. 



DATA INTEGRITY: FILE & 
AUTOMATIC RECORD LOCKING 



The biggest challenge 

for any multi-user system 

is co-ordinating requests 

from several usei 

to change thia.saBkeM>rd 

at 



(THEN COMPARE.) 



Without this control, 
unauthorized users could 
access your programs and 
data and do what they like. 
A frightening prospect 
isn't it? 

And multi-users 
can multiply the problem. 

But with the Lo< 
Password 



memory is needed. Even 
if you have more than 64K, 
your pay-off is cost savi] 
and more efficient use 



OASIS IS AVAILABLE FOR 

SYSTEMS Alios Compucotp. Cromemcc 
Delia Products Digital Group. Digit 
Microsystems Dynabyte G odpo ut 
ndex. Intersystems. 
SO Systems. TRSJ 
Graphic Voni 





of all the me 

availab 

s 



sample: normally 
jserscan view a 
particular record at the 
same time. But, if that 
record is being updated 
by one user, automatic 
record locking will deny all 
other users access to the 
record until the up-date is 
completed. So records 
are always accurate, 
up-to-date and integrity 
is assured. 

Pros demand file & 
automatic record locking. 
OASIS has it. 



SYSTEM SECURITY: 
LOGON, PASSWORD 
& USER ACCOUNTING 



rwhat pur| 
ecurit^ 
ced' 
inj 

eepmhimory 
ser nas been 
n, when and 
r how long. 
Pros insist on these 
security features. 
OASIS has them. 



EFFICIENCY: 
RE-ENTRANT BASIC 



A multi-user system 
is often not even practical 
on computers limited 
to64K memory. 

OASIS Re-entrant 
BASIC makes it practical. 

How? 

Because all users use a 
single run-time BASIC 
module, to execute their 
compiled programs, less 



upports 
nals 
inWs little as 
ry. Or, with 
itching, as much 
784K. 

Multi-Tasking lets each 
user run more than one 
job at the same time. 

And there's our BASIC- 
a compiler, interpreter and 
debugger all in one. 
An OASIS exclusive. 

Still more: Editor; Hard 
& Floppy Disk Support; 
Keyed (ISAM), Direct & 
Sequential Files; Mail-Box; 



Scheduler; Spooler; 
all from OASIS. 

Our documentation is 
recognized as some of the 
best, most extensive, in the 
industry. And, of course, 
there's plenty of 
application software. 

Put it all together and it's 
easy to see why the real 
pros like OASIS. Join them. 
Send your order today. 



Controlling who gets on 
your system and what they 
do once they're on it is the 
essence of system security. 




OPERATING SYSTEM 

(Includes 
EXEC Language. 
File Management 



Us 



I Arc 



Devce Dnvers; 
Print Spooler. 
General Text 
Editor, etc ) 
SINGLE-USER 
MULTI-USER 



BASIC COMPILER/ 
INTERPRETER/DEBUGGER 



RE-ENTRANT BASIC 
COMPILER /INTERPRETER/ 
DEBUGGER 



DEVELOPMENT PACKAGE 

Macu Assembler. 
Linkage Editor. 
Debugger) 



TEXT EDITOR & 
SCRIPT PROCESSOR 



DIAGNOSTIC & 
CONVERSION UTILITIES 

I Memory Tes 1 . 

ibly Language. 



Co- 



Recovery. Disk Test. 
File CODy from 
other OS. etc ) 



COMMUNICATIONS 
PACKAGE 



File Send 4 Receive) 



PACKAGE PRICE 

(All ol Above) 

SiNGLE-USER 

MULTI-USER 



FILE SORT 



COBOL-ANSI 74 



$150 

350 



Manual 
Only 



$17.50 
'7 50 



Order OASIS f'onv 

Phase One Systems, Inc. 

7700 Edgewater Drive, Suite 830 

Oakland, CA 94621 

Telephone (415) 562-8085 
TWX 910-366-7139 

NAME 



STREET (NO BOX 


-) 


CITY 




STATE 
AMOUNTS 


ZIP 



(Attach system description; 

add S3 for shipping; 

California residents add sales tax) 

□ Check enclosed C VISA 

□ UPS CO D D Master-charge 

Card Number ' 

Expiration Date t 

Signature 



MAKES MICROS RUN LIKE MINIS 



n 



WINCHESTER DOES NOT MEAN FIXED DISK!! 

MMF is first to offer a 10-Megabyte, removable cartridge Winchester drive. These drives are 
the very leading edge of the Winchester technology drives. Versions are available for 
MODEL-I*, MODEL-II*, and MODEL-HI.* These fantastic drives are complete with 
TRSDOS* compatible operating system. We believe that this drive provides the best solution 
to the Winchester backup problem. It is available from stock. 

MMF-100R-1 10 Megabyte Modi or Mod-Ill* $5995.00 

MMF-100R-2 10 Megabyte Mod II $6995.00 

MMF-100F-1 10 Megabyte Fixed Winchester $5295.00 

The suffix R denotes Removable media, and F denotes Fixed media. 

THE FAMOUS MMF PORTABLE 5/10 MEGABYTE 
MAINFRAME COMPUTER SYSTEM 

This 48K computer is complete with TRSDOS* compatible operating system and 40-track 
floppy disk drive for backup and program exchange. See our ad pg 173 of July 1981 
80-Microcomputing for further details on this Portable Mainframe computer system. 

MOD-HI 5.3 Megabyte Computer System $6995.00 

MODEL-III Floppy Disk Controller $ 279.95 

Thanks to our high volume purchasing power, we are able to pass along our savings to you. 
This unit is priced complete with installation kit for only $279.95. It is the lowest priced, 
highest quality unit available, and features gold edge connectors. 

RCI Business Software for your MOD-IT 

Dental Management System $2995.00 

• Manages up to 10,000 patients • Maintains individual treatment plans on each patient 

• Pre-treatment estimate of charges • Prepares Insurance Claim Reports (including co- 
insurance) • Tracks all DENTICAL billings (incl. monthly analysis reports) • Maintains either 
CDS or ADA Codes • Allows up to 100 insurance companies (more if required) • Manages 
Accounts Receivable (with aging 31 to 91+ days) • Prepares monthly statements • Com- 
putes service charges, prepares overdue notices • Provides daily transaction analysis of 
charges, credits etc. • Prepares recall notices. 

Payroll System $550.00 

Inventory Management $499.00 

Accounts Receivable $299.00 

Tex-Editor ...!!!! $ 59.95 



§ Call for the location of your nearest Micro Mainframe dealer. 
J Dealer Inquiries Invited. 

| Micro Mainframe .■ < 

g 714 Alhambra Blvd. 

g Sacramento, CA 95816 

t (916) 447-7048 



u 
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UTILITY 



Apparat users, you don't have to copy 
an entire system of data disks just because you've changed its name. 



Rename 



David D. Busch 

515 E Highland Avenue 

Ravenna, OH 44266 



Rename is a utility allowing 
NEWDOS+ and NEWDOS- 
80 users to change the name of 
any System or data disk without 
having to recopy the disk. 

Why would you need to re- 
name a disk? Perhaps in reor- 
ganizing your files, you happen 
to move all the programs from a 
disk you have named Disk2 onto 
other disks. Rather than keep an 
empty disk in your file, it might 
be tidier to take the highest 
numbered disk and rename it 
Disk2. There are many other rea- 
sons for changing or updating a 
disk name and for correcting or 
altering the date on a disk. 

Making the change doesn't 
really require a special utility. 
Rename just streamlines the 
task actually carried out using 
Superzap. 

TRSDOS, VTOS, NEWDOS 2.1 
and NEWDOS 80 all store the 
disk name and date in the first 



sector of the directory track; this 
is track 17 (11 hex). The disk 
name is stored in eight bytes, 
relative bytes DOH to D7H in 
track 17. The date immediately 
follows at relative bytes D8H to 
DFH. To change this informa- 
tion, it is necessary only to re- 
place the values stored in those 
bytes with the hex equivalents 
of the ASCII codes for the char- 
acters you wish to substitute. 

Rename does all the work for 
you. The user enters the substi- 
tute strings, and the program 
calculates the hex codes. Com- 
plete instructions for making 
the fix using Superzap are 
printed to the screen, so even a 
user who has never used Super- 
zap can rename or redate disks 
with no trouble. 

An Example 

If someone wished to name a 
disk Testdisk and change the 
date to 01/05/81 , he or she would 
input those strings when 
prompted by the program, in 
lines 50 and 70, respectively. No 
complex error traps are used. It 
is assumed that the user has 
some basic familiarity with the 
naming requirements of disk. 
The program does check that 



the entered name is eight char- 
acters or less. If the input date 
does not equal eight characters 
exactly, the user is asked to re- 
input the string, using MM/DD/ 
YY format. In fact, any eight 
characters may be input for the 
date, but the two slashes must 
be in their proper positions on 
the disk to avoid later problems. 

The new name and date are 
examined one character at a 
time in a routine located in lines 
100-180. A For .. . Next loop of 1 
to 8 assigns the character of 
each position in turn of NME$ 
(line 110) to A$. Control then 
branches to a subroutine in 
lines 410-560. 

Here, the ASCII code (deci- 
mal) for the character is deter- 
mined (line 410), and that figure 
converted to hex. To do this, the 
code (B) is divided by 16 and the 
result, minus the remainder, is 
assigned to D1$. In hexadecimal 
notation, the first position to the 
left of the decimal point (the 
one's place) shows the number 
of digits from 1 to 16 (from 1 to 9, 
then A,B,C,D,E,F in hex). The 
second position to the left of the 
decimal point (the ten's place in 
decimal notation) shows the 
number of I6's. D1$ is a string 



representation of the number of 
16's in the ASCII code. Because 
Rename accepts only upper- 
case disk names with each char- 
acter having a decimal equiva- 
lent of less than 9F hex, no pro- 
vision has to be made in this pro- 
gram for converting numbers 
higher than that (A0, etc.). 

The remainder produced when 
B is divided by 16 is multiplied by 
16 to find the number in the ones 
column. If this number is higher 
than nine, it is converted to the 
equivalent hex figure at lines 
470-540. That is, 10 becomes A, 
1 1 becomes B, etc. 

This second digit's string rep- 
resentation (D2$) is then added 
to D1$ to produce the final hex 
equivalent of the decimal ASCII 
code. Control returns to the 
parsing subroutine. 

If the new name chosen for 
the disk is less than eight char- 
acters long, at some point MID 
$(NME$,N,1) will equal " " (tfutQ, 
and 20H (32 decimal), which is a 
space, is added to NME$(n), 
which stores the finished hex 
conversion of the name. 

During the same For. . .Next 
loop, DATES$ is also parsed, 
converted to ASCII in hex and 
stored in DATES$(n). 
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TRS-80* MOD III 48K 

WITH YOUR CHOICE OF MPI DISK 
DRIVES INSTALLED UP TO 4 MEG 
ON LINE STORAGE. 



48K MOD III with (2) INTERNA. <Ork DRIVES 

AS ABOVE EXCEPT WITH (2) INTERNAL 80trk DRIVES 

AS ABOVE EXCEPT WITH (2) INTERNAL 40/4C*k DRIVES 

AS ABOVE EXCEPT WITH (2) INTERNAL 80/8C*k DRIVES 

RS232 INTERFACE INSTALLED - ADD 

External odd on Drive Coble 

B51s-40trk S30900 B52 S 40/<0rt< 

B91 s SOtrk S 429 OO B92 s-80/80lrk 



KKX> W 'RSDOS 1 2 DlSKHTrr 
MOD III TRSDOS MANUAL 
MOO III DOSPLUS " 

" 'equirfxJ lex dcxjt:te head or mixed drives 

6 MONTH LEVEL IV PRODUCTS INC. 

LIMITED 32461 SCHOOLCRAFT 

WARRANTY LIVONIA MICHIGAN 48150 

ON PARTS toll free 8O0-521-33O5 

AND LABOR instate 313-525-62CO 

visa-master card-CO.D 



$1859 oo 
S21I9CO 
S214QOO 
S244900 
S 8POO 
S 2500 

S445CO 

S579CO 



S1495 

695 

9995 



1 



rveri. 



nraeBwe^*; 



m 



microcomputing 



BINDERS 

order 
yours 
today 



Keep your library of 80 Microcomputing safe from loss 
or damage in these handsomely appointed binders with 
rich dark green covers and gold lettering. Each binder 
holds 12 issues making on EXCELLENT REFERENCE HAND- 
BOOK. Several binders form a quality library you can be 
proud of. 

$7.50 eoch 3 for $21.75 6 for $42.00. . 
Postage paid in USA. Foreign orders please include $2.50 for postage 

Specify 1980 or 1981 

Send check or money order only to: 
80 MICROCOMPUTING BINDERS 
P.O. Box 5120, Phila., PA 19141 




Allow 66 .Nki lo. drtiv*<y 



PI*Oie no C O D ofO>n no phoo* cxOvs 



When the conversion is com- 
plete, the program prints out the 
following instructions, in this 
case using the string provided in 
our Testdisk example: 



Carry out the following steps: 

1) Load Superzap 

2) Hit Enter' 

3) Load disk to change in drive 

4) Enter (drive spec), 17,0 to prompts 

5) Enter MOD DO" 

6) Enter the characters shown below 

7) Hit Enter, V.and Enter again 

8) Exit Superzap 

54 46 53 54 44 49 53 48 
30 31 2F 30 35 2F 38 31 
Hit 'JKL' to send these instructions to print- 



Note: the program runs as-is 
on NEWDOS 80. Those using 
NEWDOS 2.1 with the Basic ver- 
sion of Superzap, which re- 
quires hex entries, change line 
240 to read: 



240 PRINT" 4) Enter (drive spec),ll.0 TO 
PROMPTS" 



In both cases, the user should 
substitute the drive number in 
which the target disk is con- 
tained (drive specification) in the 
above examples. Because Re- 
name was written for users of 
Superzap, I assumed that the 
JKL function would obviate the 
need to have a special printing 
subroutine. Those using other 
zapping programs with DOS that 
don't have a JKL equivalent will 
have to make necessary chang- 
es on their own. Because the 16 
bytes of hex numbers are diffi- 
cult to remember, the user will 
usually want to send the instruc- 
tions to a printer, if available. 
Those without a printer will have 
to copy the figures on a piece of 
paper.! 



1 - iillmmiiiiiiiiiiiiuiiiniiiHMii'iiiiiniiiii 

« I 

I DISK NAME/DATE CHANCER ( 

I • 

2 '« Br: DAVID D. BUSCH t 

I 315 E. HIGHLAND AVE. > 

• RAVENNA. OHIO 44264 t 

i I » 

II.1HI1.11...H.....HI1.IMKI111.II1I.M1..1..1 



:o 

20 
30 

40 

«g 

50 

tl 

70 

s: 
vc 

n 

100 
IK 

::: 
::<: 

14C 

ISO 
160 

170 

lac 

!8'j 

: vc 
ir; 
21: 

:::■ 
23: 

24C 

:s; 

:■><. 

2/i 
2d0 

2/; 

iM 

t:: 
32( 
332 
344 
350 
3bC> 
i.'O 
iBC 

jyc 

♦ 0; 

4i'. 

420 
430 

*4. 

450 
460 
4/0 



2.4: 
22: 
565 



CLEAR 500 

clsiprini 

print 'this program can be used to change 1he name an2 date of ' 
print "a disk. using superzap as an aid.* 

' "lllll ENTER NEW NAME AND OAIE mill 
INPUT 'PLEASE ENIER THE HEW NAME FOR THE DISK'SNHE* 

IF L£N(NHE«)>8 THEN PRIM 'SORRY. ONLY EIGHT CHARACTERS ALLOWED* IGOIO 50 
INF-UT "PLEASE ENTER THE. NEH BATE FOR THE DISK < USE rwrt/DO >*8DATE» 
IF UNI DATE* )>8 THEN PRINT-SORRY. ONLY EIGHT CHARACTERS ALLOWEfc" IGOT0 70 
IF LEN(BATE«KB THEN PRINT "USE WI/DD/YY FORMAT* ICOTO 70 
' *«**»» PARSE EACH CHARACTER OF NAME/DATE STRINGS »»»*«* 
FDR H->1 TO 8 
A»-MID*<Nn"EI.N,l) 

IF A*=" THE* NHEtlNM* 20 *:C0TQ 150 
GOSUB 410 
NME«< N >«HX$ 
A»»MIDNDAU*.N.l I 
GOSUB 410 
DATE«< N )-HX» 
NEXT N 

' iiiiu provide chancing instructidns »»»*•« 

cls:print:print 

print -carry out the following steps!" 



1 . ) LOAD SUPERZAP" 

2. ) HIT 'ENTER" 

3. > LOAD DISK TO CHANCE IN DRIVE* 

4. ) ENltK DRIVE SPEO.1/.0 TO PROMPTS" 

5. ) ENTER 'MOD BO'* 

6. ) ENTER THE CHARACTERS SHOWN BELOW." 
/. ) HIT ENTER. 'Y'. AND ENTER AGAIN* 
B. ) EXIT SUPERZAP* 



PRINT 
PRIM 
PRINT 
PR IN I 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR KM TO 8 

PRINT nheknt; 

NEXT N 

PRINT 

FOR N>1 TO 8 

PRINT DATE*(N)8 

NEXT N 

PRINT 

COrO T 3»0 H1T JKL ' T ° SiHb mU INSTRUCTIONS TO PRINTER* 

- mm 2jnver! tj he» mm 

B-ASU Al ) 

H2«H1-1NT(H1I 
MMQSU 
C1»-STR», INK HI I) 

ip hj.k ,HtN uj*-«iovsr«icHji.2.i):GOTc 55c 

UN Hi-B bu:u 4Hv.4yo.50).5i:.52C.530.540 

d_'»»"o-:goto 55« 

U2»-"A*:C0.'0 550 

D2»--B-:«,,u 350 

i:jl="C":G0TU 350 
U2»-."ll*:WTQ 550 
UJt-'-'E'TtUTO 550 
DJ«-"F*:C0T0 550 
MX»=D;«4S2* 
RETURN 



Program Listing. Rename 
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NO SYSTEM is the system many people 
use with their only priority being past dues. 

Billist keeps track of bills due, bills paid, check 
numbers, dates paid and even repetitive cash 
payments! 

Billist will keep track oi up to 100 accounts a month. 
Store data on an inexpensive cassette with a 
complete listing oi accounts, if printer equipped. 

Billist allows six priorities. 

Sort by prionty, name or date due; compress: delete; 
advises you when an account is late 1 

Billist becomes indispensable. . . providing current 
account information without digging through the pile. 

-THIS MONTH'S SPECIAL- 
7.95 for the listing (lib.) 
12.95 for the cassette (1 lb.) 
Required equipment RS. Lvl II or III with 16K 
STK #126 

MASTERGUESS 

. . .a challenge beyond Mastermind! 

Masterguess by Elf II offers a test of logic enhanced 
by the creative use of TRS 80 graphics. 

AVAILABLE NOW FOR ONLY $6.95 

Required equipment RS. Lvl II or HI, 16K STK #127 

SHIPPING RATES 

• $2.50 for first 3 lbs....65C ea. add'l. lb. 

• COD's add $2.00 

• Canadian order, please add 75<t per lb. 

• P.O. Boxes — include phone for UPS 
Please allow 2 to 3 weeks for checks to clear. 

3% cash discount (cash, check, money order or 
C.O.D.) 

P.O. Box 1567, Wheat Ridge, Colorado 80033 

Colorado Residents add 3% Sales Tax 

24 Hour phone Order Line 1-303-431-4154 




'ATA INC. 



^n 



COMPUTER ACCESSORIES & 
EQUIPMENT 



STOCK NO 



PRINTERS 



PRICE 



113 

114 

117 
118 
119 
120 
121 
122 
123 



Okidata microline 80 
Okidata microlme 82 
Okidata microline 83 
Tractors 

RS- 232-256 char, buf 
RS232 2K cl 
Epson Mx-80 
•Centronics 737-1(150.00 
MPI88G 
Vista Daisy Wheel 
NEC 5510 or 5530 



$ 389.95 

: 9.95 

784 

69.95 

180.00 

264 00 

525.00 

Rebate) 734.95 

659.00 

1545.00 

2845.00 



Shipping and insurance included on all Printers to 48 
continental states. Blue Label to Hawaii and Alaska available. 
STOCK NO RIBBONS PRICE WT. 



10Q 

110 
111 



Zip pack lp i, n; IV 

Mulbstrike carbon 
Diablo hy type 
Qume 
NEC 



$17.75/4 

12.95/3 

9.95/3 

20.45/3 



lib. 

lib. 
lib. 
lib. 



VERBATIM 

w/ DATALIFE- (with hub rings) 



103 
104 



106 
107 



MD 525-01, 26.95 

MD 525-10 26.95 

MD 525-16 26.95 

(for plastic box, add $1.00/box) 
10 boxes, mix or match $252.50 



lib. 
lib. 
lib. 



FD 34-8000 

with hub nng 
and hard box 



39.95 

bOOO) 

43.95 
(xlO $40000) 



21b. 








CASSETTES TDK/ 
MAXELL 


PRICE 


SHPG. 
WT 


100 
101 
102 


D-C30/LN-30 
D-C60/LN-60 
D-C90/LN-90 

TERMINALS 


$14.95/10 

18.45/10 
22.95/10 


31b. 
31b. 
31b. 


124 


HazeltineH1410 

MEMORY CHIPS 


$765.00 
(free shipping) 





125 



Motorola $21.95/8 

MCM 4 1 16 AC 20; (shunts not 
16K200 ns. memory included) 
chips for mod I, 
expansion interface 
and mod III 

ONLY 50 SETS AVAILABLE 'Quantity limited 



2 lbs. 



v< St List of Adfttisers on pagt 354 
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GENERAL 



A great program for Saturday mornings. 



80 Cartoon Capers 



Darren DeVigili 
439 South River St. 
Wilkes-Barre, PA 18702 



'he TRS-80 cartoon is here. 
This program uses 2.7K 



bytes, and can be adapted by 
even the novice programmer. 
I've included several sub- 
routines to save time and 
memory while adapting the pro- 
gram. 

Disk sound (almost) prints 
WHRRRR... and goes to a delay 



subroutine. Clear desk clears 
the graphic desk (it has a bar for 
graphics across it), and clear 
screen clears the 80's screen. 

The graphics are generated 
using the CHR$, STRINGS and 
POKE functions using the (X) 
and (Z) variables. The variable 



(X) saves memory in assigning 
character codes, but is also 
used in all loops. (Z) is used in a 
double loop. 

Before any lengthy adapting, 
I suggesfwriting down the line 
numbers and functions of the 
subroutines to save time. ■ 



10 REM * TRS-80 CARTOON * 

20 GOSUB730:REM * LOOP THROUGH AND RUN ANY ADDITIONS * 

30 REM *** START ADDING HERE *** 

700 REM * WHITE SCREEN * 

710 FORX=276T0483STEP64:PRINTgX,STRING$(16,191) ; : NEXTX : FORX=578T 

0637 :PRINTgX, CHRS (191) ; : NEXTX :GOSUB920 : FORX=1536 0TO1 6383 : POKEX , 1 

91: NEXTX 

720 REM * TRS-80 GRAPHICS * 

730 CLS :PRINT0210, CHRS ( 131 );:PRINT0211,CHRS( 163), -:PRINTe512,STRI 

NGS(21,176) ; : PRINT0212, STRINGS ( 16 , 179) ; : PRINT0228 ,CHR$( 144) ; :PRI 

NT0531, CHRS (178) ;: PRINT0532 , STRINGS (16 ,179) ; : PRINT0228 ,CHRS(147) 

; :PRINT@229, STRINGS (5, 131) ;:PRINT0548, CHRS (177) ; 

740 X=170:PRINT0549,CHR$(176) ; : PRINT§550 ,CHR$(177) ; : PRINT0551 ,CH 

RS ( 178) ;:PRINTe552, STRINGS (2, 176) ; :PRINT@209 ,CHRS(X) ) : PRINT0273 , 

CHRS(X) ; :PRINT0337,CHRS(X) ; : PRINT0401 ,CHRS(X) j : PRINT0465 ,CHRS(X) 

;:PRINTe529,CHRS(X); 

750 PRI*JTe275,CHRS(X);:PRINT@339,CHRS(X);:PRINTe403,CHR$(X) ; j PRI 

NT§467,CHRS(X) ; :X=149 : PRINT0292 ,CHR$ (X) ; :PRINT§356 ,CHR$(X) ;:PRIN 

10420, CHRS(X) ;:PRINT?484,CHRS(X) ; 

760 PRINT@234,CHR$(X) ; : PRINT?298,CHR$(X) ; : PRINT0362 ,CHRS (X) ;:PRI 

NTM26,CHRS(X) ; : PRINT04 90 ,CHRS(X) ; :PRINT05 54 ,CHR$(X) j:PRINT0294, 

CHRS (156) ;: PRINT0295, CHRS (140) ;:PRINTe296,CHRS(172) ; : PRINT0358,C 

HRS(141);:PRINTe359,CHR$(140);:PRINTe360,CHRS(142); 

770 REM * DISK GRAPHICS * 

780 PRINTe555,CHR$(181);:PRINTe491,CHR$(X);:PRINTe427,CHR$(X) . .p 

RINT@562,CHR$(X) ; : PRINT0498 ,CHR$ (X) ; : PRINT0434 ,CHR$ (X) ; 

790 PRINT§364, STRINGS (6, 140) ; : PRINT0556 .STRINGS (6 , 176) ;: PRINT036 

3,CHRS(156) (:PRINTe370,CHRS(14 8);:PRINTe494,CHRS(171);:PRINTg430 

t CHRS ( 168) ; 

800 PRINT0563, CHRS (1 81 ) ; : PRINTS499 , CHRS (X) ; : PRINTP435 ,CHRS (X) ; • P 
RINT?570,CHRS(X) ; : PRINT0506 ,CHR$ (X) ; : PRINT0442 ,CHR$ (X) ; 



810 PRINT0372, STRINGS (6, 140) ;: PRINT056 4 , STRINGS (6 , 176) ;:PRINT?3 7 

1, CHRS (156) ;:PRINT037 8,CHRS(14 8) ;: PRINT0502 , CHRS ( 171 ) ;:PRINT043 8 

,CHRS(16 8) ;:PRINT0571, STRINGS (5, 176) ; 

820 REM * DESK GRAPHICS * 

830 PRINT0576, STRINGS (2, 191) ; : PRINT0638 , STRINGS ( 2 , 191) ;:FORX=16 

00TO16 3 83:POKEX,191:NEXT:X=219:PRINT0721,CHRS(X) ; : PRINT07 85 ,CHRS 

(X) ; :PRINT0849,CHRS(X) ; : PRINTG913 ,CHR$ (X) ; : PRINT0977 ,CHR$ (X) ; : GO 

SUB93 0:GOSUB920:GOSUB960 

840 REM * PRINT ROUTINES * 

850 PRINT8277, STRINGS (14, 42) ; : PRINT0340 , " '"PRESENTING* *« " ; : PRIN 

T046 9, STRINGS (14, 42) ; : PRINT0404 , "*«*»*TRS-80»****" ; 

860 GOSUB930:PRINT@404,"****GRAPHICS****";:PRINTg340,"****COMPUT 

ER****"; :GOSUB930:GOSUB920:GOSUB950 

870 PRINT0277, "RADIO SHACK" ;: PRINT0341 , "LEVEL II BASIC" ;: PRINT04 

5, "READY"; : PRINT0469 , * >" ; CHR$ ( 95) ; :GOSUB93 : PRI NT 0470 , "RUN" ; 

880 REM * BOUNCING DOT GRAPHICS * 

890 FORX=578TO635STEP4:PRINT0X,CHR$(131) ;: F0RZ-1TO25 : NEXTZ : PRINT 

0X,CHRS(193) ; : PRINT0X+1 , CHRS ( 140 ) ; : FORZ=1T025 : NEXT2 : PRINTgX+1 ,CH 

RS(193) ; :PRINT0X+2,CHRS(176) ; 

900 FORZ=1TO25:NEXTZ:PRINT0X+2,CHRS(193) ;: PRINT0X+3 , CHRS ( 140) ; : F 

ORZ=1TO25:NEXTZ:PRINT@X+3,CHRS(193);:NEXTX:GOTO30:REM * RELOOP * 

910 REM * SUBROUTINES * DISK * DELAY * CLS DESK * CLS * PLUG * 

920 PRINT@303,"WHRRRRR...";:GOSUB93 0:PRINT§3 03,CHRS(202) ;:FORX=l 
TO50: NEXTX: RETURN 
930 FORX=1TO1500: NEXTX: RETURN 

940 FORX=578TO637:PRINT0X,CHR$(193) ;: NEXTX : RETURN 
950 FORX=276T0483STEP64 : PRINT0X , CHRS ( 208) ; : NEXTX : RETURN 
960 PRINT0579,"- TRS-80 IS A REGISTERED TRADEMARK OF TANDY CORPO 
RATION. -";:GOSUB930:GOTO940 

970 REM * TRS-80 CARTOON BY DARREN DEVIGILI 439 S RIVER ST * 
* WILKES-BARRE PA 18702 PHONE (717) 823-9128 * 



Program Listing 
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MDX-2 System Expansion 
for TRS 80's 

The new MDX-2 system expansion board from 

|COMPUTEX provides more capabilities then eny other 
tystem expension currently evelleble. 

FEATURES INCLUDE 

• Capability to build only what you nead. 

• Silk screened and solder masked P.C.B. 

• Dtp switches are used instead ot hardware jumpers 

• No messy vertically mounted termination resistors. 

• On board direct connect modem kit $39 95 

• 2K/4K Eprom kit $17.95 

• RS232'20m.A. serial interface $17.95 

• Real time clock kit $1795 

• Floppy disk controller kit $31 95 

• 32K RAM expansion kit (less Ram) $1195 

• Cassette pol $3 95 

• Analog power supply $29 95 

• MDX-2 printed circuit board $74 95 

• Hardware and socket kit S19 95 

• Centronics lino printer port $8 95 

Buy just the system expansion board and those kits you 
want, or save even more and buy the complete kit 
MDX-2 KIT COMPLETE 
$269.00 



DISK DRIVE SALE 



TANDON TM100-1 

8are Drive $235.00 With case/supply $285 00 

Single sided 40 track • 102KB Single Density 180KB Double Density 

TANDON TM 100-2 
Bare Drive $335.00 With case/supply $385.00 

Double sided 40 track • 204KB Single Density. 360KB Double Density 

TANDON TM100-3 

Bare Drive $335.00 With case /supply $365 

Single sided 80 track • 204KB Single Density 360KB Double Density 

TANDON TM100-4 
Bare Drive $455 With case/ supply $505.00 

Double sided 80 track • 408KB Single Density. 735KB Double Density 

All TANDON drives from COMPUTEX come with comprehensive 
users manual TANDON maintenance manua' and schematics. In 
addition, all drives are electrically tested before, during and after their 
48 hour bum in. 

DISK DRIVE ACCESSORIES 

Two Drive Cable $24.95 

Four Drive Cable $34.95 

Drive Extender Cable $14.95 

Model III Second Drive Cable $4.95 



Model III Disk Drive 
Kits & Drives 

Nov, available from COMPUTEX a Radio Shack Disk Drive 

Kit for your Model III for only $429.96. 

Compare these standard features on our list to the others 

1 Drive Controller Board 

2 All necessary interconnecting cables 

3 Switching Power Supply 

4 Disk Dnve Mounting Brackets 

5 Internal Disk Drive Cable 

6 Comprehensive installation and theory manual 

7 16K RAM 

COMPLETE MODEL III ORIVE PACKAGES 

These packages an ioc ude. the Model in Disk Dr.ve Kit 
and the Micro Systems Software Model III DOS 
M3DK-1 (2-TM 100-1 Drives provides over 

3S0K Bytes storage 919 95 

M3DK-2 (2-TM'OO 2 •loublo headed drives) provides 

over 700K B> tes storage 1 . 1 49 9*> 

M3DK-3 (2-TM100-3 80 track drives) provides over 

700K Bytes storage 1,199 95 

M3DK-4 (2-TM'00-4 doube headed 80 track drives) 

r-ov jes ove- i - M Bytes star iqi 1,399.95 



COMPUTEX Comprehensive Test Program 

As one of the leading suppliers of disk drives and TRS80 systems, we 
had to have a systems test program that we knew worked. Since no 
complete systems test program already existed, we wrote our own. The 
COMPUTEX COMPREHENSIVE TEST (CCT) program was written 
exclusively for COMPUTEX and is now available to everyone 

Features 

OISK DRIVE SPEED TEST • DISK DRIVE ALIGNMENT PROGRAM- 
EXPANSION INTERFACE RAM TEST • KEYBOARD RAM TEST • VIDEO RAM TEST 
KEYBOARD BOUNCE TEST • ROM CHECKSUM PROGRAM 
FULL SCREEN RAM DISPLAY PROGRAM 
'The Drive Alignment Program requires an Alignment Disk 

The CCT program Is a must for disk drive users and should be a part 

of everyones library. 

CCT Program $21.95 
Dysan Alignment Disk $39.95 
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LNW COLOR COMPUTER KIT 
S499 95 

OessP C.B ) 
Includes all components to assemble the LNW color computer high 
resolution video RAM and 16K user RAM. keyboard, and Level II compatible 
ROMS Printed circuit board not included 

LNW EXPANSION INTERFACE KIT 
$219.95 

dess P.C.B ) 
Includes all components to assemble the LNW Expansion Interface plus 32K 
0l RAM It does not include the printed circuit board, dual cassette relay or 
cabinet 



A beautitul custom all wood cabinet 
ExpaiS'on 'rterlace $99.95 



is available lor housing the LNW 



ONE YEAR GUARANTEE 

on our 200 NS 16K Memory Kits 
S ??■ <* 32K - $45 95 48K - $74 95 

These are top quality, new memory chips at unbelievably low prices 




(713) 488-8022 



OAAPUTEX 



\ i ECTRQNIC5 I 'I ii"» i . 'i h l i 

321 El Dorado Blvd. • Wobetor, Tx. 77598 

Visa and Mastercard accepted 
Personal and company checks require two weeks to clear 

Please visit our new showroom just oft the Gulf Freeway. 
We have expanded, changed our name back to COMPUTEX, 
added more personnel in order to offer you complete service 
jndjeliablli^ ii ^^^^^^^^^ m ^^^^ mm ^^^^^^ mmm 



'See List ot Advertisers on pmgm 3S4 
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TECHNIQUE 



Let your programs perform surgery on themselves. 



Slice & Dice Basic 



J. Stewart Schneider 
Fit. 6 Box 244 
Ashland, KY 41101 



Did you ever wish you could 
make a Basic program 
alter itself? Assembly language 
programmers do it all the time, 
and just because you're a sensi- 
ble sort who programs in Basic 
doesn't mean you have to take a 
back seat to the hexadecimal 
set. 

Radio Shack's Level II Basic 
is a wondrous critter. You can 
learn it in no time, it's relatively 
fast, and it'll give you your 
answers to 17 decimal places. 
Unfortunately, the machine 
holding this wonderful language 
is hooked up to the damnedest, 
most frustrating piece of ma- 
chinery known to man— that 
blasted tape recorder. As if that 
weren't enough, those of us 
without the necessary $500 are 
stuck with 16K. 

So why develop a technique 
for making Basic lines alter 
themselves? Accuracy and 
memory is why. You need accur- 
acy because if data lines could 
alter themselves, the CLOAD 
function c ( ojjld be used to verify 
that the «f|pe machine had 



recorded things properly. Mem- 
ory is important because alter- 
ing a line to do more than 
one thing means a reduction in 
the number of lines in a pro- 
gram, and that's good. 

Before we find out how to do 
this, we'll have to check in brief- 
ly with the assembly language 
group to better understand what 
we're talking about. A given 
hunk of code, while executing, 
can make decisions about what 
later code should be. Because 
both assembly data and assem- 
bly code are just numbers locat- 
ed at specific addresses, an as- 
sembly program can easi ly elect 
to treat program code as if it 
were data and alter it to meet 
changed circumstances. This is 
called self-modifying code. 

We'll use a simple example. 
Let's imagine a line of assembly 
code in a larger program. At the 
line in which we are interested, 
the program must compare two 
numbers to find which is larger. 
We know that if the first number 
is larger, then a later line must 
read, "Subtract 13 from the ac- 
cumulator". If the second num- 
ber is larger, the same line must 
later say, "Add 37 to the accu- 
mulator". 

We could, of course, write two 
routines, one to subtract 13 and 
one to add 37, and branch to the 
correct one. However, this par- 



ticular example wouldn't illu- 
strate my point. 

Assembly codes reside in 
definite addresses in memory, 
like pigeons in a bunch of 
pigeon holes. This is our pro- 
gram, so we know what address 
the add or subtract instruction 
will be found in and also where 
its data will be. So instead of 
writing two routines, we can jam 
the proper instruction and the 
proper data byte into the proper 
pigeon holes, and have one 
routine doing the work of two. 

Self-Modifying Basic 

We can pull the same thing 
off in Basic! If we knew where 
the pigeon holes were that Ba- 
sic uses, and what should be 
in them, we could jam other 
things in, using POKE, just like 
we did above, and the Basic 
line would modify itself. What 
we need to know is "where?" 
and "what?". Both questions 
are answered in the way a 
Basic line is stored. 

Let's take a sample line, the 
first and only line, in a program: 
10 INPUT A. This line is stored in 
memory starting at address 
17129. (This is stated in the 
Level II handbook.) What is 
stored at 17129, however, is not 
what we see on the screen, but 
the low byte of a pointer to the 
beginning of the next line. 17130 



contains the high byte. I know 
this seems silly, but it's how a 
Z-80 chip thinks. 

The next two addresses, 
17131 and 17132, contain the 
low and high bytes of the line 
number 10 respectively. Next 
comes the program text, but in 
code. Basic instructions are 
stored in memory in the form of 
one-byte tokens which Basic 
expands into words for a list. 
Humans don't understand to- 
kens and computers don't un- 
derstand words. Basic under- 
stands both. 

The next byte, therefore, con- 
tains the token for input, which 
is listed in the Level II handbook 
as 137, followed by a 32 (space) 
and a 65 (ASCII "A"). The line 
ends with a zero to signal end- 
of-line. End-of-program is sig- 
naled by two zeros in place of 
the pointers in the next line, so 
all programs end with three 
zeros. 

Making it Work 

We now know to make one 
routine do the work of two. I had 
written a long program in Basic 
which dealt in large arrays. So 
large, in fact, that reading them 
from cassette or writing them to 
cassette, one element at a time, 
took nearly an hour. If I was go- 
ing to make the program useful 
at all, I would have to cut tape 
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time radically. To do it, I wrote 
the tape routines so they would 
tape 14 elements at a pass, 
which resulted in a very long 
tape routine (see Program List- 
ing 1). My machine cheerfully 
advised me that I was out of 
memory. 

Glaring balefully at my pro- 
gram for places to pare, I real- 
ized that my two tape routines 
were identical except that one 
said Print#-1 and the other In- 
put#-1. 

"Hmmm," I thought. . ."if I 
knew where that print token was 
in memory, maybe I could POKE 
the token for input and make the 
one routine function as both an 
input and an output routine. But 
would mucking about with a 
command token destroy my ar- 
rays in the same way Editing 
does?" (It does, you know, which 
is most inconvenient.) 

First, I wrote Program Listing 
2, which I added to the end of my 
program. Without dimensioning 
my arrays, there was plenty of 
room. Listing 2 follows the 
pointers from line to line, calcu- 



lating the line numbers and 
comparing them with the target 
line number. If the target line 
number is found to begin at ad- 
dress N, then N and N + 1 would 
be the pointer for the next line. 
N + 2 and N + 3 would be the line 
number. Address N + 4, the first 
address in the text portion of the 
line, would contain the token for 
print. Running Listing 2 for each 
of the lines containing Print#-1 
in Listing 1 gave me my address- 
es. What remained was to POKE 
the input token into these ad- 
dresses and see if my arrays 
would come through this har- 
rowing process unscathed. The 
result is in Program Listing 3. 

When Listing 3 is run, the first 
order of business is to load the 
tape files into the proper arrays, 
so line 70 POKEs the input token 
into the addresses found by 
Listing 2, altering lines 110, 140 
and 170 to input lines. If the pro- 
gram were Listed at this point, 
these lines should read Input*- 1 
instead of Print#-1. After the 
tape files have been read, line 
180 POKEs 178, the print token, 
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Here's the ideal way to keep your 
growing collection of 80 Micro- 
computing in order! The 80 Micro- 
computing Library Shelf Boxes 

sturdy, corrugated, white, dirt-re- 
sistant boxes will keep your issues of 80 Microcomputing orderly 
and available for constant reference Self-sticking labels are 
available for the boxes, too, not only for 80 but a Iso for Kilobaud/ 
Microcomputing, 73 Magazine, CQ, QST, Ham Radio, Personal 
Computing, Interface Age, Byte and Radio Electronics Ask for 
whichever labels you want with your box order. Each box holds a 
full year of the above magazines Your magazine library is your 
prime reference: Keep it handy and keep it neat with these strong 
library shelf boxes. One box (BX1000) is $2.00, 2-7 boxes (BX1001) 
are $1 .50 each, and 8 or more boxes (BX1002) are $1 25 each Be 
sure to specify which labels we should send Shipping and han- 
dling charges are $1.00 per order Call in your credit card orders 
on our toll free line 800-258-5473, or use the order card in the back 
of the magazine and mail to 



SO 



microcomputing 



Peterborough, 
NH 03458 



Please allow A-b weeks toi deliver Mo < Ol) order- 
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COLOR COMPUTE 



RAMCHARGER 
32K UPGRADE 

Space Invaders 

Meteoroids 
Space War 



• The Best Games Available 

• High Resolution Graphics 

• Fast Machine Language 

• Compatible w/ Ext Basic 

• $21.95 each, $59.95 for all three 
EXTENDED BASIC GAMES 

• LOTHAR'S LABYRINTH) 
Word Search Puzzle 

• BATTLEFLEET 

Battleship Search Game (one or 
two players) 

• SPACE TRADERS 

Galactic trading game 

$14.95/ea. 



EXTEND MEMORY TRS-80 

FROM 16Kto32K 

100% Compatible With 

Extended Basic 

No Soldering Or Modification 

Fits Inside Computer 

$99.95 . , 



ADVENTURE 




Combat the powers of darkenss and 
evil! Can you recover the treasure of 
the Golden Sorcerer before his 
minions overcome you. A 
adventure for endless hours of fun 
and excitement. $ 1 9.95 

THE FACTS 




At last, a complete description of 
the "guts" of the Color Computer. 
Specs on all the ICs, complete 
schematics, theory of operation 
and programming examples. 

$14.95 

UTILITIES 



EDITOR/ ASSEMBLER $34.95 

SUPER MONITOR 19.95 

EPROM PROGRAMMER 89.95 

(Program your own ROMs for the ROM-PAC port) 

MAGIC BOX 24.95 

Load MOD I/HI Tapes into the color computer 

Coming Soon: Software speech 
synthesis. 

Improved Videotex with 
printout and many 
other features. 




SPECTRAL 
ASSOCIATES *L 

141 Harvard Ave. 

Tacoma. Washington 98466 

(206) 475-8483 

WRITE FOR COMPLETE 
CATALOG 

ADD 3% FOR SHIPPING 

VISA OR MASTERCHARGE ACCEPTED 



1 / /«» nt Mrlvmrli*mr* . 
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1$ ' DOCKET CONTROL VERS. 4.9X 16K LEVEL II BASIC 4/28/89 
29 REM • COPYRIGHT 1989 BY J. STEWART SCHNEIDER * 
39 CLEAR1599:Z8-3:Z9*38:DIH D(299,2):DIM ATS (29) :DEFINTP,C,X:DI« 
NS(299):DIM C( 299,2) :FORX=9TOZ9:READATS (X) :NEXT:REM •« Z9 - I 
F ATTORNEYS +1 •« 

49 UlS""M.tMI":U2$ = "M.»M*:HD$ = "IND. NO. JUDGE/NO. ARRA 

IGNED B/P DUE TRIAL DATE ■*■■»■■**.»■.■•.■■«»»<«•»»■•»- 

59 J1$-"(ASB.) *:J2S«"(SIN.) ":REM ** J1S a J2S ARE THE JUDGES' NA 

MES 

69 ' TAPE READ ROUTINE 

79 TAPE%=1:CLS:IS-"READING: " : INPUT'REWIND DATA TAPE, PRESS PLAY 

ONLY, THEN TAP <ENTER> KEY' ; AS: INPUT»-1 ,F:GOT099 
99 TAPE%=TAPE%-l:CLS:PRINTg495, "THERE ARE' ; F; "CASES IN THE FILE" 

199 F0RX«lTOFSTEP7:PRINTe469,IS;X;"TO"jX+6 

119 INPUTI-1,D(X,1) ,D(X,2),D(X+1,1),D(X+1,2) ,D(X+2,1) ,D(X+2,2) ,D 

(X+3,l),D(X+3,2) ,D(X+4,1) ,D(X+4,2) ,D(X+5,1) ,D(X+5,2) ,D(X+6,1) ,D( 

X+6,2) 

129 NEXTX 

139 FORX=lTOFSTEP7:PRINTg46 9,IS;X;"TO";X+6 

149 INPUTI-1,C(X,1) ,C(X,2) ,C(X + 1,1) ,C(X + 1,2) ,C(X+2,1) ,C(X+2,2) ,C 

(X+3,1) ,C(X+3,2) ,C(X+4,1) ,C(X+4,2) ,C(X+S,1) ,C(X+5,2) ,C(X+6,1) ,C( 

X+6,2) 

159 NEXTX 

169 FORX-1TOFSTEP7 : PRINT§469 , I S;X; "TO" ;X+6 

179 INPUT#-1,NS(X) ,N$(X+1) ,N$(X+2) ,N$(X+3) ,N$(X+4) ,NS(X+5) ,N$(X+ 

6) 

189 NEXTX :GOT05B9 

185 ' TAPE RECORD ROUTINE 

199 INPUT'REWIND DATA TAPE, ERASE, PRESS PLAY f, RECORD THEN TAP 

<ENTER>";AS:PRINTI-1,F 

299 FORX=lTOFSTEP7;PRINTg469,IS;X;"TO";X+6 

219 PRINTI-1,D(X,1) ,D(X,2),D(X+1,1),D(X+1,2),D(X+2,1),D(X+2,2),D 

(X+3,1) ,D(X+3,2) ,D(X+4,1) ,D(X+4,2) ,D(X+5,1) ,D(X+5,2) ,D(X+6,1) ,D( 

X+6,2) 

229 NEXTX 

239 FORX-lTOFSTEP7:PRINTg46 9,IS;X;"TO";X+6 

249 PRINT»-1,C(X,1) ,C(X,2) ,C(X+1 ,1) ,C(X+1 ,2) ,C(X+2,1) ,C(X+2,2) ,C 

(X+3,1) ,C(X+3,2) ,C(X+4,]),C(X+4,2),C(X+5,l),C(X+5,2) ,C(X+6,1) ,C( 

X+6,2) 

259 NEXTX 

269 FORX=lTOFSTEP7:PRINTP469,IS;X;"TO";X+6 

279 PRINTt-l,NS(X) ,NS(X+1) ,NS(X+2) ,NS(X+3) ,NS(X+4) ,NS(X+5) ,NS(X+ 

6) 

289 NEXTX 



Program Listing 1 



into these same addresses, 
changing the lnput#-1 back to a 
Print#-1 so that the updated 
files can be recorded at the end 
of the run. 

To my astonishment, it 
worked. The lines altered them- 
selves docilely and my arrays 
went untouched. Listing 3 does 
the work of Listing 1, but with 
only one tape routine. The out- 



of-memory error went away to 
plague someone else. 

Data Statements 

So what about data state- 
ments, you ask? As places to 
store information, data state- 
ments are gems. They load at 
the full 500 baud and they can be 
verified by a CLOAD. They do 
not, however, lend themselves 



to easy alteration. 

Since it is a part of the pro- 
gram, a data line must be al- 
tered through the editing func- 
tion. This involves stopping the 
program, entering the Edit 
mode, deleting the old data, and 
inserting the new. If the data is 
frequently updated this rapidly 
becomes a source of potential 
error. And, if the program is to be 
run by persons with little train- 
ing in programming, chaos will 
probably result. 

But if the program could be in- 
duced to find the appropriate 
data statement, the updated 
data could be POKEd to replace 
the old, and the program re- 
saved and verified. We only 
need to know how information is 
stored in a data statement. 

Data statements are no dif- 
ferent from other lines in the 
layout of pointers and line num- 
bers. Some judicious PEEKing 
about in a sample data line 
shows that numerical data is 
stored as ASCII codes instead 
of the actual value, presumably 
to save space. 

For whatever reason it is done 
that way, ASCII representation 
means that we can mimic a data 



line with the string functions. If 
there is room enough in the data 
line, this string of data can be 
simply POKEd into it following 
the data token of one character 
at a time by using the MID$ func- 
tion of Level II BASIC. 

For those not familiar with it, 
MID$(L$,X,Y) returns a string of 
length Y, beginning with the 
character in position X of L$. In 
Listing 4, we use MID$(P$,X,1) 
which returns the character at 
position X in P$. 

Our approach is to first verify 
that there is enough room in the 
data line to contain the new in- 
formation. You must leave 
enough room by spacing past 
the least data element when wir- 
ing the line. POKEing new data 
into the final zero and the follow- 
ing line pointers will result in un- 
told unpleasantness. If enough 
room is available, we will clear 
all addresses following the data 
token except that final zero by 
POKEing an ASCII blank (32) into 
each address. This removes the 
old data. Next, we convert our 
new data from numerical form 
to strings using the STR$ func- 
tion. The string representations 
of our numbers will then be con- 



19999 INPUT'LINE NUMBER SOUGHT" ;R: N=PEEK ( 1 71 29) +PEEK ( 17139) «256 

19919 Nl«PEEK(N+3)*256+PEEK(N+2) 

19929 IF NOT Nl =R THEN N=PEEK ( N+l ) »256+PEEK (N) :GOT01991 9 

19939 PRINT-TOKEN FOUND AT" ;N+4; "CODED" ; PEEK (N+4) :GOT019989 



Program Listing 2 




♦HARNESS* 

♦GREYHOUND* 

HANDICAPPING AIDS 

put a computer on vour side, 
and get into the winning 

HABIT WITH WflMuil SOFTWARE 
HANDICAPPING AIDS 

Designed exclusively for use with 'TRS-BO (Model I or 
Pocket Computet versions!, we believe our HARNESS and 
GREYHOUND software handicapping aids are the most 
advanced and useful such systems available anywhere. With 
our software, your home computer does all of your difficult 
and tedious handicapping chores quickly, effortlessly, and 
accurately in the quiet and comfort of vour home lor with 
the pocket computer, take it to the track with you. I Not 
simply a mathematical exercise tool, rather years of research 
have gone into the development of the algorithms used. 
Designed for ease of operation while insuring a most com- 
prehensive approach. Both aids are available on cassette and 
disk (514" and 8') formats and include a useful easy-to-read 
Users Manual (NOTE In addition to •TRS-80's Model I 
and Pocket Computers, both systems are available in 
MBASIC for "CP/M). Requires minimum 16K Level II 
Shop around-you can t Beat the WelMur value-the most 
cost effective systems on the market Just $29 95 for 
cassette and $34 95 for disk plus $1 00 for handling and 
shipping costs (Calif, add 6% sales taxi. Save with the 
purchase of two or more like systems Dealer discounts 
available Allow three weeks for delivery 

Send Check, Money Order or request for additional informa- 
tion, to. 

WelMur of California. Inc. ^41 1 

P.O. Box M-11C 

Fremont, CA 94537 



"Trademark o' Tandy Co-p 



'ademarh of Digital Re 



TRS-80 

COMPUTER 
DISCOUNTS 



• Factory Direct 

• Best Prices Anywhere 

• No Out-of-State Taxes 

• Full Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 
Radio Shack Associate Store #7053 

175 N. Delsea Drive ^410 
Vineland, N.J. 08360 
(609) 691-7100 



********************* 

*"TRS~QO* 

COLOR 
COMPUTER 

16K. Meiory Conversion Kit % 59.95 

32K. Heeory Conversion Kit $119.95 

32K. Kit (for 16K.systei) $ 59.95 

KIT Less rleeory (each) $ 12.00 

Kits can be installed inside the 
COLOR COMPUTER Nithin 15 einutes, 
coees with Hetory Test Protjrai, 
and ire completely GUARANTEED 

CULPEPER COMPUTER DESIGNS 
502 SOUTH EAST STREET ,-484 
CULPEPER, VIRGINIA 22701 

********************* 
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n WEST COAST / EAST COAST [} 



EPSON MX-80 



INTERFACES: IEEE $56, TR8-80 $35, 

APPLE INTERFACE $ CABLE $00, 
R3-232 $70 



"N 




EPSON MX-80FT 
MX-100FT 



$599 




No Surcharge for Credit Cards Orders • v\e Accept C.CD.'s 
AE Equipment Factory Fresh With MFT. Warranty • Stock Shipments Same Day or Next 



$205&V 
$2799 
$3195 
$2495 
$2495 
$ 399 
$ 529 
$769 
$1189 
$ 545 
$ 435 
$ 599 
$ 799 
$2975 
$1295 
$ 669 
$ 729 
$ 959 
$1225 
$1449 
$1090 
S1090 
$ 679 
$ 289 
$ 85 
$3245 
$ 839 
$ 139 
$ 169 
$ 349 
$99.95 
$ 165 
349 
619 
139 
749 
449 
749 





RADIO SHA 



•< 



PRICES 




ARE SUBJECT TO CHANGE WTTHOUT NOTICE 



DIABLA 830 

INTERTEC SUPERBRAIN 64K RAM 

QD SUPERBRAIN 

NEC 5510 SPINWRITER 

NEC 5530 SPINWR ITER 

OKIDATA MICROLINE-80 

OKIDATA MICROLINE-82 

OKIDATA MICROUNE-83 

APPLE II PLUS 48K 

APPLE DISK w/3.3 DOS Controller 

APPLE DISK w/o Controller 

BASE II PRINTER ' ^M \ 

HA2ELTINE 1420 

NORTHSTAR HORIZON II 32K QD 

ANADEX DP-9500 

TELEVIDEO 91 2C 

TELEVIDEO 920C 

TELEVIDEO 950 

CBM 8032 COMPUTER 

CBM 8050 DISK DRIVE 

CBM 4032 COMPUTER 

CBM 4040 DISK DRIVE 

CBM 4022 

CBM VIC-20 

CBM C2N 

RADIO SHACK II 64K 

RADIO SHACK III 16K 

LEEDEX/AMDEK 100 

LEEDEX/AMDEK 100G 

LEEDEX/AMDEK COLOR-1 13" Color Monitor 

MICROTEK 16K RAMBOARD for Atari 

MICROTEK 32K 

ATARI 400 16K 

ATARI 825 PRINTER 

ATARI 850 INTERFACE 

or both together 
ATARI 810 DISK DRIVE 
ATARI 800 32K 

Call for price list of ATARI software 
NEC 12" MONITOR 



$229. 



w 

1-800-235-3581 

OMEGA SALES CO. 

3533 Old Conejo Rd. #102 

Newbury Park, CA 91320 

1-805-499-3678 

CA. TOLL FREE 1-800-322-1873 



(1m 




COAST 
800-556-7586 

OMEGA SALES CO. 

12 Meeting St. fg^ 

Cumberland, Rl 02864 ^ mm 
1-401-722-1027 



MPANY 




If you d n»« to « no» now Defore me b.g game 

With PBOCAH and you' TF1S-80" you can use statistics er 

probability theory 'o predict the results ol ihis week s b 
garnet Ana more PffOCAP 

• Gives offensive and defensive ratings to' every 
National Football League team 

• Predicts 'ange oi results and probable score tor 
each game 

• Allows compute* matchup oi any two teams 
(Great tor playoffs 1 ) 

• Gives up-to-the-minute standings statistics 
and ratings lor each NFL Division 

PWOCAP il easy to use and comes with e.lensive docun 



Oi! 



i cassette i 



sag 95 



NOW Money dec* 



The Trinity Computer Group • Software Agent Publisher 



r n 



GET YOUR 
TRS-80 DIRECT 



FROM 



authorized Radio afhaek SALES CENTER 



FORT 

WORTH 



rxn-Tp_n_n 

COMPUTERS 



AND 

VIDEO 



377 PLAZA HWY. 377 GRAMMY 
FORT WORTH. TX 70048 ^462 



AND SAVE $ 




Get our quote "belore" you buy. 

Full manufacturers warentee 

Texas residents add 4% sales tax 



817-573-4111 



COST Of CALL REFUNDED FOB ORDERS BY TELEPHONE 



C. C- WRITER 

TRS-80* 

Color Computer 

WORD PROCESSING 

USER MODIFIABLE EX. BASIC M/PA6E 
FORMATTING, HOVE, TABS, DELETION 
INSERTION, GLOBAL SEARCH t EDIT 
CENTERIN6, INDENTING, PAGE PAUSE 
ASCII CODES, JUSTIFY, 32K OPTION 

POWERFUL BUT SIMPLE TO USE 

THIS AD PREPARED WITH C.C.NRITER 

ITRS-80 is a TH of Tandy Corp. 

*30 Check or M.O- to 
TRANSFORMATION TECH. 

194 Lock wood Ln- ^au 
Bloomingdale, IL60108 
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catenated into P$, with each 
item being followed by a com- 
ma. 

At this point, if we printed P$ 
we would see all our new data, 
looking for all the world like a 
data statement without the 
word data or a line number. We 
would also see an unnecessary 
trailing comma and leading 
blanks before all positive num- 
bers. Lines 10050 through 10090 
remove the comma at the end 
and the leading blanks that 
STR$ inserted in place of a sign. 
It's not necessary to do this, but 
it appeals to my aesthetic sen- 
sibilities. 

Our new string, P1$, is then 
scanned character by character 
and the ASCII value of each 
character is POKEd into suc- 



cessive addresses in the data 
line. 

The main body of Listing 4, lines 
10 through 100, reads 10 num- 
bers into array A, then doubles 
them. The original numbers, 
from data line 60, represent the 
original data. The doubled num- 
bers represent the updated 
data. All the action, of course, is 
in the subroutine beginning at 
line 10000. 

Running Listing 4 changes 
data line 60 so that it winds up 
containing the doubled data. A 
final prompt instructs the user 
to load a blank cassette, and the 
program CSAVEs itself under 
file name X. 

That's it, neighbors, the 
BASIC Zap; a way to make 
BASIC remedy itself. ■ 



IB ' DOCKET CONTROL VERS. 4.0X 16K LEVEL II BASIC 4/28/80 
20 REM * COPYRIGHT 1980 BY J. STEWART SCHNEIDER * 
30 CLEAR1500:Z8=3:Z9=38:DIM D(200,2):DIM ATS (Z9) :DEFINTP,C,X:DIM 
NS(200):DIM C( 200,2) :FORX=0TOZ9:READATS (X) :NEXT:REM ** Z9 - I O 

F ATTORNEYS +1 ** 

40 UlS = "M.»tt#":U2S = "M.M#":HDS = "IND. NO. JUDGE/NO. ARRA 

IGNED B/P DUE TRIAL DATE =====================«===«»=. 



50 J1S="(ASB.)":J2S="(SIN.)":REM ** Jl$ & J2$ ARE THE JUDGES' NA 
MES 

60 ' TAPE I/O DRIVER 

70 TAPE% = 1:CLS: I SPREADING: " : INPUT'REWIND DATA TAPE, PRESS PLAY 
ONLY, THEN TAP <ENTER> KEY" ; AS : POKE17935 , 137 : POKE18106 , 137 : POKE 
18277, 137 :INPUT#-1,F:GOTO90 

80 INPUT'REWIND DATA TAPE, ERASE, PRESS PLAY & RECORD THEN TAP < 
ENTER>";A$:PRINT#-1,F 
90 TAPE%=TAPE%-l:CLS:PRINTg405, "THERE ARE" ; F; "CASES IN THE FILE" 

100 FORX=lTOFSTEP7:PRINTe469,I$;X; "TO")X+6 

110 PRINTt-l,D(X,l) ,D(X,2) ,D(X+1,1) ,D(X+1,2) ,D(X+2,1) ,D(X+2,2) ,D 

(X+3,1) ,D(X+3,2) ,D(X+4,1) ,D(X+4,2) ,D(X+5,1) ,D(X+5,2) ,D(X+6,1) .D( 

X-i-6,2) 

120 NEXTX 

130 FORX=lTOFSTEP7:PRINT046 9,IS;X;"TO";X+6 

140 PRINTt-l,C(X,l) ,C(X,2) ,C(X+1,1) ,C(X + 1,2) ,C(X + 2,1) ,C(X + 2,2) ,C 

(X+3,1) ,C(X+3,2) ,C(X+4,1) ,C(X+4,2) ,C(X+5,1) ,C(X+5,2) ,C(X+6,1) ,C( 

X+6,2) 

150 NEXTX 

160 FORX=lTOFSTEP7:PRINT@46 9,IS;X;"TO";X+6 

170 PRINT#-1,NS(X) ,NS(X+1) ,NS(X+2) ,NS(X+3) ,NS(X+4) ,NS(X+5) ,NS(X+ 

6) 

180 NEXTX:IF PEEK ( 17 935 ) =137 THEN POKE17935 , 178: POKE18106 , 178: PO 

KE18277,178:IS="WRITING: " 



Program Listing 3 



10 CLS:CLEAR175 

20 DIM A (10) 

30 FOR X=1TO10 

40 READ A(X) 

50 NEXT X 

60 DATA 128,256,384,512,640,768,896,1024,1152,1280 

70 FORX=1TO10 

80 A(X)=A(X)*2 

90 NEXT 

100 GOSUB10000 

110 PRINT'DATA NOW UPDATED" 

120 LIST60 

130 END 

10000 N=PEEK(17130)*256+PEEK(17129) 

10010 LN=PEEK(N+3)*256+PEEK(N+2) :IF LN>60 THEN STOP 

10020 IF LNO60 THEN N=PEEK (N+l) *256+PEEK (N) :GOTO10010 

10030 E=PEEK(N)+-256*PEEK(N+l)-2:AV=E-N-5 

10040 PS="":FORX=1TO10:P$=P$+STR$(A(X) )+",": NEXT 

10050 L=LEN(P$)-1 

10060 FORX=lTOL 

10070 IF ASC(MID$(P$,X,1) )=32 THEN 10090 

10080 P1$=P1$+MIDS(P$,X,1) 

10090 NEXTX :L=LEN( Pl$) :IF L>AVTHEN PRINT'TOO MUCH DATA":ST0P 

10100 FORX=N+5TOE:POKEX,32:NEXT 

10110 FORX=lTOL 

10120 Q=ASC(MIDS(P1S,X,1) ) 

10130 POKEX+N+5,Q 

10140 NEXT:RETURN 
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UTILITY 



Hey all you heads, it's time to clean up your act! 



Head Bright 



Joseph Hesse 

353 West Church St. 

River Falls, Wl 54022 



Have you been getting 
more disk input/output er- 
rors recently? The problem may 
be due to a dirty read/write 
head in one of your disk drives. 
No matter how good your drives 
and diskettes are, if the heads 
are dirty the signals to and from 
the computer will be affected. 

One way to clean the heads 
is to partially disassemble the 
drive to expose the read/write 
head. This should only be done 
by a qualified technician. 

Fortunately, there is a better 
way. Use a disk drive head 
cleaning diskette. It looks ex- 
actly like an ordinary diskette 
except it has a cleaning surface 
that rotates in place of the 
magnetic disk. Moisten the 
cleaning surface with the solu- 
tion that is supplied with the 
head cleaning diskette and in- 



sert it in the drive. Turn on the 
drive for about half a minute or 
so and that's it— the head is 
clean. 

Head cleaning diskettes are 
available in computer stores 
and are advertised in computer 
magazines. I use the 3M com- 
pany's (the Scotch tape people) 
diskette. It is easy to apply the 
cleaning solution on those and 
there are printed boxes on the 
diskette that can be checked 
off after each use — up to 15. 

Suppose you have the 3M 
head cleaning diskette or a 
similar product. You moisten 
the cleaning surface and insert 
the diskette so that the ex- 
posed surface faces the red in- 
dicator light and is towards the 
rear of the drive. Now, we need 
a program to get the disk drive 
motor to turn on and the head 
to load against the cleaning 
surface. 

The Head Cleaning Program 

Carefully key in the following 
Basic program. Run the pro- 
gram; it will ask which drive you 
want to use. At this point you 
should take the diskettes out of 
every drive that you plan to 



clean. Now enter the appropri- 
ate drive number (0,1,2,3). The 
program will prompt you to in- 
sert the moistened cleaning disk- 
ette and (enter). 

To use the cleaning surface 
most effectively, the program 
starts the head at the outer- 
most track and moves it toward 
the center. While the head is be- 
ing cleaned, the program tells 
you what track the head is over. 
After the head is cleaned, you 



have the option of starting over 
so that another head may be 
cleaned. 

The program listing is for a 
TRS-80 with two drives. If you 
have three or four drives 
change the value of N in line 
130 to 3 or 4 and change the 
prompting message in line 160. 
If you have only one drive, 
delete lines 160 through 190 
and change line 130 to read 130 
N = 2 :T = 0: D = 1. ■ 



100 REM DISK HEAD CLEANING PROGRAM FOR TRS-80 MODEL I. 

118 REM TO BE USED WITH 3M HEAD CLEANING DISKETTE OR SIMILAR PRO 

DUCT. 

120 DEFINT A-Z 

130 N=2 : T»0 

140 CLS : PRINT CHRS(23) ; 

150 PRINT@136,"«* DISK HEAD CLEAN **" : PRINT 

160 LINE INPUT'WHICH DRIVE? (0,1) ";AS : PRINT 

170 IF LEN(A$)-0 OR LEN(AS)>1 THEN GOTO 150 

180 D-ASC(AS)-48 : IF D<0 OR D>N-1 THEN GOTO 150 

190 D=INT(2[D *■ 0.5) : REM i-UP ARROW 

200 PRINT'INSERT CLEANING DISKETTE, THEN" : PRINT" PRESS ENTER." 



211 

220 
233 
240 
250 
260 
270 
280 
290 
300 
310 
320 
3 30 
34B 



AS=INKEVS : IF AS<>CHRS(13) THEN GOTO 210 

POKE 14304, D 

POKE 14316,3 : GOSUB 340 

PRINTg576,"HEAD OVER TRACK" ; PEEK ( 14317) 

FOR J=l TO 90 : POKE 14304,0 : NEXT J 

IF T=34 THEN GOTO 290 

POKE 14316,83 : GOSUB 340 

T=T+1 : GOTO 240 

IF (PEEK(14316) AND 126)0126 THEN GOTO 290 

PRINTS704 , "REPEAT PROGRAM? (V OR N) " 

A$=INKEY$ : IF A$="" THEN GOTO 310 

IF AS="V" THEN GOTO 130 

IF A$=»"N" THEN END ELSE GOTO 310 

IF (PEEKI14316) AND 1)-1 THEN GOTO 340 ELSE RETURN 
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EDUCATION 



This program is like a game. 



Analogies 




Damon L. Spencer 

33 Steppingstone Road 

Dover, NH 03820 



gram that combines the speed 
of a computer with the logistics 
of analogy quizzes. ANALO-80 



allows a teacher (or anyone 
else), to create a module con- 
taining a set of 20 analogies 



and present them to a student, 
friend, etc. The program ran- 
domly selects an analogy from 



I'm a high school student at 
Oyster River in Durham, NH. 
At our school, we have a small 
computer room containing a 
single Level II 16K TRS-80, and 
a dual terminal 8K PDP-8/E mini 
for beginners. 

Lisa Ogden, a senior, de- 
veloped an educational, hands- 
on Basic computer literacy 
course, and ran it using select 
students from the fourth grade 
of an elementary school. 

ANALO-80 is a program I 
created to aid in the education 
of these students. 

ANALO-80 is a Basic pro- 



Program Listing 



10 CLS: RESTORE 

15 DIM B2(20) 

20 FOR V3=15360TO16383 

30 POKEV3,191 

40 NEXTV3 

50 F0RA1=1T0126 

60 RESET(A1,1) :RESET(A1,46) 

70 NEXTA1 

80 F0RA2=1T046 

90 RESET(2,A2) :RESET(3,A2) : RESET ( 124, A2) :RESET(125 ,A2) 

100 NEXTA2 

110 PRINT@347,"ANAL0GY #1"; 

120 FORA3=1TO500:NEXTA3 

130 PRINT@4 09, "CUSTOM MADE FOR"; 

140 FORA3=1TO500:NEXTA3 

150 PRINT@471,"MASTWAY ELEMENTARY";; 

160 FORA3=1TO500:NEXTA3 

170 PRINT@536,"BY DAMON SPENCER"; 



Program continues 
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the module, records its code 
number, and presents the 
analogy to the user. The user 
selects what he or she thinks is 
the correct answer (from a 
group of four displayed), and in- 
puts the corresponding letter. 
The computer checks the in- 
putted answer against its 
record of proper answers, then 
places the following display at 
the bottom of the video 
monitor: Right = 1 Wrong = 0. 

If the inputted answer is cor- 
rect, "Right" will flash seven 
times. If the answer is incor- 
rect, "Wrong" will flash. 

As analogies are presented, 
the code number for that 
analogy is recorded. As each 
analogy is brought out of the 
module, its code is checked to 
the list of previously picked 
analogies. This subroutine 
assures that no analogy is used 
twice, and that the sequence in 
which the analogies are 
displayed is random. 

After all analogies have been 
presented, the computer clears 
the screen and draws a bar 
graph which shows the user's 
score against the best possible 
score. 

Some unique features which 
could be added to ANALO-80 
are: 



• a subroutine to allow the creation, 
saving and loading of individual 
modules without reloading the entire 
base. This subroutine would involve 
the use of the 'Print # -1' and 'Input # 
-V commands. 

• the For . . . Next loops which regulate 
the length of the modules can be 
changed to allow for longer or shorter 
modules. This can be especially useful 
if used in conjunction with the above 
feature, whereas the length of the 
module being inputted is given as the 
first piece of data from the load off the 
cassette. 

• The user can be given more than 
one chance to guess the correct 
answer if the first answer was wrong. 



DATA #17 
PROBLEM #5 

WING IS TO BIRD AS FIN IS TO 

A) SHIP 

B) ROBIN 

C) WATER 

D) FISH 
ANSWER? 



RIGHT = 3 



WRONG =1 



Fig. 1. 



• scores may be saved on a data 
cassette so that a teacher may plot 
the students' advancement. 



Fig. 1 shows the video mon- 
itor display during an analogy. 
Fig. 2 shows how to organize a 
module and individual an- 
alogies so the computer can 
read them. This is a bare listing 
without any of the above fea- 
tures added. I leave the chal- 
lenge to you. 

If you discover another 
feature or have any ideas about 
this program, I would appre- 
ciate a listing or a taped copy 
so that I may kegp up with new 



versions of ANALO-80. I would 
also appreciate other educa- 



tional programs to use in our 
computer literacy program. ■ 



200 DATA "WING IS TO BIRD AS FIN IS TO...","A) SHIP ", "B) ROBIN'V'Q 

WATER","D) FISH'V'D" 

Explanation: Data line 200 contains one analogy of the module (in this case, 
analogy 5— see sample 1). The first piece of data is the unfinished 
analogy. The second piece of data contains choice A, etc. The last 
piece of data (in this case D') is the correct answer to the analogy. 
The answer to the analogy on line 200 would be FISH (D). 
Only one analogy, complete with choices and answer should be 
on each program line. This allows you to quickly correct a mistake 
without searching through piles of data. If, while running 
ANALO-80, you see an error in the presentation or answer, quickly 
look at the screen and jot down the Data Number. Break out of the 
program, list it, and when you come to the data section, simply 
count down the appropriate number of lines to the analogy. 

Fig. 2 



Word Processing? You need a 

SPELLING CHECKER 



This is an exsnple of a text being checked by 
HEXSPELL. The text scrolls up the screen 3S it is checked. When 
an error is detected, you have three choices. 

1) REPLACE the incorrect word. The replacement word 
is INSTANTLY RE-CHECKED for correctness, then inserted in the 
text. 

2) The word is correct, leave it as it is. 

3) Leave the word as it is, AND tell HEXSPELL to 
LEARN this word for future reference, with just one keystroke. 

Your doojnent is ready to print as soon as HEXSPELL 
is finished. The word in error e.g. * 



WORD IN ERROR: Misstake 

CONTINUATION ', is shown in context, including continuation 

press: R) REPLACE WORD S) LEAVE AS IS L) LEARN WORD 



HexspeLL 

sneaky 
zaps those sleeky typos 

HEXSPELL shows you the errors right where it finds them, 
then instantly checks your corrections to make sure they ARE 
correct! When HEXSPELL is finished the corrected docu- 
ment is ready for printing. HEXSPELL comes with a 20,000 
word list, with room for 8000 more! Just one keystroke 
teaches HEXSPELL a new word. You can even clear the 
memory and teach HEXSPELL a complete ne w langu age. 

Programs, wordlist & manual S69US. Manual only $12. ■^*« ^ftk 

Reauires 48K TRS-80 Mod I with 2 Drive & TRSDOS. E_l_. 1 ^^W 

Tested against Scripsit & Electric Pencil, should work with most word processors. 



TRS-80, Scripsil are trademarks ol Tandy Corp. 

Electric Pencil is a trademark ol Michael Shrayer Software 



.HeXAGON 



PO. Box 397, Station A >i» 
Vancouver, B.C. Canada V6C 2N2 
Telephone (604) 682-7646 
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uf"™ "" MODEL III V 

TAPE EDITOR/ASSEMBLER 

fiun Radio Shack's Tape Editor/Assembler 
■IfdTASM) for Model ! on the Model III using our 
ASPTC'ri Simply load EDTASM. then load ASPTCH 
arc rur. ; single load possible). All EOTASM leatures 
supposed plus: 

• Fuil Model I source tape compatibility. 

• Assemble directly to memory or to tape. 

• Execute your object and return to EDTASM. 

• Change cassette speed while in EDTASM. 

• Verify source tape after "W" command. 

• Display and edit memory. 

• Recover from reset without tape re-load. 

Requires TRS-80* Model III 16K and up. Also 
available Model I ASPTCH (specify) and other Model 
III software products. 

Send check or money order for S 1 7.95 for ASPTCH 
tape and detailed instructions to: 

BYTE MISER SOFTWARE 

720 W. Haven Blvd. 
Rocky Mt.. N.C. 27801 ^455 

\ 'TRS-80 is a trademark of TANDY corp > 



CHURCH DONATIONS 

TRS-80 MODELS I 8. II 

Manages, stores and reports on the 
offerings made by a church congrega- 
tion. 

Model I handles up to 1000 members 
and 4 categories of offerings. Operates 
under TRSDOS 2.3 or Newdos. $ 1 25.00. 

Model II handles up to 3000 members 
and I 5 categories of offerings. Includes 
Mailing list and operates under TRSDOS 
2.0. $175.00. 

CUSTOM DATA 

P.O. Box 1066 
Alamogordo, NM 883 1 

Phone (505) 434-1096 

^412 



TRS-80* COLOR Computer 

BORED 

with SLOW Cassettes 

Put your BASIC program into 
a ROM CARTRIDGE. Instant 
run at power-up! More data 
space! IT'S EASY! Send us your 
program on cassette and we'll 
quickly return it in a ROM 
CARTRIDGE. 

Prices start at $45.00 

(Quantity Discounts Available) 

Eigen - 510 

Systems P. o. Box 10234 

Austin, Texas 78766 
(512)837-4665 

—Assembly Language Rom Cartridges 
—Custom Programming Services 
TRS*-80 is a rademark of Tandy Corp. 



Program continued 

180 FORA3=1TO500:NEXTA3 

190 PRINT§606,"ORHS"; 

200 FORA3=1TO1200:NEXTA3 

210 CLS 

220 PRINT@465,"SEE TEACHER FOR INSTRUCTIONS" 

230 FORA4=1TO1100:NEXTA4 

240 CLS 

250 PRINT"HELLO M WHAT IS YOUR NAME " ; : INPUTA$ 

260 CLS:PRINT"THANK YOU ";A$;" !! LET'S START.., 

NEXT 

270 CLS 

275 FOR B=l TO 20 

277 RESTORE 

280 IF B=20 THEN 289 

285 GOTO 305 

289 X=0 

290 FOR Bl=l TO 20 

295 IF B2(Bl)OBl THEN C1=B1 

300 NEXT B1:G0T0 330 

305 LET C1=INT(RND(19)+1) 

306 IF Cl>20 OR CK1 THEN 305 
310 IF B2(C1)>0 THEN 305 

320 B2(C1)=C1 

330 FOR K=0 TO (Cl-1) 

335 READ Dl$,D2$,D3$,D4$, D5$,D6$ 

340 NEXT K 

365 READ E1$,E2$,E3$,E4$,E5$,E6$ 

390 PRINT80, "PROBLEM # " ; B 

400 PRINT@64,"DATA #";C1 

403 J7=64-LEN(E1$) 

404 J8=FIX(J7/2) 

405 J9=J8+191 
410 PRINT@J9,E1$ 
420 PRINT@330,E2$ 

430 
440 
450 
460 
470 
471 
475 
480 
490 
500 
510 
520 
530 
550 
560 
570 
580 
590 
610 
620 
630 
633 
635 



:FORX=1TO800; 



PRINT@394,E3$ 

PRINT@458,E4$ 

PRINT@522,E5$ 

INPUT"YOUR ANSWER ";E7$ 

IF E7$=E6$ THEN M=M+1 ELSE N=N+1 

GOSUB 640 

E7$="" 

CLS:NEXTB 

CLS:PRINT@470,"AND NOW YOUR SCORE..." 

FORX=1TO1100 : NEXTX 

CLS 

PRINT@20,A$;"'S GRAPHIC RESULTS" 

PRINT@840 , "RIGHT=" ;M: PRINT@860 , "WR0NG=" ;N 

PRINT@434,"B":PRINT@498,"E":PRINT@562,"S" 

PRINT@626,"T" 

FORX=0TO102:SET(X,12) :SET(X,35) :NEXTX 

FORY=13TO17:SET(101,Y) :SET(102,Y) :NEXTY 

FORY=34TO30STEP-1:SET(101,Y) :SET(102,Y) :NEXTY 

FORX=0TO( (M*5)-2) 

SET(X,21) :SET(X,22) :SET(X,23) 

NEXT X 

FOR T=l TO 2000:NEXT T 

GOTO 90 

640 GOSUB 650 

641 IF E7$=E6$ THEN GOSUB643 ELSE GOSUB646 

642 RETURN 

643 FOR V9=l TO 9:PRINT@840 , " 

644 FOR V6=l TO 040 :NEXTV6 : PRINT@840 , "RIGHT" 

645 FOR V6=l TO 040 :NEXTV6 : NEXT V9:RETURN 
6 46 FORV9=l TO 9:PRINT@860 , " " 

647 FORV6=1TO040:NEXTV6:PRINT@860," WRONG" 

648 FORV6=l TO 040 :NEXTV6 :NEXTV9: RETURN 

6 50 PRINT@840 , "RIGHT=" ;M: PRINT@860 , "WR0NG=" ;N: RETURN 

660 PRINT@867,"<ENTER> WHEN READY:"; 

670 IFINKEY$=""THEN670 

680 CLS:GOTO2000 

6 90 DATA "" f "" f "" f »",•","« 

700 DATA "FLY IS TO SPIDER AS MOUSE IS TO" , "A) RODENT", 
"B) CAT","C) RAT","D) ANIMAL", "B" 

"LOUD IS TO THUNDER AS LARGE IS TO", "A) MONKEY", 
"B) MIDGET" f "C) WHALE", "D) COAL","C" 

DATA "PETAL IS TO FLOWER AS FUR IS TO", "A) COAT", 
"B) RABBIT", -C) WARM","D) WOMAN", "B" 

DATA "WEEK IS TO DAY AS DAY IS TO", "A) MONTH", 
■B) SECOND", -C) HOUR","D) NIGHT", "C" 

AIR IS TO SUFFOCATION AS FOOD IS TO" , "A) STARVATION' 
B) INDEGESTION","C) ENERGY", "D) LIFE", "A" 



710 DATA 

720 

730 

740 DATA 



Program continues 
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TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



Color Computer 

4K Level I $329 

16K Level I $439 

16K Extended Basic $489 



With TCS Memory: 

16K Level I $369 

16K Extended Basic $449 



Expansion Interfaces 

Zero K Interlace $254 With TCS Memory: 

16K Interlace $359 16K Interface $318 

32K Interlace $469 32K Interface $388 



Pocket Computer & *£.' 
Interface $ Can toil free 



III fi»dio Shack M WW H l »m) accessor 
number of Ottier brand computet items 
Cat. w lor icv specif* eeeds Hd (tt i copy of our 
eaMej 



Epson MX-80 
$ Call 

SOFTWARE 

MACPLUS S49.95 

An Editor & Macro Assembler 

for Model III 

we supply patches lor tie Macro Assembler to 
make it fully operative on the Model m Our new editor 
includes virtually all the features ol Radio Shack's 
SCR'PSiT plus ihtae features: "direct entry of 
graphics, auto tab lor entering Assembly language 
Instructions: Imbedding ol commands tor Justifica- 
tion, cantering, margin control, change print types 
within text, etc Also included on the disk are 
FMM/CMO ■ Prints formated copies of your docu- 
ment to your specifications on your smart or dumb 
orlnter 

MOOIFY/CMD - A utility which allows assembly 
language program modiiication from patches denn- 
ed In an ASCII patch file. 

MAC/BAI - A Basic program containing several 
utilities to aid m the preparation ol source ties 

Those described above and seven other complete 
programs make mis an excellent value Please 
specify Model i or m system 
Mote: You musl have, or purchase the Model I 
Microsoft Macro Assembler Package (Cat 
#26-2202) from Radio Shack it you don't already 
have this item, we are ottering it at a special sale price 
in combination with the software package described 
above Can lor information and our low sale price 



ZAP III S19.95 

A super zap for the Model m giving full sector and 
track access to any part ot the TRSDOS diskettes 
Jumps by tracks or sectors throughout Ihe disk 
Automatically goes to directory sectors ot any disk 
with |ust one keystroke Instant comparing ot the 
same seciors on difterent disks full menus, lists. 
and descriptions ot commands are available at any 
poinl Just press clear and all commands and their 
descriptions are listed Copy disk sectors, modify 
seciors. toggle between hex and ascii input ot 
characters as you modify 

This disk also includes COPYIT/CMO. a utility 
program allowing the purchaser to make more than 
two back-up copies of SCHtPTSlT or VlSlCALC tor 
private use Good insurance tor your valuable pro- 
grams 

Spec* leature the documentation memoes a 
complete map of the location of all System Files on the 
Model ill TRSDOS diskettes Various patches also m- 
cludedtogetridolerrorsinTRSDOSi 1 and 1 2such 
as the mysterious EOF set to on coping ot tiles This 
is a must purchase at $19 95 

MACPLUS-2 $39.95 

A Macro Assembler Utility Kit. 

Five programs for one low price 
RUN/CMD - A macro command processor 
SCREEN/CUD - Save video screen images to 
disk 

RELOCATE/CMD - Allows dynamic relocation of 
orogram 

pick AC /CMD Creates a screen ot information thai 
can be converted to an assembly language module 
and then used to print the screen 
PICBAS/CMO Does the same but converts to a 
BASIC Program Module Creates screens, menus, 
prompts, graphics, fast It's like getting SCRIPTSIT 
tor halt price with other items and patches thrown in 
free . 

Specify Model I or 111 ^4 N^ 



Letter quality matrix similar 10 Line Printer IV & 
Centronics pnnlar but has lull software control of 
«0. 60 66 or 132 columns 80 cps bidirectional 
tractor feed dispoaabieprinthead $300 less man 
nearest competitive printer Lieu $645 Our price 
include, cable EPSON MX40 

PRINTER DISKETTE 

A complete diskette wilh 6 complete hies for use 
with your Epson MX-80 Printer 
ready to use 

M/CMO • Send all ot the Epson Printer commands 
to the printer directly from DOS or as part of an auto 
booting system. Set up the printer Irom DOS to the 
typestyle you want, then run the program 

aiQLtTT/MS - Produce large graphic letters on 
your printer and screen Dump the letters to printer or 
to disk Allows 3 different size letters to the printer 
Program is men u drive n You may also construct large 
letter titles for MERGEIng into your bask: program 

EPf 0N/IUB - Merge this small module into any 
Basic program and men issue any of the printer com- 
mands with a 2 letter command with letters represen- 
ting the purpose ol the command You need not refer 
pack and forth to documentation Extremely easy to 
use and makes using the printer much easier than 
ever before 

JKl PATCH • this patches NEWDOS 2 i and 
NEWOOS 80 so that the JKL (unction will print the 
TRS80 graphics while the printer remains m the stan- 
dard mode rather than the TRS80 mode This allows 
all ot the leatures ol the printer to be used but you can 
dump the screen to the printer at any time with all 
graphics 

DEMO/IAS A super tutorial program with hun- 
dreds ol REMs and hundreds of screen prompts thai 
teach you how easy it is to create mirae'es with your 
Epson M X 80 printer 

ARTICLE - A complete article about the Epson 
MX80 with an sorts ot tips . concepts . etc lor getting 
the most out ot your printer The information tor 
creating scheduling forms is a must tor many of you 
DEFSTATE/5UB - A series of one word printer 
commands that can be merged into any Basic Pro- 
grams that allow various automaiic lunctions tooc 
Cur Print titles with graphic borders around them 
with one word Center any text with one command 

* c Special Price: All seven ot the above 
modules on one diskette or on tape ( less 
JKL) tor your Model I or III for only 
$29.95 

Or , take a $1 discount it you buy this 
item with a purchase ot the Epson 
MX-80 



The DOS Disk Library ol Programs 
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Disk Ufl.M lor all 5 programs 



AO 



Si* 



Printers 

Daisy Wheel II 

$1695 
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TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



COMPUTERS 




Model II 64K 
$3349 

An Bxce ta n l computer lor your bustness needs Easy expandaB* 
ity & arvjaabMy No kyrriai operator traxwig needed Ai access 
ones avaaatxe ask expansans pmers software at our low 
dBcount prices Our fast Date ax trexjhc servee can assure mosi 
datvenes wurwi seven days after payment s retard 

Fret wfth pure fuse 

i box of 10 double dertsty 
dskenes A (69 value 



SUGART DISK EXPANSION for the MODEL II 

Uses the same reliable drive units found in the Model n CPU itseil Allows matched drives tor reliable 
operations Fast access time under CP/M or TRSDOS Fully compaiaoie with an existing software 
Ready lights show disk activity Silver/black paint matches Model n the best drives available lor lest. 

1 Drive. Single Cabinet SS49 2 Drives. Triple Cabinet $1424 
1 Drive. Triple Cabinet $949 3 Drives. Triple Cabinet $1899 
Extra Drives $475 



CORVUS HARD DISKS for the TRS-80 SCall 



MICROSOFT 

■AliC-IO - Extended disk Basic, long vanaoie 
names, chaining variable length records ANSI com- 
paiaoie interpretative version SIM w/menual. 
S30 manual only. 

•ASIC COMPILER Same Basic language as 
BASiC-BO except compiles Basic program into a 
directly executable relocatable machine language 
hie Operates 3 to 10 times taster than regular Basic 
includes Macro-80 Assemble' Specify CPM cu 
TRSDOS S325 w/manual. HO manual orHy. 



FORTMN-M Supports ANSI 66 plus many ex 
tensions 'ncluding MACRO 80 Has library with 
manage- relocatable obiect compiler and linking 
ioade- MOO w/manual. 130 manual only. 

COSOL-M VersitiUty gives Levei 1 ANSI and most 
ol levei 2 Allows complete sequential, relative and 
indexed hie suopo't with variable Me names 
STRING UNSTRING COMPUTE VARYING/UNTIL 
EXTEND CALL COPV SEARCH 3 dimensional ar- 
rays compounoandaDbreviateo conditions nested 
■f interactive screen nanoung e>iensions Com- 
oataoie assemier nnmng ioade- and relocatable 
library managei $575 w/manual. S30 manual 
only. 



Special— With TCS Memory 
* Model III 48K 2 Disks 

Uses proven MP! drives modrtied lor flippy operation and 
Percom controller Limited 90 day warranty Call for 
details 



$1895 



Model III 16K $849 

Model III 32K $979 
Model III 48K $1089 



With TCS Memory: 
Model III 32K $909 
Model III 48K $969 



Model III 32K 2 Disk RS232 $2100 
Model III 48K 2 Disk RS232 $2230 
Model III 32K1 Disk $1729 

Model III 48K 1 Disk $1849 




.Paymeni Money Order. Cashier's Check. Certified 
Check Personal checks take 3 wks VISA MC 
add 3% 



> Prices subiect to change any time 

• No tax oui-ot -state Texans add 5S 

• Delivery subfect to availability 

• Shipping extra quoted by phone 



TEXAS COMPUTER SYSTEMS 

Box 951, Brady Texas 76825 

For fast, etlicwnt s«rvice. we can air freight from Dallas 
to major a/p near you. Call for information 

Toll Free Number 800-351-1473 

Texas Residents 915-597-0673' 



• 25 



THEN 

ENLARGE 



is your MICRO too • 



vO 




WITH 



S-100! 



Why the S 100 Ottt 696 v, Bus Standard'' 

• /,• nv " turn /o .' MICRO mic a computer with the 

capabMy 0/ a MINI 

• *ou acid as mic.h MEMORY ,is '<r+<ted (add 1 

2 ■:,' mo-c 64K RAM tx>ards) 



Add Oca/d t- , qiv ■ you as much HARD , >' Hop 
Pi d'SC CAPACITY is you need 



Add a high ete"s \ COLOR-GRAPHICS t- ■; ; 

ana in, a ■ MORE! 
ThfSC hoards luSl PLUG INTO your System 

provided you have an S-100 m unttame and 
an interlace adapter >• .'• I QMPlJTfR WTf. 

Fcv TRS-OOti & others 

i-rom $9<> mainframes trom $3i0. Catalog $1 
(refunded with order) 









COMPUTER WIT ^i9« 

INC0RPORAT[D 

b620 176th Street S.W. 

I wnwood Washington 98036 

12061 743-4336 

formerly HUH 



Program continued 



750 DATA "CALF IS TO COW AS CUB IS TO", "A) SCOUT", "B) BEAR", 

"CJ BABY","D) WOODS ","B" 
760 DATA "SUMMER IS TO WINTER AS EVENING IS TO", "A) SUNSET", 

"B) COOLNESS", "C) MORNING", "D) DARKNESS" , "C" 
770 DATA "WORDS IS TO BOOK AS NOTES IS TO", "A) PIANO", 

"B) SONG","C) SCULPTURE", "D) FRAGNANCE" , "B" 
780 DATA "FISH IS TO FINS AS BIRD IS TO", "A) FLY","B) FEATHER" 
, "C) WINGS", "D) PIGEON", "C" 

790 DATA "PIPE IS TO PLUMBER AS BOARD IS TO", "A) MECHANIC", 

"B) PROPELLER", "C) CARPENTER" , "D) LACQUER", "C" 
800 DATA "WIRE IS TO ELECTRICITY AS PIPE IS TO", "A) PEANUTS", 

"B) OPERATION", "C) ROUND", "D) WATER", "D" 
810 DATA "HORSE IS TO HERD AS MOUNTAIN IS TO", "A) VOLCANOE", 

"B) ROCK","C) HILL","D) RANGE", "D" 
820 DATA "SINKS IS TO ROCK AS FLOATS IS TO", "A) LIGHT", 

"B) WOOD","C) FLIES", "D) DROWNS", "B" 
830 DATA "PARACHUTE IS TO PLANE AS LIFE PRESERVER IS TO", 

"A) FISH","B) BOAT","C) WATER", "D) CHEST", "B" 
840 DATA "ACT IS TO PLAY AS CHAPTER IS TO" , "A) PAGE", 

"B) BOOK","C) LIBRARY", "D) TITLE", "B" 
850 DATA "TRAIN IS TO LAND AS STEAMSHIP IS TO", "A) LANE", 

"B) OCEAN", "C) PLANET", "D) CAPTAIN", "B" 
860 DATA "PIPE IS TO WATER AS ARTERIES IS TO", "A) VEINS", 

"B) BLOOD", "C) BOILER", "D) HEART", "B" 
870 DATA "COUNTRY IS TO ARGENTINA AS STATE IS TO", "A) EARTH", 

"B) ASIA","C) BOSTON", "D) IDAHO", "D" 
880 DATA "MONTH IS TO MARCH AS SEASON IS TO", "A) MAY", 

"B) SNOW","C) SPRING", "D) FLOWERS", "C" 
890 DATA "SUBMARINE IS TO PISH AS AIRPLANE IS TO", "A) AQUARIUM 

","B) BIRD","C) WING","D) HANGER", "B" 
900 CLS: RESTORE: CLEAR 

910 PRINT(3465,"TO PLAY AGAIN, TYPE: RUN" 
920 PRI NT : PRI NT : PRI NT : PRI NT : PRI NT : END 




First in 

Its Class 

and 

Looking 

for 

Work. 



TRS-80 Model I, II, III 

Five multiple regression procedures 
(including stepwise, backward elimination, all 
subset, and ridge). 24 transformations, com- 
prehensive data base manager (with search 
and sort), descriptive statistics, hypothesis 
testing (7 tests), time series analysis (7 
models), random vanate generation, discrete 
probability distnbutions. sampling distribu- 
tions, nonparametnes (5 tests), and com- 
plete documentation 

Complete package with manual — $125 

To order, send payment plus $2 00 shipping 
and handling to 

Quant Systems ^271 

PO 8ox628 

Charleston. SC 29402 

803-571-2825 

S.C residents add 4% sales tax 

Overseas orders add $7 for shipping 



FREE your keyboard — interact directly with the f* 
screen. Why waste time typing? Use a 3-G Light Pen. 

^ — — •■ » ■ Mail Coupon of Call Today for Immediate Delivery • — ••___ 



I In his business. Al Zenker ol Zenker 
Dental labs in Penndel. Pennsylvania 
uses our pens lor data enlfy. Larry 
Goodman ol Lowell. Massachusetts 
uses the pen to select telephone 
numbers lo Be dialed by his computer 
Thorwakl fcsbensen ol Micro Ed. Inc in 
Minneapolis. Minnesota writes educa 
lion soltware lor the 3-G Light Pen 
Swiss An Orspalch al Kennedy Airport 
m New York uses our pens to speed up 
its business operations. Dr Richard 
Kerns ol East Carolina University in 
copoiates our pen in a demonstration 
with a voice synthesizer to leach ins 
students how to use computers tn Hoi 
land. Johan Smilde uses a 3-G Light Pen 
to experiment with graphics. 

I These people nave discovered the be 
nedls ol using a 3-G Light Pen 
Wouldn I a 3-G light Pen make your 
system more versatile and more lunc 
lionaf Yes ot course it would 1 

I Don I Wait — order your pen today and 
receive 

'I 3-G Light Pen 

2 1 Demonstration cassettes (with 

Professional THS 80 PET and 

Applet 
3» Sample program listing 
4) Complete documentation and 

instructions 
St Other I ight Pen soltware and 

games available 

NO ASSEMBLY NECESSARY READY 
TO PLUG IN AND USE 

I Complete documentation so you can 
write your own program m BASIC No 
machine language coding necessary 

All J-G Professional models plug into 
machine ports Economy model piuqs 
">to cassette and battenes are m 
eluded 

I DEALER PACKAGE AVAILABLE 



<S 



3-G Company, Inc Depl. ii-eo 
Rt. 3. Bo« 2*"A, Gaston. OR 97t 19 
<503)<«2-4492 



member 3 G otters a 30 tJavJ 
mcoiditional Money rjac* 
GUARANTEE 



TRS-WEcgnmi 

S24»5 

MM* I ci MM.I IK 

Yet. I want to mat* my computer mora versatile Rush me 

Pens (Add li Mi tor mailing and handling - 16 00 loratgn ) 

Enclosed is check or money order Master Charge 



S-Q light 



Card No 
NAME 
ADORESS 

CITY . 



* ■ i ■ data 
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UTILITY 



Create Basic data statements from object code disk files. 



Dateline 80 



Richard A. Press, MD. 
493 American Drive 
Yardley, PA 19067 



If you've been merging Assem- 
bly program routines with 
your Basic programs by means 
of string packing, you have no 
doubt run into a bit of drudg- 
ery—mainly, converting your 
object code from hexadecimal 
into decimal numbers to use in 
data statements. 



This program will save you 
the trouble. It reads the object 
code right from the disk file you 
created with the editor/as- 
sembler, and then creates a 
disk file of Basic data 
statements complete with line 
numbers, ready to merge into 
your program. Dataiine was 
written with the help of the 
book, TRS-80 Disk And Other 
Mysteries by Harv Pennington. 

The program works as 
follows: First, establish the file 
names to be dealt with. Next, 
dimension an integer array to 



contain the object code as it is 
read from the object file. The 
object code is read in 256-byte 
segments and transferred from 
the buffer strings to the array 
as ASCII codes. When the end 
of the file is reached, the array 
is checked to see that the first 
byte is 01 (identifying it as an 
object code file, as opposed to 
a Basic file, for example, which 
would have a different first 
byte). The number of bytes to 
be loaded are then obtained, 
the address codes being 
skipped, and then your codes 



are printed with data state- 
ments into the output file in 
groups of seven. You can 
change the number of data 
statements per line by chang- 
ing line 45. 

With this program, you could 
build a library of Dataiine files 
of your favorite Assembly pro- 
gram routines, ready to merge 
with your Basic programs. 

One thing to note: When you 
assemble your routines, add 
three zero bytes to the end of 
each program, to give a quit 
signal to Dataiine. ■ 



REM *** 
REM *** 
REM *** 

CLEAR 1000 : CLS 

FI$ - "" : LINE INPUT "<FILE SPEC/EXT;DN> OF INPUT FILE? 



DATALINE/SBS 

12/06/80 
R. A. PRESS, M.D. 



IF FIS = "" THEN 5 

LINE INPUT "<FILESPEC/EXT:DN> OF OUTPUT FILE? "; 

8 IF FOS - "" THEN 7 

9 IF FIS = FOS THEN 5 

10 INPUT "LINE NUMBER TO BEGIN WITH (0-60500)"; LN! 

11 IF NOT (LN1> AND LNK60501) THEN 10 

12 INPUT "INCREMENT LINES BY HOW MUCH"; IC» 

13 IF NOT (IC% > 0) THEN 12 

14 LN! - LNI-IC* 

15 PRINT "OPENING FILE: "; FIS 

16 OPEN "R", 1, FIS 

17 PRINT "OPENING FILE; "; FOS 

18 OPEN "0", 2, FOS 



FOS 



19 NB - LOF(l) * 256 




20 DIM A%(NB) 




21 FIELD 1, 255 AS AS, 


1 AS B$ 


22 FOR I - 1 TO LOF(l) 




23 GET 1 




24 FOR ZA = 1 TO 255 




25 K - K + 1 




26 A%(K) - ASC(MIDS(AS 


ZA,1)) 


27 NEXT ZA 




28 K - K + 1 




29 A»(K) - ASC(BS) 




30 NEXT Z 




31 FL » : Z - 1 i SW 


• -1 : I • 1 


32 IF A%(Z) <> 01 THEN 


PRINT" BAD LOAD." 



Program Listing 



33 LD = A%(Z+1) 

34 FOR ZA - 4 TO LD+1 

35 IF NOT (SW - -1) THEN 37 

36 GOSUB 500 

37 IF NOT (A%(ZA+Z) - 0) THEN 41 

38 IF NOT (A%(ZA+Z+1) - 0) THEN 41 

39 I? NOT (A%(ZA+Z+2) - 0) THEN 41 

40 FL - -1 

41 IP NOT (FL <> -1) THEN 55 

42 PRINT USING "#♦♦"; A%(ZA+Z); 

43 PRINTI2,USING"»M";A%(ZA+Z) ; 

44 K - K + 1 

45 IF NOT (K > 6) THEN 50 

46 K - : SW - -1 

47 PRINT 

48 PRINT#2,"" 

49 GOTO 52 

50 PRINT", "; 

51 PRINT#2,",*; 

52 NEXT ZA 

53 Z - 2 + LD + 2 

54 IF Z «> NB THEN FL - -1 



55 IF NOT (FL - -1) THEN 

56 IF NOT (SW » -1) THEN 

57 GOSUB 500 

58 PRINT#2, -1 

59 PRINT -1 

60 CLOSE 

61 END 

500 LNI - LN! * IC» 

501 PRINTI2, LN!; "DATA " 

502 PRINT LN!; "DATA '; 

503 SW - 

504 RETURN 



^S*t List of Advertisers on page 354 
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TUTORIAL 



A hybrid language for programmers who need structure in their lives. 



Bascal 



Richard C. Metzler 

9512 Mesa Arriba Court NE 

Albuquerque, NM 87111 



Does it depress you when 
you read articles which 
criticize Basic? Unstructured, 
not self-documenting, and bad 
subroutine procedures are 
some of the epithets hurled at 
Basic by the supporters of 
Pascal, C and other structured 
languages. Would you like to 
use a Pascal program but find 
yourself stymied by the lack of 
While and Repeat commands? 

Bascal 

We can introduce some new 
commands into our familiar 
Level II Basic which, together 
with some new programming 
techniques, turns Basic into a 
structured language. I have 
christened this new dialect of 
Basic "Bascal". 

But why not just buy a com- 
mercial tape or disk of Pascal? 
Well, the tiny versions restrict 
you to integers and cripple your 
string-handling capabilities 
while even the big 32K and disk 
versions don't provide double 
precision. I hate to give up the 
sophisticated string-handling 
and double-precision arith- 
metic of Level II. Also It's a 



nuisance to learn new names 
for old commands. 

On the other hand, it is no 
longer in dispute that struc- 
tured programming is easier to 
read, debug and change. Once 
you are used to it, it's even 
easier to write the program 
from the start. Let's look at 
some of the good features of 
structured programming and 
see if we can incorporate them 
into Basic. 

Self-documentation 

Self-documenting is one of 
the jargon words applied to 



of A or B. We can already do 
this in Level II if we are careful 
to avoid two problems. The first 
occurs when we embed a 
reserved word in our variable 
name. For example TOTAL in- 
stead of TTAL would give us a 
syntax error because of the 
reserved word "TO" and COST 
bombs because of the COS 
function. One way to minimize 
this is to omit vowels so that 
the resulting name is 
recognizable but unlikely to be 
in the reserved word list (it 
doesn't work for CMD however). 
The second problem is due to 



"We can introduce some new 

commands into our familiar 

Level II Basic which. . . turns 

Basic into a structured language. 

I have christened this new 

dialect of Basic 'Bascal.' " 



structured languages. One 
aspect of this is self-explan- 
atory variable names such as 
TTAL for total instead of X or Y 
and BLNCE for balance instead 



the fact that Level II recognizes 
only the first two characters. 
We have to be alert to avoid 
designating the same variable 
with two different names. 



Another aspect of self- 
documentation is the sub- 
routine (Pascal procedure) 
name. The Basic line GOSUB 
5000 just doesn't cut it com- 
pared to GETNEXTENTRY or 
DISPLAYRESULTS. Here's how 
we can incorporate this desir- 
able feature into our Basic pro- 
grams. 

Instead of GOSUB 5010, we 
replace the line with T$ = 
"PRINTTABLE":GOSUB9. At 
line 9 we find the heading for 
our subroutine table. 



9 

REM ••"SUBROUTINE TABLE •**• 
10 

:IF T$ = "FINDNEXTENTRY" THEN 
X»Y + 7 
:PRINTX,Y...etc. 
: RETURN 
20 

:IF T$ = PRINTTABLE" THEN 
:FORN«1TOK 
:PRINT N,X(N); 
:NEXT 
:RETURN 

The idea should be clear 
from this example. Each sub- 
routine is written out before the 
main program. When the main 
program (or another sub- 
routine) calls a subroutine, the 
computer goes to line 9 and 
searches down until it finds a 
match forT$ and then executes 
that subroutine. At the end of 
the subroutine list we put in the 
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6 ways to give 
your TRS-80 a 



+ PLUS 



Exhaustive research and professional standards 
bring you the best in business software. 



EASYTRAK 

KEEP YOUR SALES CURVING UP- 
WARD WITH EASYTRAK"", a powerful 
all-purpose activity tracking system. (Jser- 
specified options enable you to monitor 
sales activity by territory, product line, 
salesman, or by combinations. Can 
monitor inquiries, sales calls and order 
booking. Production activity (by shift, by 
product, by day. by team, 
etc.), spending or in- 
come activity are simple 
to set up with EASY- 
TRAK"" . Extensive video 
displays make available 
individual, group or total summaries, rela- 
tive averages, and percentage data all at the 
touch of a button. Use of an 80-column 
printer is optional. 




MODEL 1/111 
MODEL II 



$125 
$150 



' GENERAL LEDGER 

SLICE OUT MORE PROFIT by using 

t General Ledger to monitor your financial 
status. Features include fully-flexible finan- 
cial statements, both budget and last year 
comparisons, special report options, 
monthly and quarterly trial balances, man- 
ual and or automatic journal entries all with 
extensive audit trails. You structure the 
chart of accounts with up to 5 digit account 

nUmbefS MODEL l/lll $325 

MODEL II $350 





+ ACCOUNTS RECEIVABLE 

PUT MORE CASH IN 
YOUR BANK AC- 
COUNT with + Account 
Receivable*s many col- 
lection/credit features, 
including average pay- 
ment days. aging 
schedule and statements. 
Open-item system records sales activity 
this year and last, optional automatic dis- 
counts and salesman assignment. Cash re- 
ceipts and A/R adjustments feature exten- 
sive on-line validation. And, yes. f Accounts 
Receivable handles the pesky new 9-digit 
zip code. Other optional features include 
service charges to selective customers; 
partial and on-account payments. Posts, 
at your option, to ^ General Ledger. 



MODEL l/lll 
MODEL II 



$325 
$350 



i 



FIXED ASSETS 

A POWERFUL SET OF TOOLS TO 
CALCULATE and monitor fixed asset ex- 
penditures, book and tax depreciation, in- 
vestment tax credit, etc. Will even forecast 
future depreciation for you. (Handy at 
budget time!) Code structure enables you 
to classify assets by departments, buildings, 
groups or other categories. Handles seven 
depreciation methods. Can post to * Gen- 
eral Ledger for you. 

MODEL l/lll $325 
MODEL II $350 




+ ACCOUNTS PAYABLE 

FUNNEL THAT STACK OF BILLS into 
* Accounts Payable system and create an 
orderly, manageable flow of vendor his- 
tories, cash requirements forecasts, check 
registers and checks, aging schedules, etc. 
Will accept manual checks, 
reversals, and adjustments. 
Pay by selected vendor, in- 
voice, due date, discount 
dates, and optionally post di- 
rectly to your • General 
Ledger. Supports 5-digit 
vendor numbers. 



MODEL l/lll 
MODEL II 



»250 
$300 




$ 
$ 



+ PAYROLL 

KEEP YOUR EMPLOYEES HAPPY and 

smiling with prompt, accurate and profes- 
sional payroll records. Will handle weekly, 
biweekly, semimonthly, monthly payrolls, 
produce checks, check 
registers, labor reports, 
earnings reports. Form 
94 Is, W2's. etc. Can 
handle fixed/ voluntary 
deductions, hourly/ 
salary employees, 
bonuses, city and state taxes, etc. Easy to 
use and update tax tables. Automatic 
• General Ledger posting. 




MODEL l/lll 
MODEL II 



$325 
$350 



SPECIAL! All of the above: MODEL l/lll *1250 MODEL II M500 

+ PLUS SOFTWARE comes to you feature-packed from on-line validation to 
machine-language file handling. Extensive documentation and thorough installa- 
tion guide accompany each order. All systems are furnished on disc. Source code 
is included. Texas residents add 5% sales tax. 



To order, call TOLL-FREE 24 hours 

1-800 528 6050 EXT. 1562 

(In Arizona. 1-800-352-0458 Ext. 1562) 



+ PLUS 



PLUS COMPUTER TECHNOLOGY. INC 

POST OFFICE BOX 1152 

ANGLETON TEXAS 7751b 17131649 1108 



^131 



Dealer inquiries invited 

' -TRS-80 is a registered trademark ot lardy Corp 
•EASYTRAK is a trademark ot Plus Computer Tech In. 



sS— Ust ot Adverttsws on pag* 334 
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statement 'PRINT "SUBROU- 
TINE NOT LISTED": STOP'. 
This tells us if we try to call a 
subroutine which is not listed 
because of a typing error or 
some other problem. 

Another feature of the pro- 
gram fragment I would like to 
point out is the use of indenta- 
tion. In Basic, indentation is 
very valuable in showing the 
meaning of a program but is ex- 
pensive in memory space if you 
use only one statement per 
line. I suggest using the down- 
arrow to format your programs. 
If every line number is im- 
mediately followed by the line 
feed resulting from a colon 
followed by a down-arrow, it's 
clear that we can arrange it so 
that all commands start in the 
second column, except those 
that are indented three or six or 
more spaces. The first column 
will contain only line numbers, 
spaces or colons. The memory 
price we have to pay for this is 
minimal— one byte for each 
down arrow and one for each 
space of indentation. I was very 
disappointed to discover that 
tabbing with the right arrow 
doesn't save any more bytes 
than just spacing with the 
space bar. Even so, this tech- 
nique lets you format a 
250-character line at minimal 
cost in memory. 

"All this is helpful", the 
Pascal prophets might say, 
"But what about the lack of a 



While or Repeat . . . Until com- 
mand and what about all those 
hard-to-follow GOTO state- 
ments?" We respond to this by 
inventing the required com- 
mands and renouncing the use 
of GOTOs and even GOSUBs 
except for the GOSUB9 which 
takes us to the subroutine list. 

Inventing Commands 

Computer scientists have 
shown that GOTO commands 
are completely superfluous if 
the language has the While, 
Repeat . . . Until and If . . . Then 
. . . Else commands. We need 
only invent the While and 
Repeat . . . Until commands. 
This can be done by using logic 
commands to adapt the For . . . 
Next loop to our needs. 

The following set of lines 
gives us a Repeat . . . Until: 

FORR = 1T01 

:.. (statements) 
:R = -(condltion):NEXT 

It sure looks like a funny For 
loop doesn't it? Why would we 
bother to go from one to one? 
To see that there is method in 
this madness let's look at the 
final condition which will 
typically be something like 
K>0, A$ = B$ or Q = 5. For all of 
these statements Level II Basic 
returns a - 1 if the y are true 
and a if they fail to hold. Thus, 
if the condition holds, R 
becomes -(-1) and Next in- 



crements it to 2 which causes 
us to exit the For.. .Next loop. If 
the condition does not hold R 
becomes and the Next makes 
it 1, causing us to return to the 
For statement and execute the 
loop again. Thus we repeat the 
statements inside until the con- 
dition is true. 

It's true that we could 
achieve the same effect with a 
conditional GOTO but this in- 
volves using line numbers. The 
above method also has the ad- 
vantage that it will work in the 
middle of one numbered line 
consisting of many state- 
ments. Level II Basic remem- 
bers where the For is located 
when it encounters the cor- 
responding Next. 

The While command is a little 
tougher to handle without us- 
ing line numbers. We do it like 
this: 



FORW = 0TO0: IF (condition) THEN 
W= -1 



:.. (statements) 
:NEXTELSENEXT:W= -1 

This version is only adequate 
if we can fit it all into the 255 
characters Basic gives us for a 
single numbered line. If the 
statements spill over into the 
next line we need some way of 
ensuring that they will only be 
executed while the condition is 
true. An economical way of do- 
ing this is to precede each 
numbered line until the final 



Next with the cryptic statement 
IFW as below: 

1000: 

:FORW = 0TO0: IF (condition) THEN 

W= -1 

:.. (statements) 
1010: 
:IFW 

:.. (statements) 
1020: 
:IFW 



:.. (statements) 
1040: 

:NEXT:W=-1 REM *** END OF 
WHILE LOOP *•* 
1050: 
following statements 

If the condition is false, then 
W is zero and it is not changed 
to - 1. Then the command IFW 
falls through to the next line 
number since W = 0. This will 
happen at every IFW so we will 
plummet all the way down to 
the Next at line 1040. This will 
increment W to 1, causing an 
exit from the For loop. On the 
other hand, if the condition is 
true, W becomes - 1 and all the 
statements are executed since 
IFW checks the value of W and 
falls through to the next line 
only when W = 0. The Next at 
the bottom increments W to 
and sends it back to the For 
which tests the condition to 
see if it should go through the 
loop again. 

If you can't stand the 
thought of all those extra IFW 
statements you could use a 
dreaded GOTO and substitute 



$ 275 

DISK DRIVES 

5'A" 40 Track drive with case and 
power supply. 



FLIPPY DRIVES ONLY $295.00 

2 DRIVE CABLE $14.95 

4116 MEMORY CHIPS 8 FOR $20 

CORSAIR COMPUTER 
CORPORATION ^ 

7952 Highway 80 West 

Fort Worth, TX 76116 

817-244-8051 



MANUFACTURING INVENTORY CONTROL 

MICS module-Manufacturing Inventory Control 

15 reports for inventory, purchasing, and 

stockroom control 

* Vendor reports * Part reorder reports 

* "Pick List" reports * ABC analysis 

* Scheduling simulation capability 

* Parts "allocation" feature - prevent stockouts 

* Inquiry by part, vendor part, and description 

BOMP moduU - Bill of Materials Processor 

* Indented BOM reports * Finished goods reports 

* Obsolete parts report * "Where used" inquiry 

* Automatic "Pick List" report generation 

* Work in process value reports 

* Process "lead time" based on actual inventory, 
work in process, and reorder lead times 



All modules for Model 1, 32K Bus 
Master menu driven - fully opera 



Systems 
rompted 



MICS-1 2 drives, 1000 parts, 200 vendors - $295 

MICS-2* 2 drives, 200D parts, 300 vendors - $345 

MICS-3 3 drives, 2000 parts, 200 vendors - $345 

MICS-4* 3 drives, 4000 parts, 400 vendors - $395 

BOMP (adds on to any MICS Module) - $295 

Send for catalog of ELTBCH business modules 

ELTECH Associates ^*se 

2466 Moreno Drive, Los Angeles, Ca 90039 

(213) 663-0347 

•Requires double density. All modules upgradable 




(CjX V *"°" 've Written an 

^^ Extraordinary Program- 

We'd Like to Publish It! 
Programs needed for MANAGE- 
MENT applications: 

PERT & CPM SCHEDULING 

PREDICTIVE MODELING 

DECISION-MAKING SIMULATIONS 

PRODUCTION SCHEDULING 

EXPENSE ANALYSES 
Royalty checks may be In YOUR 
future. Write for our free Pro- 
grammer's Kit today. 

INSTANT SOFTWARE, INC. ^^ 
Submissions Dept. 
Peterborough, NH 034S8 
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the following for line 1000 
above: 

1000: 

FORW = 0TO0: IF NOT(condition) 
THEN GOTO 1040 
ELSE W = - 1 



:.. (statements) 

Then the IFW statements can 
be removed. I don't recommend 
the alternative GOTO 1050 
which would seem to have the 
same effect since this leaves 
an active For... Next loop in the 
program. Each such loop re- 
quires 16 bytes. If the active 
loop is inside another loop you 
run the risk of running out of 
memory as you store 16-byte 
chunks on each pass. 

Ordinarily, I like to avoid run- 
ning words together in my pro- 
grams, but I do it on purpose in 
FORR = 1T01 and FORW = 
0TO0 to make it easier to distin- 
guish these loops from an ordi- 
nary For loop. Also, R is always 
used in the Repeat loops and W 
in the While loops. This brings 
up another point. What if we 
have one While loop nested in- 
side another one? We can't use 
the same variable W for both 
loops since Level II forgets the 
return address for the contain- 
ing loop when it encounters the 
second FORW = 0TO0. The re- 
sult is a Next-Without-For error 
when the program reaches the 
outer Next. To solve this prob- 
lem we use W1, W2. . .W9 for 
successive interior loops. Of 
course, R1 . . . R9 would be used 



for nested Repeat .. .Until 
loops. 

However, the W1, R1 trick is 
not necessary when a subrou- 
tine is called in the middle of a 
loop. Level II keeps track of 
things so that even if a sub- 
routine in the middle of a 
Repeat . . . Until loop has 
another such loop using the 
same variable R, no problems 
occur. However, with a While 
loop we would have trouble on 
returning from a subroutine 
While loop which had in- 
cremented W to 1. This is the 
reason for the assignment 
W= -1 after the final Next in 
my While loops. This ensures 
that the loop will work all right 
if it is used as a subroutine loop 
inside a larger While loop. Un- 
fortunately, this technique 
works only when there is a 
subroutine call. Ordinary 
nested loops must use the W1, 
R1 method. 

In order to avoid the troubles 
which occur when two vari- 
ables are given the same name 
I try to use two-letter names for 
variables peculiar to the pro- 
gram and reserve single-letter 
and letter-number names for 
standard loop variables. In fact 
the Bascal variables are ex- 
plicitly listed in the sample pro- 
gram in lines 110 and 140. 

Collision of Variables 

Another attractive feature of 
Pascal is the way the problem 



of collision of variables is 
avoided. With a little work we 
can approximate this in Basic. 
When we write a subroutine we 
keep track of all variables used 



and then write the following 
first line: 



IF T$ = "PRINTTABLE" THEN 
l%(l) = COUNT:l = I + 1:l« 



>(!) = 



Program Listing 



REN ***« NUMCON IN BASCAL - VER. 6 - - NOV. 9, 1980 »••«*«• 

8 : 
TS="RUN" 

9 : 

T*0:REM **** SUB TABLE STARTS HERE *•*»•• 

10 : 

:IF TS = "FLASHINGCURSORINPUT" LET CS (C) =1NS:C = C->1 
:INS=" 
:FORW=0TO0:IF1N$OCHR$(13) LETW=-1 

sT$»"DISPLAY&STORE" :GOSUB9 

:T$»"FLASHiGETKEYPRESS":GOSUB9 

:NEXTELSENEXT:W=-1 
iPRINT CHR$(15); 
:OC-l:IN$-C$(C) 
: RETURN 

20 : 

:IF T$«-CHANGETODECIMAL" THEN 

I»(I)=DDIGITtI«l+l:I%(I)=DIGIT:I=I+l 
:FOR DIGIT»1 TO LEN(IN$(CO)) 

:DDIGIT«ASC(MIDS(INS(CO) ,DIGIT,1) ) 
:OD-DD-48+7* (DDIGIT>57) 
:DECl-DECl«RADIX(COUNT)+DDIGIT 
:NEXT 

:I>I-1:DI»I%(I) :1-I-1:DD-I%(I) 
rRETURN 
30 : 
:IF TS="CHANGEDECIMALTORADI XBASE" THEN LET T*l 

:Sl(S)«DECI:S=S+l:S! (S) =QU0T1ENT1 :S=S+1 : 1% ( I ) =RMNDER: 1=1+1 
:FORR*lT01 

:QU1=INT(DECI/RAD1X(C0UNT) ) 
:RM=DEC I -RADIX (COUNT) «QU! 

:OU$(COUNT)*CHR$(RM+48-7«(RM>9) )+OU$(COUNT) 
:DECI*QUI 
35 : 
:IFT 

iR— (DECI=0) :NEXT 

:I-I-1:RMNDER-I%(I) :S«S-1 : QUOTIENT! =s ! (S) : S = S-1 :DEC! -=SI (S) 
: RETURN 
40 i 

:IF TS»*FLASH&GETXEYPRESS" LET T=l 
:I%(I) -CO: 1-1+1:1% (I) ~WAIT: 1=1+1 
:CU-15 
:F0RR=1T01 
:CU-29-CU 
:PRINT CHR$(CU) ; 
:FOR WAIT-1 TO 10 
:IN$=INKEY$ 

:WAIT=HAIT-10«(INS>") 

:NEXT 

:IN»ASC(INS+CHRS(D) 
45 : 
:IFT THEN 

R— (IN-8 OR IN-13 OR (47<IN AND IN<58 AND IN<RA(CO) +48) OR 

(64<IN AND IN<RA(CO)+55)) :NEXT 



Program continues 



f— CHEAP CHIPS ARE NO BARGAIN a»»™ 

I BUYING ADD-ON MEMORY? 
1 GET THE BEST!!! 

I Memory failures cost you lime and money Japanese 16k 

1 RAM chips have a one-to- ten m service failure ratio to U S 
chips -from a study by H Anderson. Computer Dtv . 

?r Hewlett-Packard, reported m Thi Ecwiombt. 4 26 80 
o We offer 4116 chips by Fujitsu. NEC Hitachi, Toshiba 

j*j and Mitsubishi tor most popular computers and 

< expansion memory boards, including 
S "Apple 'Ail TRS-80 i 'New Pet 'Heatk H-89 

3 'Suptrbreln 'Expanoersin 'Many Others 

8 41 16 DYNAMIC RAMS THE BEST 

g 200nsec Plastic $23 70; Ceramic $37. 95 

5 I50nsec Plastic $3095 

2 STATIC RAMS 

° 2114 45Onsec$3 30. 300nsec$3 90. 2101 $2 90 

z EPR0MS (450 nsec std. ask for hi-speed it required) 
* 2708 $4 80, 2716 5V + 12V $9 40: 2716 5V $9 70. 
2 2732 $18 90 
_i We It beat any legitimate price tor comparable chips Hi- 

voiu me users . dealers , or ckibs . ask tor quantity discounts 

SHIPPING to $25. $2. to $50. $1. over $50. FREE 

C00 <■ SI .40. 

DISCOUNTS ON TOTAL over $100 5%. over $200. 10V. 

MINIS & MICROS INC. • 2MB6 Trtiwiy 
-98 Agoura. CA. 91301 • (213)991-7433 
CA. resident* add 6H talis til 

2 YEAR WARRANTY * CALL US ANYTIME 



$ SHIP 
■ COD 

I DISC 

L 



] 



EDUCATIONAL 
SOFTWARE 

For TRS-80* Color Computer. PFT, Apple II. 



ELEMENTARY 

SCIENCE 

GEOGRAPHY 

ECONOMICS 

FOREIGN LANG. 

GRAMMAR 



MATH 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
FARM RECORDS 
COIN INVENTORY 



Write for FREE Catalogue: 

MICRO LEARNINGWARE ^ 

BOX 2 I 34, N. MANKATO MN 56001 
507 625 2205 



VISA & MASTER CHARGE ACCEPTED 

We pay I 5°o royally lor Educational 
Programs lisrecl Aifh us 

Apple is a trademark oT Apple Computer Co. 
TIS-M r» a reibtered trademark of TANDY CO«f 
ret I* a trademark of Commodore »u» machine*. 



MORSE CODE, BAUDOT and ASCII RTTY 
FOR THE TRS-80 MODELS I and III 

DISASSEMBLED HANDBOOK - VOLUME 4 

no RS-232C interlace is required 

Chapl 1 8 to 800 WPM Morse transmit pgm 

Chapt 2 Adding type ahead capabilities 

Chapt. 3 Morse receive decoding program 

Chapt 4 Merging + 12 prepared messages 

Chapt 5 Baudot' transmit 60 66-75-100 WPM 

Chapt 6 Baudot receive tor above speeds 

Chapt 7 Merging * 22 prepared messages 

Chapt 8 ASCII transmit program 110 Baud 

Chapt 9 ASCII receive decoding program 

Chapt 10 Merging + 22 prepared messages 

S18 1 USj per copy add $2 shipping 
| $4 50 overseas airmail! 

-GERMAN & FRENCH LANGUAGE EDITIONS- 

Morse. Baudot & ASCII on disks $49 
| Vol. 4 required lor instructions! 

RICHCRAFT ENGINEERING LTD. 
#1B Wahmeda Industrial Park 
Chautauqua, New York 14722 ^276 

COD orders | US only] (716] 753-2654 



- S— Lilt of Advrllsers on ptQa 354 
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Program continued 



|I«I-1,CU=I%(I) iI-I-l:WAIT-I%(I) 
I RETURN 
50 : 

Sip T$»"DISPLAY&STORE' LET T-l 
Sl%(l)-LE:I-I+1 
:LE=LEN(INS(CO)) 
:IF NOT((LE-8)AND(IN»8)) THEN 
LE-LE+1+2*(IN=8) 
JIN$(CO)-LEFT$(INS(CO)+INS,LE) 
jPRINT INS; 
55 s 
:IFT 

LET I=I-1:LE-I»(I) 
: RETURN 
90 : 
lIF TSO-RUN" THEN 

PRINT "SUB NOT LISTED" ! STOP 
1000 ' 

:REM **** MAIN PROGRAM **** 
1010 ' 

,***•* INITIALIZATION ******* 
1020 : 

iCLEAR 500: DEFINT A-Z 
1030 : 

:C»0:D=0:I-0:R=0:S-0:T=0:W-0iTS-"" 
1040 : 



'*** BASCAL VARIABLES 
BASCAL STACKS 



:DIM CS(9) S DIM D#(9)iDIM I%(9)iDIM SI{9) 

1050 t 

:COUNT-0: DEC 1-0: MSB 1=0 

: ERASE S-STRI NG S ( 16 , * " ) +STRINGS (17 ,8) 

1060 : 

.-DIM RADIX(8):DIM INS(8): DIM 0US(8):DIM AT(8) 

1070 i 

:FOR COUNT-l TO 5 

:AT(COUNT)-80+(COUNT-l)*128 
:NEXT 

:AT(6)-AT(5)+32:AT(7)-AT(5)+128:AT(8)-AT(7)+32 
1080 

:RADIX(l)=10:RA(2)-2:RA(3)-8 

:RA(4)=16:RA(5)=16:RA(6)-16 

:RA(7)=10:RA(8)-10 

1100 : 

IREM **** PROGRAM LOOPS IN REMAINING PORTION **** 

1110 : 

iCLS 



Program continues 



NUMBER:I = I + 1 
:S!(S) = BLNCE!:S = S + 1 
:D#<D) = TTAL#:D = D + 1 
:C$(C) = LABEL$:C = C + 1 



:..(body of subroutine) 



:I = I-1:NUMBER = I%(I): 

COUNT = l°/.(l) 

S = S-1:BLNCE!=S!(S) 

D = D-1:TTAL#=D#(D) 

C = C-1:LABEU = C$<C) 

RETURN 



The variables Number, 
Count, BLNCE!, TTAL# and 
LABELS appear in the sub- 
routine and may be changed 
there. If they are used in the 
main program or in some other 
subroutine, values will not be 
changed inadvertently since, 
on entrance to the subroutine, 
they are saved by being PUSHed 
onto a stack and are then 
POPped off on exit and their en- 
trance value restored. Of 
course, this is only done for 
variables which contain data 
that is not supposed to be 
changed by the subroutine. 

Program Listing 

The Program Listing gives an 



example of the use of Bascal. It 
converts numbers from deci- 
mal to binary, octal and hex and 
vice-versa. It also provides the 
Z-80's most significant byte 
and least significant byte in 
both hex and decimal. 

After the title line we have 
the statement T$ = "RUN" in 
line 8. This means that an initial 
command of Run will cause the 
program to fall through all the 
subroutines to the start of the 
main program. In line 9 we set T 
equal to zero. This is just a con- 
tinue flag which makes it easier 
to continue a subroutine to 
another numbered line. It also 
means that if we use a remark- 
removing packing program we 
won't lose line 9. 

Skipping over the subrou- 
tines for the moment we come 
to the start of the main program 
at line 1000. We start by clear- 
ing some string space and de- 
fining all variables as integers 
since few of our variables are 
anything but integers. After in- 
itializing the Bascal variables 



WE HAVE A PROBLEM 
WITH OUR SOFTWARE 

The problem is that it is underpriced! Potential buyers don't believe the 
accounting software has much capability at $450, so they buy software with less 
capability at $1000. 

What do the ones who buy it say? 

"I have become more and more convinced ... it 
is one of the best bargains available . . ." 
80 REVIEW, 80 MICROCOMPUTING, June 81. 

"The single data diskette with common files is 
really convenient . . ." 
Randy Bemis , Bemis Construction, San Diego. 
"I recommend MICROED software for my com- 

Sandor Zoboki, President 
ZOBEX Computer Systems. 



THE BUSINESS SOFTWARE NOW AVAI LABLE 
GENERAL ACCOUNTING PACKAGE $450.00 

G/L, A/R, A/P 

INVENTORY I $250.00 

PAYROLL $250.00 

System requirements: CP/M, 64K memory, two disk drives, 132 column 
printer 

TRS-80, Model II SOFTWARE NOW AVAILABLE 

14 CP/M Special $90.00 

Single or double density auto-select 

SMARTERM $ 50 .00 

Versatile terminal program, requires CP/M 

CP/M, T.M. of Digital Research. TRS-80, T.M. of Tandy Corp. 



We are dedicated to selling quality business software at reasonable prices. 
Dealers, we have a deal for you. m MM ^% BBfc ^%l MB ■JBt 

Write or Call MICROED 

^^^^^ 3910 BANDINI STREET, SAN DIEGO, CALIFORNIA 92103 • (714) 299-1125 





■■MB 


ffs 9 


VISA' 




pL 
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DOUBLE DENSITY - 179K On SA-400 

ALL TTL - NO FDC Chip 

PLUGS INTO CARTRIDGE SLOT 

UCSD Pascal' COMPATIBLE 

COLOR 
COMPUTER 

$99.95 

FLOPPY 
DISK 

DISK ROUTINES & DEBUG MONITOR EPROM $34.95 
MK bit RAM Chip ADAPTER BOARD $23.95 

n 



Tallgrass 



9009 w. 95th St. 



JTPdinotoaies Overland Ph. ks 66212 

WmlSSSSff 09 '* (913)381-5588 



HORSERACE 
HANDICAPPER 



Uses past performance data from daily racing form 
to predict probable order of finish 

SIMPLE and FAST. Evaluate a horse in seconds. 
Handicap an entire race in minutes. 

Often reveals longshots missed by other methods 

TRS-80* 
MODEL I or III Tape $29.95 Disk $39.95 

MODEL II Disk $39.95 

Tape $34.95 Listing $24.95 



POCKET 

Business 

PROBLEM 

SOLVERS 



250 Richards Rood, No. 254 

Kansas City, M0 64H6 

(816)471-8660 

^448 



BMiPLE I IMC 2X3 
0MK. • GAIN FRO" SAl£ OF Pu'. 


0*T » A« 


-t« 




•I 3WS 

OPT 4 45 
•C 472.23 
CR 4.C7 -J 
«t 44« 1 


_*■ 


.••'"""•'"" + 




* ""^-"iId . toyrfi- S**U 


M 



OPTIONS-80 <60 

BOX 471 CONCORD MA 01742 



PROGRAM FOR MAXIMIZING RETURNS 
FROM OPTION INVESTING. ANALYZES 
BUY & SELL OF LISTED CALLS, PUTS, 
SPREADS & SHARES. INCLUDES COM- 
MISSIONS, RISK, COST OF MONEY AND 
DIVIDENDS. HARDCOPY 8 STORAGE TO 
DISK. ACCOMPANYING MANUAL A COM- 
PLETE & UNIQUE GUIDE TO OPTION 
INVESTING. $125. SEND FOR FREE 
BROCHURE. MONEY BACK GUARANTEE. 



■ Trademartol Tandy Corp Mbsoui residents ptease odd 4' ?% sates tax 



□ 
□ 
□ 

a 
a 
□ 



LNW80 COMPUTERS a 

,- ■•.-'.6 • 

n«Qen«QeD»Q»D«Q«neneOeDe d 
100Z TRS-80* mod 1 or 3 a 

COMPATIBLE! + Hl-RES BW • 
AND COLOR GRAPHICS! 

IN STOCK NOW!! call for 

SPECIAL DISCOUNT PRICE! 



R 



K Electronics 

180 WOODROW WILJ 
LOS ANGELES , CA 5 



R. 



(213) 851-0626 

(71H) 973-1939 

ORDER LINE OPEN 24 HRS 

INFO M-F 6-9PM 9-9 S&S 



a 

D 

a 

□ 

□ 
a 

a 



T»NO» CO«fO««IION 



l~l TRAOCIi 

D»DeaeD«D*n*a«D»n*n«D»n«D«n • 



D 



64K COLOR 

TRS-80* COLOR 
COMPUTERS 

64K $699 16K $389 

32K $429 4K $329 

Add $90 for extended basic. 

EXPANSION KITS 

64K $375 16K $35 
32K $75 XBASIC$90 

Cell for detail* on other TRS-80* 
computers & accessories. 

SOUND CENTER .454 
RADIO SHACK DLR 
Los Alamos, NM 87544 
(505) 672-9824 

"TRS-80 is e tredemerk of 
Tandy Corp. 



*# 
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You've Written 
a Fantastic Qame? 
Then We'd Like to Publish It! 
We're looking for hot GAME pro- 
grams: 
ARCADE (HI-SPEED GRAPHICS) 
ADVENTURE FORMAT 
FANTASY W ARGAMING 
BOARD GAMES 
LOGIC ft PUZZLE GAMES 
There's Gold in them there 
Games! Write for oar free 
Programmer's Kit today. 

INSTANT SOFTWARE, INC. 
Submissions Dept. 
Peterborough. NH 03458 



y2 



Subscription 
PnibbSrh? 



80 Microcomputing does not keep 
subscription records on the premises, 
therefore calling us only adds time 
and doesn't solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

80 Microcomputing 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you and en|oy your subscription. 



AUDIO ALARM DEVICE 
TRS-80 MODEL l/lll 

External Device that plugs 

directly into Cassette Port. 

Ideal for Business Applications: 

• Operator error notification tone 

• Complements numeric keypad input 

Specifications: 

• 2V4"Wx3V4"Lx 1V«"D 

• 36" caPle with cassette port plug 

• 1 pound 

• Beep lasts 2 seconds 

• Battery powered— 9 volt 

• Only 1 line basic program 

• Install in seconds 

Inexpensively Priced 
$34.95 Audio Alarm Device 
$ 1.75 Postage & Handling 

$36.70 Total Price 

(Ohio Residents Add $2 10 Sales Tax) 
MAKE CHECK -OR- MONEY ORDER PAYABLE TO 
RSI 

231 Green Street. Dayton. Ohio 4S402 
(513)461-4850 ^67 



EPROM-80 FOR TRS-80 

Programmer for 2700 Type EPROMs 
(2704/08, 2758, 2716, 2732, 2732A, 
Mostec 2764, Intel 2764) 




The logical solution to EPROM programming 1 One program 
for all type EPROMs Timing under software control 28 pin 
zero insertion force socket No external power supplies 
required 36" ribbon cable connects directly to expansion 
interlace Average programming lime 100 seconds per IK 
bytes Includes program on disc and cassette Program 
operated in two modes Mode 1 EPROM type select Program 
prompts user to set 4 toggle switches depending upon 
EPROM type Mode 2 Type of action Reads one EDTASM 
file from disc or cassette (assembled anywhere) into buffer 
Reads EPROM data into buffer writes buffer data to EPROM 
Automatic verify after write And More Minimum require- 
ments TRS-80 LEVEL 2. 16K RAM PRICE $290.00 

CANTECHDATA -483 

7826 W. ARGYLE. NORRIDGE, ILL 60656 
PHONE (312) 887 0161 



.'Sea List of Advertisers on page 354 
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Program continued 



! PRINT " 
DEC I HAL REP. 



BINARY REP. 



OCTAL REP. 
HEX. REP. 



LSB(HS») 



<ENTE»> TO CYCLE TO HEXT POflTION 



HSBIHEXI 



MSB (DEC) 



LBB(DEC) ■ 

1126 > 
i COUNT- • 
iFORR-lTOl 

i COONT- 1 -COUNT* ( COUNT < 8 ) 

I PRINT * AT(COONT),| 

• TI-'PLAfiHINGCURSORINPUT" ,G06UB9 

it— (IN$(COUNT)>" AMD {COUIIT<5 OB (COUNT-6) OR COONT- 8) ) .NEXT 

1138 i 

IIP COUNT-6 

1148 E I INS(6,=RIGHT$( " 8, "* IM5 ' 6 »' 2 '*"<»«(''»'*I»S(5),2) 

:IF COUNT=l LET DECI-VAL( I«(l) ) 

ELSE IF COONT-8 LET DBC1-256«VAL{ IN$(8) ) +VAL( IB*(7) ) 

USE T$--CHAHGETODECIIIAL"tGOSUB9 
1158 ■ 

.PRINT « AT(1),ERASE$,CHR$(8),DBCI, 

1168 : 

I FOR COUNT- 2 TO 4 

iTS-'CHAHGEDECIKALTORADIXBASE'iGOSUBS 
•NEXT IKT * AT(COONT) , ERASES, 00*{COOOT) , 

1178 i 

iOUS(4) "RIGHTS! •888 , -K>U$(4), 4) 

:PRINT B AT(5) r ERASE$|RIGHTS(OUS(4),2), 

l PRINT « AT(6),ERASES»LEFTS(OUS(4),2)j 

I DEC I -DEC I 

iMSBI-INT(DECi/258) 

.•PRINT 9 AT(7J. ERASES, CHRS( 8) ,DECI -256»MSBI , 

.PRINT 9 AT[8) .ERASES, CHRS(8),MSBI 

:PRINT:PRINT "PRESS ENTER POR NEW PROBLEM ' , : INPUT IN$(1) 

.RUN 



and stacks we initialize the 
variables and arrays which 
carry program information. 

In line 1100 we start the run- 
ning part of the program. Line 
1110 contains our first Repeat 
...Until loop. In the loop we 
start with Count incrementing 
from zero to one and then we 
call the input routine which 
loops and accepts keyboard in- 
put until Enter is pressed. If 
only Enter was pressed we see 
that IN (COUNT) =s"" and we 
cycle back to the For and incre- 
ment Count. Note that the 
COUNT<8 factor returns a ( - 1) 
until Count reaches eight when 
it returns zero. Thus if the 
operator continues to press 
Enter he will cycle Count from 
one to eight and back again, 
endlessly. When the input 
string is non-empty we break 
out of the loop unless we still 
need the most significant byte. 

Dropping through to the next 
line, if the operator just entered 
the Isb and msb of a hex 
number at Count = 5 and 
Count = 6 then we put them 



together to form one four-digit 
hex number. If Count = 1 and 
the operator just entered a 
decimal number then we simply 
take the numerical value of the 
Input string. If Count = 8 and 
the operator just gave us the 
Isb and msb in decimal form we 
calculate the actual value as 
256*msb + lsb. Finally, in any 
other case we call the 
subroutine which changes the 
number in some base other 
than 10 to a decimal number. 

Now we print the decimal 
number in the first position and 
call the subroutine which 
changes the decimal into the 
various bases. We take the hex 
output, add some zeros on the 
front so that we are sure we 
have four digits, and peel off 
the first two and last two digits 
for the msb and Isb. Finally, we 
calculate the msb and Isb in 
decimal form. After the results 
are all printed we print the 
Press-Enter-for-New-Problem 
message. When any key is 
pressed we fall through to Run 
which zeros all variables and 




NoGIGOHcr 

Just 
Program Value 




208 Basic Programs at Less Than 27 $ Each 

All in Four Fascinating Books 
Stop the "sort and search" through other guidebooks. Web has what 
you're looking for ... a treasury of directly applicable Ideas, programs, 
systems, hardware configurations and money saving tips in clearly written 
code. 

• TRS-80 tested 

• Presented in concise Level II BASIC 

• Immediately useable on your TRS-80 Models I and III* 

• Reproduced in guidebooks directly from printer listings 

* can be run on model II with small modification -554 



Please indicate selections): 

D All four books (Save 20%) @ $55.84 

D Techniques of BASIC <tp $18.95 

D Data Management Techniques (5) $16.95 

D Introduction to Graphics @ $15.95 

D Guide to Systems Applications @ $17 95 



Total amount of order $ 

Tax (California residents add 6%) $ 
Postage and Handling ($1.25 per book 



or $4 00 for all four books) 
TOTAL enclosed/to be charged 



Please Indicate method of payment 

below: 

O Bill my company (P.O. No required) 
O Bill me 

O Check or money order enclosed 
(WCB pays Postage and Handling) 



YOURS TO EXAMINE RISK-FREE FOR 30 DAYS 



* TECHNIQUES OF BASIC * INTRODUCTION TO GRAPHICS 

Bonanza of BASIC techniques for writing Demonstrates the many exciting graphic 
good structured programs for business, ed- capabilities of the TRS-80 A great source 
ucation, scientific and home applications. book of ideas for jazzing up your programs 

¥ DATA MANAGEMENT TECHNIQUES and makin 9 them look mo ^« professional. 
Demonstrates and explains many ways to *GUIDE TO SYSTEMS APPLICATIONS 



processing, queue, stack and tree process- tour" of the wide ranging capability of your 
In 9- computer. 

WRITE TODAY FOR ALL FOUR BOOKS AND SEE FOR YOURSELF 

(dealer inquires welcome) 



jj Charge my credrt account D Visa □ Master card 
Account No MC Bank « 

H I I I I I I 1 I 1 I I I 11 1QXD 



Exp Oat* 



Signature 



(required lor all charges) 



Name 

Address 

City ' 

State 



In a rush? CALL TOLL FRFE/ 24 HOURS (VISA/ 
MC. order* only) 800-227-1617 EXTENSION 541 (In 
California Call 800-772-3545 Extension 541) Order 
»S8 1-057 

III oh Win. C. Brown Company. Publishers 

2460 Kerper Blvd., Dubuque. Iowa 52001 V 
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Education = Microcomputers. 




MC 



*to the power of 
Instant Software 

Einstein's equation helped explain the properties 
of relativity, but didn't do much to speed the learn- 
ing process. Instant Software's equation means in- 
dividual attention and greater comprehension. 
Everyone knows the best student-teacher ratio is 
1:1. That was a problem in years past, but now it's 
as easy as C.A.I. (Computer-Aided Instruction). 
These Instant Software programs will guide and 
teach each lesson with the infinite patience only a 
computer can provide, thus allowing students to 
progress at their own pace. 

Einstein had the right idea, but if he'd only known 
then what we know now 



4**M 



Typing Teacher donheTRsso^r 

A complete seven-part package that guides you from famil- 
iarization of the keyboard through typing words and phrases to 
mastery of touch-typing. Your video monitor becomes a bot- 
tomless page for typing practice, and your own private TYPING 
TEACHER, ready to teach when you're ready to learn. Model I, 
Level II, 16K; Model III, 16K. Order No. 0099R-A14 $9.95 plus shipping. 

Teacher's Aide (forthemsw™)' 

Now you can have the benefit of Computer Assisted Instruc- 
tion (CAI) in your own home. The Teacher's Aide program allows 
you to create tailor-made lessons for your child. The features of 
this program include the ability to review material before taking 
the lesson, a provision for hints to help answer questions and 
graphic displays as a reward for answering all questions correct- 
ly. Once you've created a lesson, you can save it and create an 
entire sequence of lessons. 

The Teacher's Aide package is perfect for parents, teachers, 
and students who need the unlimited patience only a computer 
can provide. Level II 32K. Order No. 0214RD-A13 (disk-based) 

$39.95 plus shipping. 

Geography Explorer: 

U.S.A. (for the TRS-80™)' 

This program allows your child to travel the country and learn 
vital facts about each of our 50 states. Geography Explorer offers 
the most fascinating way of learning yet. Learn each state's 
name, capitol, largest city, nickname, etc. As a bonus, this 
package offers the capability of light pen use. Model I, Level II 
16K, expansion interface with 16K, one minidisk drive. Order No. 
0071 RD-A16 $49.95 plus shipping 







Capitalization (for the Appie^- 

Here's the most patient grammar teacher a 
student will ever have. . .CAPITALIZATION. It's 
one module among several in the English Lan- 
guage Series of CAI (Computer Aided Instruc- 
tion) programs from Instant Software. This pro- 
gram introduces and exercises the twelve rules 
for capitalization in English. The student may 
study the rules in order from 1 to 12, or may sin- 
gle out one particular rule for study and practice. 
Start with CAPITALIZATION and graduate to 
proper grammar and a better understanding of : 
the English language. Applesoft Basic 32K, 1 .- 
disk drive. Order No. 0339AD-A15 (disk-based) 

$34.95 plus shipping. •. 

i 



"Why didn't-K^C 
I think 
of that?" 



TO ORDER: 

See your local 

Instant Software dealer 

or call toll-free 

1-800-258-5473 

orders only 

In New Hampshire 
1-603-924-7296 

Mon -Fri. 8:00 am -4:30 pm E.S.T. 



Instant Software 




sa~> 



Peterborough, New Hampshire 03452 



A division of Wayne Green Inc. 



•TRS-80 is a trademark of Radio Shack division & 

Tandy Corp. 

• "Apple is a trademark ot Apple Computer Company 



^See List ot Advertisers on page 354 
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s'.-nds us back to line 5. 

Notice how the long variable 
names and subroutine names 
help in reading the program. 
The INS array collects keyboard 
Input and the OU$ array col- 
lects program output to be 
printed. The function of each 
subroutine is clear from its 
name. Now let's go back to the 
subroutine table to examine it 
more closely. If T$ = "FLASH- 
INGCURSOR INPUT" then 
when we GOSUB9 we execute 
the commands at line 10. There 
we first store INS on the char- 
acter string stack so that any 
calling program could use the 
variable INS with no fear of col- 
lision, since the entering value 
would be retrieved from the 
stack just before the return. 
Then we initialize INS and drop 
into a While loop. While the key- 
press is not an Enter we display 
it on the screen and store it in 
IN$(Count). We flash the cursor 
while waiting for each key- 
press. In the routine FLASH 
&GETKEYPRESS, after saving 
variables on the stack as usual, 



we set CU equal to the cursor 
off control character and enter 
the Repeat...Until loop. 

Changing CU to 29-CU tog- 
gles CU to cursor on and it's 
clear that we will toggle be- 
tween on and off as we cycle 
through the loop. The For loop 
gives a delay for the on and off 
times. If there is a keypress dur- 
ing the loop, Wait becomes 
Wait minus 10 times ( - 1) so we 
exit the loop. The ASC function 
returns the ASCII number of the 
first character of the string in- 
side the parentheses so if we 
exited normally from the For 
loop without a keypress it will 
become 1. The alternative 
IN ■ ASC(IN$) causes an Illegal 
Function Call if IN$ = ". The 
next line is our complicated Un- 
til condition. If the keypress 
was a backspace, an Enter, a 
number or letter that makes 
sense in the base we are using 
we return. Otherwise we just 
loop back to the Repeat. 

On returning from FLASH& 
GETKEYPRESS we cycle back 
to the start of the While loop. 



Assuming that the keypress 
was not an Enter we call DIS- 
PLAY&STORE. In that routine 
we merely return if the keypress 
was the first entry and was a 
backspace. If not we add INS to 
the end of INS(CO) and print it 
on the screen. The assignment 
involving 2*(l = 8) has the effect 
of subtracting one from the 
length of INS(CO) if the 
keypress was a backspace. In 
this case the LEFTS function 
will remove the character last 
entered. 

The net effect of all these 
routines is to allow the operator 
to enter and correct only those 
entries which make sense in 
the base in use. 

The subroutine "CHANGE- 
TODECIMAL" is a straight- 
forward calculation. The digits 
of the entry having radix (or 
base) equal to Radix(Count) are 
peeled off from the left and 
changed to ASCII. The assign- 
ment involving 7*(DDIGIT>57) 
has the effect of skipping the 
ASCII codes from 58 to 64 in 
order to give the correct 



decimal equivalent when 40 is 
subtracted. 

The last subroutine, CHANGE 
DECIMALTORADIXBASE, uses 
the same sort of trick in the 
OUS line to change from 
decimal numbers to characters 
which are appropriate for the 
base in question. One element 
worthy of comment is the use 
of the variable DEC!. This is 
used as a variable which is re- 
duced to zero during the calcu- 
lation. However it is also the 
variable in the main routine 
which holds the value needed 
for three separate calls to this 
subroutine. This could lead to a 
hard-to-find error but our stack- 
saving discipline means that 
the problem disappears. On 
each exit from the routine OEC! 
is restored to the value it had on 
entrance so it is ready for 
another subroutine call. 

So that's it, programmers. 
Get out that book on Pascal 
that's been gathering dust on 
your bookshelves, fire up your 
'80 and start programming in 
Bascal. ■ 






FREE! 



A SASE gets you a free pro- 
gram listing and a list of our 
low prices. Here are a few: 

AXIOM IMP2 Printer $579 

IMP2PAA 1 With tractor, single or roll feed, 5K buf- 
fer, includes full graphics software. 

SEIKO Printer 

CP80U 



$359 



PERTEC Drive $325 

FD 200 complete ■flippy" <*Hh supply & case) 
capable of 40 track, double density operation. 

Also cassettes, diskettes, 
cables, memory, power sup- 
plies and cases 
Software: auto minder, graph- 
ics monitor, mailbox, talking 
keyboard & more 

TERMS: Check, Mastercharge, 
Visa or money order 

Micro Mnemonics 

(801) 825-9317 
/- 403W2250N 

SUNSET, UTAH 84015 .485 



TRS-80 



SAVE fl BUM DLE 

When you buy your 
TRS-80™ equipment! 

Use our (oil free number to 

check our price before you buy 

a TRS 80™ . . . anywhere! 

TRS40 <t m i'*o«m*r* ot m* RM<o S*xc> o—vo- o> Tandy Cotaoiahon 

Don't delay . . . CALL TODAY A 
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SALES COMPANY 

1412 WEST FAIRFIELD DR. 

P.O. BOX 8098 PENSACOLA FL 32806 

904/438-6607 

nationwide 1 800 874 1551 

•mmmm 



BUSINESS USERS! 

SAVE TIME & MONEY BY 

CONTROLLING YOUR LONG 

DISTANCE TELEPHONE COSTS 



LONG DISTANCE ANALYZER will 

• Sort your billed calls 

• Identify each party called (from your known 
list) or print locations of unrecognized 
numbers 

• Total the cost of calls to each number, to all 
numbers, and to all unrecognized numbers 

• Analyze calls and tolls by area code, state, 
and WATS zone 

• Print an alphabetical directory of recognized 
numbers 

• Save verification time 

• Create cost-consciousness 

• Facilitate cost accounting and client billing 

• Isolate personal calls and billing errors 

• Reveal inefficient use patterns 

• Help you perform WATS feasibility studies 

Requires Model I, II, or III TRS-80", Level II, 16K, 
and 1 disk. Printer is optional. No connection to 
phone system. 



Mode) 


Cassette 


TRSDOS'dlik 1 


1 


$95 


$136 


II 


N/A 


$168 


III 


$95 


$135 



Brochure on. request. 

Send model number and check or money order to: 

Golden BraM Software 
R O. Box 2934 - 28i 
Sarasota, Florida 33578 



•TRS-80 and TRSDOS 

am trademarks 

of Tandy Corporation. 
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COMPUTER SHOWS 



SECOND ANNUAL 
NJ MICROCOMPUTER 
SHOW AND FLEAMARKET - 1981 
NEWARK, NEW JERSEY 
Sat. Oct. 24 o Sun. Oct. 25 
1 0-5:30 PM « 10-3:00 PM 
HOLIDAY INN (NORTH) 
NJ Turnpike • Exit 14 
(Take Route 1-9 Service Road - Follow Signs) 
REGISTRATION $5.00 • 
FLEAMARKET ONLY $3.00 
Fleamarket Permits $5/Spot 
(Includes Admission) 
Commercial Exhibits* User Groups* Fleamarket 

SECOND ANNUAL 

NATIONAL "80" MICROCOMPUTER 

SHOW (FOR TRS-80* USERS) 

April 29, 30. May 1, 1982 

NEW YORK STATLER HOTEL 

NEW YORK CITY 

100 Exhibit Booths • Speakers* User Groups 
•TRS-80 is a Trademark of Tandy Corporation 

For Registration. Exhibitor or Fleamarket 

Information Contact: 

KENGORE CORPORATION 

3001 Route 27 • Franklin Park. NJ 08823 

(201)297-2526 ^230 



V Check 

our book pages for the latest books 
about microcomputers! 

-WAYNE GREEN BOOKS- | 

A Division of Wayne Gram he | 

Peterborough, HH 03458 \ 



FREE 
48-Page 
Catalog 



A new, free 48-page catalog is free 
from Creative Computing and Periph- 
erals Plus. To help buyers make intelli- 
gent purchasing decisions, the product 
descriptions are exceptionally compre- 
hensive and include screen photos in the 
software section 

The catalog describes 20 books on pro- 
gramming, games, and educational appli- 
cations; 160 software packages for 
Apple. Atari. TRS-80. PET. CP/M. Tl. Sor- 
cerer and Sol computers; 3 magazines 
(Creative Computing, Microsystems, and 
SYNC); 5 graphics and music peripherals; 
an LP record; board game; 8 T-shirts and 
an eclectic assortment of other products 
for the personal computer user. 

To get your free copy, simply drop a 
card or note to the address below. 



creative computing 



Attn: Becky 

39 East Hanover Avenue 

Morris Plains. NJ 07960 



.512 






Wages 

Is 
Here 

FOR THE TRS-80 



• Wages MEETS PAYROLLS 

• Wages IS GUARANTEED 

• Wages COST ONLY 

$35.00 FOR MODEL I 
($45.00 FOR MODEL II) 



FROM 
The Maine Software Library 
P.O. Box 194 " m 

Standish, Maine 04084 

*A Trade name of the Tandy Corp. 



While they last . 




the complete year of 1 980 80 Microcomputing 
(in its own shelf box. . . a $2.00 value — Free) 

for only $25.00.* ^P 

Did you miss the 2,256 pages of useful information published for your TRS-80* * in 80 Microcomputing last 
year? Now is the perfect time to catch up for only $25.00.* 

In the first year of 80 Microcomputing here were 335 articles on your TRS-80— 2 V% times more than any other 
computing magazine. Also in 1980 there were new product reviews, news and columns and best of all hun- 
dreds of dollars worth of useable programs. 

So to unlock the key to your TRS-80 and double its value. . .send in today for the complete year of 1980. 80 
Microcomputing (in its own shelf box) for only $25.00.* 
We have a limited number of these complete sets so send in the card today or call our toll free #800-258-5473 

and charge it to your VISA, MC or AE card. ., ... ._, ..t DC on ■ t a v it 

^^^ * 'plus shipping and handling ($3.00) "TRS-80 ts a Trademark of Tandy 

n 




>n I want a year of 80 Microcomputing for $25.00 plus 
$3.00 for shipping and handling. Plus I'll receive a shelf box to store 
them in. 



□ Check enclosed for $_ 

Name 

Address 

City 



State. 



Zip_ 



Please allow 4 to 6 weeks for delivery 
80 Microcomputing • 80 Pine Street • Peterborough, N.H. 03458 
Toll free ordering number 800-258-5473 8(jm 



^Sm Lilt of Advertisers on pegs 354 
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ReLoad 80 



This month we offer LOAD80 
tape owners a few notes 
about our experience with tape 
loading procedures. We've load- 
ed thousands of tapes at the 80 
editorial offices; here are some 
of the tricks we've learned. 

Tape head alignment can vary 
from machine to machine. Simi- 
larly, on any given machine, 
tape head alignment can vary 
from day to day, due to heavy 
use and stress caused by poor 
quality cassettes. Here at 80 
Micro, we find we must align the 
tape head on our CTR-41 for al- 
most every tape we load. Tape 
head alignment is accomplished 
by turning the small screw (us- 
ing a Phillips head screwdriver) 



located on the playback head. 
To reach this screw, it is neces- 
sary to drill a small hole in the 
plastic case of your tape record- 
er. (Drill this hole just above the 
Play button— see diagram.) Af- 
ter access is gained to this ad- 
justment screw, you can alter 
the audio quality of the tape sig- 
nal by turning the screw left and 
right. You can hear this signal if 
you pull the Ear plug out of your 
tape recorder. 

The goal of all these ministra- 
tions is to achieve a sharp, crisp 
tone — a muffled, muted audio 
signal won't load correctly. 

Sometimes loading problems 
can be caused by failing to turn 
off the clock (CMD'T") when 



Pgm# 


Page# 


Filename 


Comments 


1 


154 


ROTATE 


None 


2 


154 


ROTATE2 


None 


3 


174 


MEMXPD/SRC 


Needs EDTASM 


4 


186 


CONVRT/SRC 


Needs EDTASM 


5 


204 


HIDPICS 


None 


6 


220 


SORTER 


None 


7 


228 


SLPTSLPC/SRC 


Needs EDTASM 


8 


244 


HRSRCE 


None 


9 


250 


ERRPRT 


None 


10 


252 


LIFETIME 


None 


11 


286 


DISKCHGR 


None 


12 


320 


CARTOON 


None 


13 


334 


BASCAL 


None 


14 


N/A 


LASTEST 


From August 




September LOAD80 Directory 



running under Model I TRSDOS. 

These measures, along with 
frequent volume adjustments, 
as needed, allow us to load 
almost all the tapes we receive. 
The tapes that won't load— we 
send back! 

If you should have difficulty 
loading your LOAD80 tape, in 
spite of all your best efforts, you 
may have a defective tape or one 
that was damaged in transit. 



You can obtain a free replace- 
ment by returning the defective 
tape to: 

LOAD80 

ATTN: L. Eaton 

80 Pine Street 

Peterborough, NH 03458 

(603) 924-6532 

Next month, look for hints on 
loading source code files using 
Radio Shack's Editor/Assem- 
bler. ■ 



© © 



AC/BATTERY CUE/REVIEW 



REVIEW , , CUE 

REWIND RECORD PLAY FAST-F STOP EJECT 






Diagram of Cassette Recorder 



MOVING? 

Let us know 8 weeks in advance so that you won't miss a sin- 
gle issue of 80 Microcomputing. 

Attach old label where indicated and print new address 
in space provided. Also include your mailing label 
whenever you write concerning your subscription. It 
helps us serve you promptly. 



If you have no label handy, print OLD address here. 



cq Name. 

-j 



.Call 



< 



Address 



t City. 



State. 



Zip. 



print NEW address here: 



□ Address change only 
D Extend subscription 

D Enter new subscription 

□ 1 year $18.00 



□ Payment enclosed 

(1 extra BONUS issue) 
D Bill me later 



Name 



an. 



Address, 
City 



State. 



Zip. 



80 MICROCOMPUTING P.O Box 981 • hirmin^-dale NY 117*7 • 
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MEMOREX 

FLEXIBLE DISCS 



WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)235-4137 

for pnces and informatioa Dealer 
inquiries invited and COD s 
accepted 



PACIFIC ^-370 
EXCHANGES 

I 00 Foothill Blvd 
San Luis Obispo. CA 
93401 In Cal call 
(800)592 5935 ot 
(805)543 1037 




RUN BIG 
CPM* 
PROGRAMS 

ON YOUR 
MODEL 1 TRS-80* 

WITH 39 or 54K of user space Can use Mixed 
Drivers 5% or 8" (Variable Tracks) 
Compatable with all TRS*80 Operating 
Systems and all TRS*80 Programs (usable 
on 48K disk systems only) Boards (it into 
keyboard mclosure 

FREEDOM OPTION $245 

MEMORY EXPANSION OPTION. . . . $295 
Send Check or Money Order to: 

(MASS RESIDENTS. 'LEAS! I NCLUDt S% TA») 

FeEeCe ltd. *m 

P.O.Boi 2388 • Weburn, MA. 01888 

(617)944-5329 r?:5#S£: . ,. 



&^ 
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\f You've Written 

State-of-the-Art Software- 

We'd Like to Publish It! 

We're looking for 8Y8TEM eoftware: 
DISK OPERATING SYSTEMS 
MONITORS 

PROGRAMMER AIDS/UTILITIES 
LANGUAGES 
DATA BASE SYSTEMS 
Then, sit back and collect your 
royalty checks. Write for our free 
Programmer's Kit today! 

INSTANT SOFTWARE, INC. »*2 

Submissions Dept. 

Peterborough. NH 03458 



PWOSREBSIVE EMBI«EW8 

TORSIONAL CONCRETE BEAM DESIGN, Bmn bu* 
snapea, calculation attest print out m/ all 
for aulas, pertinent Info froe AC I 51B-77 (or 
review. Dnlgn clowd stirrups fc spacing and 
additional longitudinal reinforcing. 

NDDEL t leK TAPE «3«.«S DISK a44.93 

■TltUHAP, Analyias cont. SCANS and FRAMES. 
niv.« aoaant, sneer , axial load, and diapl. 

NDOEL I 4BK.1-DISK »B9.9S NODE I II •ff.fS 
NATH-PAKi Lat your packet Coaputar teach you 
engineering eatn, high school thru P.E. E«ae. 

LIMES AND POINTS TAPE •I4.'r5 

GENERAL EQUATIONS TAP* »I4.93 

MODEL l.laK TAPE »1V.<T3 EA. 

PlISCCLLANEOUe PROHRANG 
FREEZER INVENTORY, Keep track of food In 
freexer by I tee, data placad >n IrHiar, and 
location of freezer. Keep diak or tapa ftlaa. 
NDOEL I I6K...TAPE a|9.«s DISK «24.«3 
VIDEO CASSETTE MANAGEMENT. Kaap track of your 
racordad aovlsa. Search for aovla ( title or 
star), print labels, and lists. Hach. sort. 
MODEL I 32K.I-DISK DISK I3V.95 

MEHORE* DISKETTE <10 ) S 1/4- •2"».9S 

MX-lOO PRINTER H/CA8LE S«B9.93 

OK I DATA MICRO. I fat PRINTER H/CASLE. »99«r.»3 

BHIPPINB a HRMDLINB FOR PRINTERS • 13.00 



Superior 
oftware 



NISSOUfll ttSIKHTS 

•LEASC ADO 
*it STATT. SALES TAX 

Writs SSI for Inforaallon about «i»rt«tln9 your 
proaraat: P.O. sox 11676 «*nvas City, HO 6kl)8 




FRICTION FEED FOR YOUR EPSON 

X-70 '- MX-80 

X" 10 *YJ «a-tw arc Tt*v .«rX6 of G-O Inc. 

Converts your printer lor Iriclion 
teed 0» SINCIE SHEETS or ROU 
PAPER. 

Snap-on installation, ino tools 
needed, uses existing mounts 1 

Tractor teed remains undisturbed 

Proven reliability. 

Available NOW! 

Only HI. 95 'add 11.50 for postage) 



^470 MICRO-GRIP. Ltd 
P.O. 80X 873 
VISA* Master Card Accepted LAFB. VA 23665 




SFINKS1.81 

MICROCOMPUTER 

CHESS 

SRNKS was recently challenged by the besi pro 
grams available for the TRS-80* microcomputer 
m • Canadian Round Room 

THE RESULT 

SFTNKS riddled MYCHESS SARGON U and 
GAMBIET 80 to finish «i a be for 1st place 
SF1NKS features an audio alert, a problem mode 
superb graphics, and nine levels of play Play chess 
with the best for less' 

32K Model I TRS-80' 

cassette or disk only /".^D 

W11IJAMA.FINK .aw 

P.O. BOX 5912 

Lighthouse Pant . FL 33064 

Dealer Inquiries 
Welcome 

• Trademark ot 
Tandy Company 



*&4U 



THE GREEN^CKttFf THING 




AVAILABLE Fo< mod.lj I II ondlll si wall 
ot ony nondord '? inch ajianiio. 



Lilt $7*25 

FEATURES 



U< 1100 ■»• —o. -, I «—«'-, — CM 



.— •» • I 



OR DIR NOW 

14 MOV* — 

PR 40I-944-IJ4J 



a™. . . r .'~ • pr.l»il— I Wei 



AVE 



AUDIO- VIDEO 
• us SYSTEMS 

Mil l.r, m ...l. Or Sea ■>••• . CA. SSI 33 



f Smartmodem A 




• Auto Answer • Auto-Dial • Repeat 

• Programmable - Use Any Language 

• Touch-Tone and Pulse Dialing 

• Audio Monitor - Listen to Connection 

• FCC-Approved Direct-Connect 

• Full or Half Duplex 0-300 Baud 

• RS-232C Interlace • 7 Status LED s 

• Two Year Limited Warranty 

S279 

Send certified check or money order 
Allow two weeks tor personal check 
Florida residents add 4°, sales tax 



fe 



flC€ COMPUT6R PRODUCTS 

«•« of Florida Inc. 

1640 N v\ irtl STREET 
DEERE ILL D BEACH HA j W4 t J 



M 



NEW! w 

The Wizard's City" JZpL 



8K 



A FANTASY ADVENTURE GAME 

Search for gold as a Fighter, Dwarf, Elf, 
Halfling or Magic-User In the dungeons 
beneath the Wizard'sCity or surrounding 
forest. Evil monsters lurk everywhere to 
protect the gold. AD in graphics! 
Cassette $ 1 2.95 Disk $ 1 6.9S 

Financial Statement 1 6 K $ 1 4 9 5 

income Tax 8K 19 95 

Income/Deductions File 8K 10.95 

Stock Charting 8K 15.95 

Mail List Labler 32K disk only 2 2.95 

Add $4 for disk except Mall List 

Add $130 thlpplnfl a handeng 

All programs for TRS-80 Mod. 1 Lev. 2 

BAPS Software 

6221 Richmond, Suite 220 
Houston, Texas 713/783-3433 

TRS-M M a rag. trademark of the Tandy Cord. 



-See List ot Advertisers on pug* 354 



80 Microcomputing, September 1981 • 345 




The Electronic 
Breadboard 

Computer Aided Design (CAD) is one of the newest 
of the applications of microcomputer technology. 
THE ELECTRONIC BREADBOARD permits the 
design and analysis of analog circuits. It can be 
used to evaluate voltages, currents, impedance 
and the frequency response of any circuit. 



This package is ideal for audio component repair- 
men, ham radio technicians, hobbyists, electrical 
engineers, telecommunications engineers, audio- 
philes and students of electronics. Plug it in and 
slice away a lot of guesswork. 

0287R-A40 Model I & III Level II 16K $49.95 * 



Instant Software 

PETERBOROUGH, N.H. 03458 




^537 



TO ORDER: See your 

local Instant Software 

dealer or call Toll-Free 

1-800-258-5473 onlereonly 

In New Hampshire 1-603-924-7296 

Mon.-Frl 800 am— 4:30 pm E.S.T. 



MAKE **$$$$ 
«*$ MONEY 

Selling 80 Microcomputing, the only major journal for the users of the 
TRS-80', is a sure bet for getting the computer enthusiast into your 
store. Once through the door you can sell him anything. 

We know "80" will make you money. . .it's the only magazine for the 
TRS-80 users and you know how many of those there are. So call today 
and join tfTe dealers who make money with "80". 

For information on selling 80 Microcomputing, call 603-924-7296 and 
speak with Ginnie Boudrieau, our Bulk Sales Manager. Or write to her 
a1M80 Microcomputing, Pine Street, Peterborough, NH 03458. 



TRS-80 is a trademark of the Tandy Corp. 
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microcomputing bookshelf 



—BASIC & PASCAL— 



— BUSINESS— 




x\&*t 



• INTRODUCTION TO TRS-«0 LEVEL II BASIC AND 
COMPUTER PROGRAMMING- BK1219-by Michael 
P Zabmski Written by an experienced educator, this is 
the book tor those beginners who want to learn about 
computers without having to become an expert It has 
practical programs, uselui line by line comments, ex- 
cellent flowcharts accompanied by line numbers and 
over 200 exercises which help the reader assess prog 
ress. reinforce comprehension, and provide valuable 
practical experience $10 95 * 

• S0BASICEXERCISES-BKii92-byJ P Lamoit.er 
This book is structured around the idea that the best 
way to learn a language is through actual practice It 
contains 50 completely explained exercises: state- 
ment and analysis of the problem, flowcharts, pro- 
grams and actual runs Program subjects include 
mathematics, business, games, and operations re 
search and are presented in varying levels of difli 
cuiiy This format enables anyone to learn BASIC rap- 
idly, checking their progress at each step $12.95* 

• THE BASIC HANDBOOK-BK1174-NEW, SECOND 
EDITION by David Lien This book is unique It is a vir- 
tual ENCYCLOPEDIA ol BASIC While not favoring one 
computer over another, it explains over 250 BASIC 
words, how to use them and alternate strategies If a 
computer does not possess the capabilities of a need 
ed or specified word, there are often ways lo ac 
comphsh the same function by using another word or 
combination of words That's where the HANDBOOK 
comes in. It helps you get the most from your com- 
puter, be it a •■bottom-of-the-line" micro or an oversized 
monster $19 95 ' 

• LEARNING LEVEL II- BK 1 1 75-by Dav!d Lien Writ 
ten esoec im fc the TRS-80. this book concentrates 
on Level II BASIC, exploring every important BASIC 

anguage capability Updates are included for those 
who have studied the Level I User's Manual Sections 
include how to use the Editor dual cassette opera 
tion printers and peripheral devices, and the conver- 
sion of Level I programs to Level II $15.95 * 

• BASIC BASIC (2ND EDITION)— BK 1026- by James 
S Coan This is a textbook which incorporates the 
learning o* computer programming using the BASIC 
language with the teaching of mathematics Over 100 
sample programs illustrate the techniques of the BA 
SiC language and every section is followed by practi 
cai problems This second edition covers character 
string handling and the use of data files $10 50 ' 

• ADVANCED BASIC -BK 1000- Applications, includ- 
ing strings and files, coordinate geometry, area, se- 
quences and series, simulation graphing and games 
$10 75" 

• SIXTY CHALLENGING PROBLEMS WITH BASIC 
SOLUTIONS (2nd Edition)— BK1073— by Donald 
Spencer provides the serious student of BASIC pro- 
gramming with interesting problems and solutions No 
knowledge of math above algebra required includes a 
number of game programs, as well as programs for 
financial interest conversions and numeric manipula 
t.ons $6 95 • 



• PASCAL— BK 11 88— by Paul M. Civilian. Professor 
Chirhan's textbook combines a simple approach to the 
PASCAL language with comprehensive coverage on 
how a computer works, how to use a flowchart, work- 
ing from a terminal as well as batch operation and 
debugging Special attention is paid to idiosyncrasies 
of the language and syntax flowcharts abound for the 
convenience of the experienced programmer. Well in- 
dexed. $12.95" 

• INTRODUCTION TO PASCAL-BK1l89-by Rodnay 
Zaks A step by step introduction tor anyone wanting 
to learn the language quickly and completely Each 
concept is explained simply and in a logical order All 
leatures of the language are presented in a clear, easy 
to understand format with exercises to test the reader 
ai the end of each chapter It describes both standard 
PASCAL and UCSD PASCAL, the most widely used 
dialect for small computers No computer or program 
ming experience is necessary $14 95.* 

• PROGRAMMING IN PASCAL -BK1140-by Peter 
Grogono The computer programming language 
PASCAL was the first language to embody in a coher 
ent way the concepts of structured programming, 
which has been defined by Edsger Di|kstra and C A fl 
Hoare As such, it is a landmark in the development of 
programming languages. PASCAL was developed by 
Niklaus Wirth in Zurich; it Is derived from the language 
ALGOL 60 but is more powerful and easier to use 
PASCAL is now widely accepted as a useful language 
that can be efficiently implemented, and as an ex- 
cellent teaching tool. It does not assume knowledge of 
any other programming language; it is therefore suit- 
able for an introductory course $12 95 * 

—GAMES— 



• 40 COMPUTER GAMES-BK7381 -Forty games in all 
■n nine different categories Games tor large and small 
systems, and even a section on calculator games Many 
versions of BASIC used and a wide variety of systems 
represented A must for the serious computer games- 
man $795* 

• BASIC COMPUTER GAMES-BK1074-Okay, so 
once you get your computer and are running in BASIC, 
then what? Then you need some programs in BASIC, 
that's what. This book has 101 games Tor you Irom very 
simpie to real buggers. You get the games, a descrip- 
tion of the games, the listing to put In your computer 
and a sample run to show you how they work. Fun. Any 
one game will be worth more than the price of the book 
for the fun you and your family will have with it $7 50 * 

• MORE BASIC COMPUTER GAMES-BK1182- 
edited by David H. Ahl. More fun in BASIC! 84 new 
games from the people who brought you BASIC Com 
outer Games Includes such favorites as Minotaur (bat 
tie the mythical beast) and Eliza (unload your troubles 
on the doctor at bargain rates). Complete with game 
description, listing and sample run. $7.50." 

• WHAT TO DO AFTER YOU HIT RETURN-BK1071- 
PCC's first book of computer games 48 different 
computer games you can play in BASIC programs, 
descriptions, many illustrations Lunar Landing, Ham- 
murabi. King. Clvel 2. Qubic 5. Taxman, Star Trek, 
Crash. Market, etc $10.95 " 



• PAYROLL WITH COST ACCOUNTING-IN BASIC- 

BK1001 — byL Poole &M Borchers. includes program 
listings with remarks, descriptions, discussions of the 
principle behind each program, file layouts, and a com- 
plete user's manual with step by step instructions, 
flowcharts and simple reports and CRT displays Pay 
roll and cost accounting features include separate 
payrolls tor up to 10 companies, time tested interac- 
tive data entry, easy correction of data entry errors. |ob 
costing (labor of distribution), check printing with full 
deduction and pay detail, and 16 different printed re- 
ports, including W-2 and 941 (in CBASIC) $20 00 * 

• SOME COMMON BASIC PROGRAMS-BK1053- 
pubiished by Adam Osborne & Associates. Inc Perfect 
for non technical computensts requiring ready to-use 
programs Business programs, plus miscellaneous 
programs Invaluable tor the user who is not an ex 
perienced programmer All will operate m the stand 
alone mode. $14 99 paperback 

• PIMS: PERSONAL INFORMATION MANAGEMENT 
SYSTEM — BK 1009— Learn how to unleash the power 
of a personal computer tor your own benefit m this 
ready to-use data-base management program 

— MONEYMAKING— 
How 

How to 




WBS **** 



4 




• HOW TO MAKE MONEY WITH COMPUTERS- 

BK1003— In 10 information-packed chapters, Jerry 
Felsen describes more than 30 computer related. 
money-making, high profit, low capital investment op- 
portunities. $15 00 * 

• HOW TO SELL ANYTHING TO ANYBODY - BK7306- 
According to The Guinness Book ol World Records, the 
author, Joe Girard. is "the world's greatest salesman." 
This book reveals how he made a fortune— and how you 
can. too. $2 25 * 

•THE INCREDIBLE SECRET MONEY MACHINE- 
BK1 178— by Don Lancaster A different kind of "coon 
book" from Don Lancaster Want to slash taxes'" Get 
tree vacations? Win at invest! -ents'' Make money frorn 
something that you like to .? You'll find this book 
essential to give you the key insider details of what is 
really involved in starting up your own money machine. 
$595/ 



* Use the order card in the back of this magazine or itemize your order on a separate 
piece of paper and mail to 80 Microcomputing Bookshelf • Peterborough NH 03458 
Be sure to include check or detailed credit card information 



No COD. orders accepted All above add $1 50 handling Www* ftt gw •***>£ 
for delivery Questions regarding your order? Please write Customer Service at the 
above address 
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• TRS80 ASSEMBLY LANGUAGE BK 1 2 1 7 -by 
Hubert S Howe. Jr This book incorporates into a 
single volume all the pertinent facts and inlormation 
you need to know to program and enjoy the TRS-80 In- 
cluded are clear presentations ol all introductory con- 
cepts, completely tested practical programs and sub- 
routines, details of ROM and RAM and disk operating 
systems plus comprehensive tables, charts and ap- 
pendices Suitable for the first time user or more ex- 
perienced users $9.95 * 

• INSIDE LEVEL II BK 1 183- For machine language 
programmers' This is a comprehensive reference 
guide to the Level li ROMs, allowing easy utilization of 
the sophisticated routines they contain It concisely 
explains setups, calling sequences, variable passage 
and I/O routines Part II presents an entirely new com- 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC ana 
machine code with the speed and e'ficiency of a com- 
piler Special consideration is given to disk systems 

• PROGRAMMING THE Z-W-BK1122- by Rodnay 
Zaks Mere is assembly language programming for the 
Z4Q presented as a crogressive step by step course 
This book s both an educational text and a self 
contained reference book, useful to both the beginning 
and the experienced programmer who wish to learn 
about the Z 80 Exercises to test the reader are inciud 
M $U95 • 

• Z-80 SOFTWARE GOURMET GUIDE AND COOK 
BOOK -BK'045-by Na: Wadsworth Sceibis newest 
cookbooKt Th.s bock comams a complete description 
of the powertu Z-80 instruction set and a wide variety 
Of programming n'ormat'or Use the author's mgre 
dients including 'outmes subroutines and short pro 

?rams choose a t me tested rec-peand start cooking' 

• Z-60 ASSEMBLY LANGUAGE PROGRAMMING- 

BK1177 — by Lance A Leventhai This book thoroughly 
coders the Z-80 instruction set. abounding in simple 
programming examples which illustrate software de 
veiopment concepts and actual assembly language 
usage Features include Z-80 I'O devices and interfac 
mg methods, assembler conventions, and compan 
sons with 8080A/8085 instruction sets and interrupt 
Structure $16 99 ' 

• VOL I COMPONENT TESTERS- 187359- how 
to build transistor testers |8). diode testers (3). IC test 
e<S(3). voltmeters and vTVMs i9i. ohmmeters (8 differ 
eni kinds) mductance (3i. capacity i9i, measure 
mem crystal checking (6) temperature (2>. aural 
metes for the bimd <3i and an sorts o' miscellaneous 
data or meters using them, making them more ve> 
satile making standards invaluable book $4 95* 

• VOL. II AUDIO FREQUENCY TESTERS- LB 7360— 

l*m packed with an kinds o' audio frequency test 
equipment if you re into SSB RTTY SSTV. etc . this 
book is a must tor you a good boot" *or hi fi addicts 
and experimenters too' $4 95 ' 

• VOL III RADIO FREOUENCY TESTERS- LB7361- 
Radio frequency waves the common denominator of 
Amateur Radio Such items as SWR antenna im- 
pedance line impedance, rt output and field strength 
detailed instructions on testing these items includes 
sections or signal generators, crystal calibrators grid 
dip oscii.ators. noise generators dummy loads and 
mu©H more $4 95 ' 

• *"H WIC TEST EQUIPMENT- LB7362- Become a 

t •*•%»« eoooung wizard' In this fourth volume of the 73 
TEST EQUIPMENT LIBRARY are 42 home construction 

Kotmaii tor building test equipment to work with your 
tn station and in servicing digital equipment Plus a 
cumulative mde« 'or an four volumes for the 73 TEST 

EQUIPMENT L'BFURY $4 95- 



• MICROCOMPUTING CODING SHEETS Microcomputings dozen or so program 
mers wouldn't try to work without these handy scratch pads, which help prevent the 
little errors that can cost hours and hours of programming time Available for pro- 
gramming is Assembly/Machine Language (PD1001). which has columns for ad 
dress, instruction (3 bytes), source code (label, op code, operand) and comments, 
and tor BASIC (PO1002) which is 72 columns wide 50 sheets to a pad $2 39 " 



PROGRAMMING 



The Microprocessor Software Engineering Series by John Zarrella provides common 
sense descriptions of advanced computer system topics for engineers, program- 
mers and development managers. Each volume is a self-contained review of a soft- 
ware engineering topic, explaining fundamental concepts in easy-to-understand 
language and describing sophisticated software tools and techniques Detailed 
glossary of technical jargon is included in each volume. This series will help you find 
the solutions to your software problems 

• OPERATING SYSTEMS CONCEPTS AND PRINCI- 
PLES BK1193 Presents an overview of the basic op 
eraiing system types their components and capabii 
•ties $7 95 * 

• WORD PROCESSING AND TEXT EDITING BK 1 194 
-Provides a firm basis for understanding word pro 

cessing terminology and tor comparing systems 

$7 95 * 

• SYSTEM ARCHITECTURE -BK 1195 -Presents a 

detailed overview of advanced computer system 
oesiqn including object architecture and capability 
based addressing $9 95 ' 




—6502— 

N-*THE APPLE II USERS GUIDE-BK1220^by Lon 
Poole, Martin McNIff, and Steven Cook This guide is 
the key to unlocking the full power of youi Apple II or 
Apple li Plus. Topics include Applesoft and integer 
BASIC Programming - especially how to make the 
best use of Apple's sound color and graphics capabiii 
ties. "Machine Level Piogramming." Hardware 
Features " — which covers the disk drive and printer 
and Advanced Programming" desr ribing high 
resolution graphics techniques and other advanced 
applications Well organized and easy to use $15 00 * 

• PROGRAMMING THE 6502 (Third Edition)- BK 1005 
-Rodnay Zaks has designed a self contained text to 

learn programming, using the 6502 It can be used by a 
person who has never programmed before, and should 
be of value to anyone using the 6502 The many exer 
cises will allow you to test yourself and practice the 
concepts presented $1295* 

• 6502 APPLICATIONS BOOK BK 1 006- Rodnay Zaks 
presents practical application techniques for the 6502 
microprocessor assuming an elementary knowledge of 
microprocessor programming You will build and design 
your own domestic -use systems and peripherals Self 
test exercises included $12 95 ' 

• 6502 ASSEMBLY LANGUAGE PROGRAMMING- 

BK 1 176— by Lance A Leventhai This book provides 
comprehensive coverage of the 6502 microprocessor 
assembly language Leventhai covers over 80 program 
mmg examples from simple memory load loops to 
complete design proiects Features include 6502 as 
sembier conventions, input/output devices and inter 
lacing methods, and programming the 6502 mterruot 
system $1699 ' 

• 6502 SOFTWARE GOURMET GUIDE AND COOK 
BOOK -BK 1055 -by Robert Findley Th.s book mtro 
duces the BASIC language programmer into the realm 
ol machine-language programming The description of 
the 6602 structure and instruction set, various 
routines, subroutines and programs are the ingredi- 
ents in this cookbook Recipes'" are included to help 
you put together exactly the programs to suit your 
taste $12 95 ' 



8080-6809-68000 

* maagBss, jBrnass 

IV Ge "' n fl "ivolved with Tandy s new Color Computer"' 
II so. this new book from the Blacksburg Group will 
allow you to exploit the awesome power of the 
machine s 6809 microprocessor Detailed information 
on processor architecture, addressing modes register 
operation, data movement arithmetic logic opera 
£2 c , a " d ,n,e,,ac,n 9 M provided, as well as a 
review section at the end of each chapter Four appen 

«lfiV,.'?. ,nclu ? ed coverin 0. the 6809 instruction set 

SENSES" Shee,S °' "" & 809 ,am "* <" Pressors 
ome. 6800 series equipment and the 6809/6821 

»?."«« %I?S? Adap,er Tn,s booK IS a m "S' 'O' 
the serious Color Computer owner $13 95 ■ 

^•68000 MICROPROCESSOR HANDBOOK BK 1216 

* J«n , V Ka " e Vyne,ner YOU r « currently using the 
oeooo, planning to use it. or simply curious about one 

?J. ,! n H? e V an<3 mosl P«*e"ul microprocessors 
'his handbook has ail the answers A clear present*' 
lion o signal conversions liming diagram , oiwen 
ions, functional logic, three different instrucnon set 
tables exception processing, and family support 
devices provides more information abo-ii the 68000 
than the manufacturer s data sheets A slano alone 
reference booh which can also be used as a MNjptj 
ment to An introduction to Microcomputer* vol 7 - 
i>ome Real Microprocessors $6 99 ■ 

SSa"! m ! m * SSEMBI - Y LANGUAGE PROGRAM- 
MING -by Lance Leventhai -BK 1004 -Assembly lan 
guage programming for the 8080A<8085 is explained 
with a description of the functions of assemblers and 
assembly instructions and a discussion of basic soft 
ware development concepts Many fully debugged 
practical programs are included as .s a special section 
on structured programming $15 99" 

• 8080 SOFTWARE GOURMET GUIDE AND COOK 

BOOK -BK1 102— If you have been spending too much 
time developing simple routines 'or your 8080 try this 
new book by Scelbi Computing and Robert Findley De 
scribes sorting searching, and many other routines for 
the 8080 user $12.95* 



•use the ordr-r card m the back of this magazine or itemize your order on a separate 
pirfcV of paper and maM to 80 Mcrocomputing Bookshelf • Peterborough Nh 03458 
Be sore to mc'uoe check or detailed credit card information 
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—INTRODUCTORY— 




• UNDERSTANDING AND PROGRAMMING MICRO 
COMPUTERS BK 7382 -A valuable addition to your 
computing library This two-part text includes the best 
articles that have appeared in 73 and Kilobaud 
Microcomputing magazines on Ihe hardware and soft 
ware aspects of microcomputing Well-known authors 
and well structured text helps the reader get involved 
$10 95" 

• SOME OF THE BEST FROM KILOBAUD MICROCOM 

PUTING— BK731 1 —A collection ot the best articles that 
have appeared in Kilobaud MICROCOMPUTING includ- 
ed is material on the TRS-80 and PET systems, CP/M, the 
8080/8085/7-80 chips, the ASR-33 terminal Dau base 
management word processing, text editors and file 
Structures are covered too Programming techniques 
and hard-core hardware construction protects for 
modems, high speed cassette interfaces and TVTs are 
also included in this large format. 200 plus page edition 
$1095" 



• YOUR FIRST COMPUTER-BKll9l-by Rodnay 
Zaks Whether you are using a computer, thinking 
about using one or considering purchasing one. this 
book is indispensable it explains what a compute' 
system is. what it can do. how it works and how to 
select various components and peripheral units It is 
written in everyday language and contains invaluable 
information lor the novice and the experienced pro- 
grammer (The first edition ol this book was published 
under the title "An Introduction to Personal and 
Business Computing" ) $7 95" 

• MICROPROCESSOR INTERFACING TECHNIQUES 
— BK1037— by Austin Lasea & Rodnay Zaks— will 
teach you how to Interconnect a complete system and 
interface it to all the usual peripherals. It covers hard- 
ware and software skills and techniques, including the 
use and design of model buses such as the IEEE 488 or 
S 100 $15.95. • 



• HOBBY COMPUTERS ARE HERE!- BK 7322 -If you 
want to come up to speed on how con-puiecs work 
hardware and software this is an r«celleni book It 
starts with fundamentals and explains the circuits, and 
the basics ol programming, along with a couple of TVT 
construction protects. ASCII-Baudot, etc This book has 
the highest recommendations as a teaching aid $4.95." 

• THE NEW HOBBY COMPUTERS- BK7340 -This 
book takes H Irom *r>ere HOBBY COMPUTERS ARE 
HERE' ' leaves off. with chapters on Large Scale integra- 
tion, how to choose a microprocessor chip, an introduc- 
tion to programming, low cost IO tor a computer, com- 
puter arithmetic, checking memory boards and 
much, much more 1 Don t miss Ihis tremendous value' 
Only $4 95 " 

• AN INTRODUCTION TO MICROCOMPUTERS. VOL 

— BK1 130— The Beginner's Book — Written for readers 
who know nothing about computers— for those who 
have an interest m how to use computers— and for 
everyone else who must live with computers ard 
should know a little about them The first in a series ot 
4 volumes, this book will explain how computers work 
and what they can do Computers have become an irv 
tegral part of life and society During any given day you 
are affected by computers so start learning more 
about them with Volume $7 95 " 

• VOL. l-BK1030-2nd Edition completely revised. 
Dedicated to the basic concepts ol microcomputers 
and hardware theory The purpose ot Volume I is to 
give you a thorough understanding ol what microcom 
puters are From basic concepts (which are covered in 
detail). Volume I builds the necessary components of a 
microcomputer Syslem This book highlights the Oil 
lerence between minicomputers and microcomputers 
$12 99 " 

• VOL. II — BK 1040 (with binder) — Contains descrlp 
tions ot individual microprocessors and support 
dovices used only with ihe parent microprocessor 
Volume II describes ail available chips $31 99' 

• VOL. Ill — BK 11 33 (with b>nden- Contains descrip- 
tions o( all support devices that can be used with any 
microprocessor $2' 99* 




—SPECIAL INTERESTS- 

• THE CUSTOM TRS-80 AND OTHER MYSTERIES- 

BK 1218— by Dennis Kitsz More than 300 pages ol 
TRS80 customizing information With this book you'll 
be able to explore your computer like never belore 
Want to turn an 8 track Into a mass storage unit? In 
dividual reverse characters'' Replace the BASIC 
ROMs'" Make Music? High speed, reverse video. Level I 
and Level II? Fix it it it breaks down? All this and much, 
much more Even if you have never used a soldering 
iron or read a circuit diagram, this book will teach you 
how' This Is the definitive guide to customizing your 
80! $29 95 " 

• BASIC FASTER AND BETTER AND OTHER MYS 
TERIES— BK1221— by Lewis Rosenfelder You don't 
have to learn assembly language to make your pro 
grams run fast With the dozens of programming tricks 
and techniques in this book you can sort at high speed 
swap screens in the twinkling of an eye, write INKEY 
routines thai people think are In assembly language 
and add your own commands to BASIC Find out how 
to write elegant code that makes your BASIC really 
hum. and explore the power of USR calls $29 95." 



• TRS-aO DISK AND OTHER MYSTERIES-BK1181- 
by Harvard C Pennington This is the definitive work 
on the TRS-80 disk system It is full of detailed How 
to" information with examples, samples and in depth 
explanations suitable lor beginners and professionals 
alike The recovery of one lost file is worth the price 
alone $22.50.' 

• MICROSOFT BASIC DECODED AND OTHER 

MYSTERIES— BK1 186— by Jamas Farvour From the 
company that brought you TRS-80 DISK AND OTHER 
MYSTERIES*. Contains more than 6500 lines of com- 
ments for the disassembled Level II ROMs, six addi- 
tional chapters describing every BASIC subroutine, 
with assembly language routines showing how to use 
them Flowcharts for all ma)or routines give the reader 
a r«al insight into how the interpreter works $29 50 



• THE CP/M HANDBOOK (with MPfM)-BK11B7-by 
Rodnay Zaks A complete guide and reference hand 



iay Z 
for 



-BK1187 — by 
_ erence hand 
book for CP'M — the industry standard in operating 
systems Step by step instruction lor everything Irom 
turning on the system and inserting the diskette to cor- 
rect user discipline and remedial action lor problem 
situations This also includes a complete discussion 
of all versions of CPrM up to and including 2 2, MP/M 
and COOS $14 95" 

• INTRODUCTION TO TRS-80 GRAPHICS- BK1 180- 

by Don Inman Dissatisfied with your Level I or Level II 
manual's coverage of graphics capabilities? This well 
structured book (suitable for classroom use) is ideal 
lor those who want to use all the graphics capabilities 
built into the TRS-80 A tutorial method is used with 
many demonstrations It is based on the Level I, but all 
material is suitable for Level » use $8 95." 



Use the order card in the back of this magazine or itemize your order on a separate 
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• TOOLS a TECHNIQUES FOR ELECTRONICS 
BK7348— by A A Wicks is an easy tc-understand book 
written lor the beginning kit builder as well as the ex 
penenced hobbyist it has numerous pictures and 
descriptions ol the sate and correct ways lo use basic 
and specialized tools for electronic proiects as well as 
specialized metal working tools and the chemical aids 
which are used in repair shops $4.95 " 

• HOW TO BUILD A MICROCOMPUTER-AND REALLY 
U N DERSTAND IT— BK7325- by Sam Creaaon The aj>C- 
tronics hobbyist who wants to build his own rrncrocom- 
puter system now has a practical How To" guetJetyAjr 
This book Is a combination technical manual »nd ,i*# 
gramming guide that takes the hobbyist steu by-ate a 
through the design, construction, testing and de0ugg4og 
of a complete microcomputer system Must reading 'or 
anyone desiring a true understanding ol small computer 
systems $9 95 



Mo COO orders accepted All above add $1 50 handling Please ir^M»riM 
to? delivery Q^es-ons regarding your order? Please write Customer Serv.ce St Ihe 
above address. 
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Why use their flexible discs: 

Ampex, Athana, BASF, Caelus, Control Data, Dysan, 

IBM, Inmac, K-Line, Maxell, Nashua, Scotch, 

Shugart, Syncom, 3M, Verbatim or Wabash 

when you could be using 

MEMOREX 

for as low as $1.99 each? 

Find the flexible disc you're now using on our cross reference list... 
then write down the equivalent Memorex part number you should be ordering. 
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CE Qu.nl. 
100 prtc. 
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219 
224 
256 
3.35 
2.19 
219 



3 35 
2.50 
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2.95 
399 

1 9' 
399 
320 



384 
384 

384 
184 



349 
349 
3 49 
3.75 



224 
2 24 
2.24 



Memorex Flexible Discs.. .The Ultimate in Memory Excellence 



Quality 

Memorex means quality products that you can depend on. 
Quality control at Memorex means starting with the best 
materials available. Continual surveillance throughout the 
entire manufacturing process. The benefit of Memorex's years 
of experience in magnetic media production, resulting, for 
instance, in proprietary coating formulations. The most sophis- 
ticated testing procedures you'll find anywhere in the business. 
100 Percent Error Free 

Each and every Memorex Flexible Disc is certified to be 100 
percent error free. Each track of each flexible disc is tested, 
individually, to Memorex's stringent standards of excellence. 
They test signal amplitude, resolution, low-pass modulation, 
overwrite, missing pulse error and extra pulse error. They are 
torque-tested, and competitively tested on drives available 
from almost every major drive manufacturer in the industry 
including drives that Memorex manufacturers. Rigid quality 
audits are built into every step of the manufacturing process 
and stringent testing result in a standard of excellence that 
assures you. our customer, of a quality product designed for 
increased data reliability and consistent top performance. 

Customef-Oriented Packaging 

Mernorex't.qommitment to excellence does not stop with a 
quaJity product. They are proud of their flexible discs and they 
package them with pride. Both their packaging and their 
labeling -have been designed with your ease of identification 
and use in mind. The desk-top box containing ten discs is 
convergent for filing and storage Both box labels and jacket 
labels provide full information on compatibility, density, sec- 
toring, and record length. Envelopes with multi-language care 
and handling instructions and color-coded removable labels 
are included. A write-protect feature is available to provide 
data security. 

FuH On* Year Warranty - Your Assurance of Quality 

Memorex Flexible Discs will be replaced free of charge by 
Memorex if they are found to be defective in materials or 
wo kmanship within one year of the date of purchase. Other 
than replacement, Memorex will not be responsible for any 
damages or losses (including consequential damages) caused 
by the use of Memorex Flexible Discs. 



Quantity Discounts Available 

Memorex Flexible Discs are packed 10 discs to a carton and 
10 cartons to a case. Please order only in increments of 100 
units for quantity 100 pricing. We are also willing to accom- 
modate your smaller orders. Quantities less than 1 00 units are 
available in increments of 10 units at a 10% surcharge. 
Quantity discounts are also available. Order 500 or more 
discs at the same time and deduct 1%; 1 ,000 or more saves 
you 2%; 2,000 or more saves you 3%; 5,000 or more saves you 
5%; 1 0,000 or more saves you 7%; 25,000 or more saves you 
8%; 50,000 or more saves you 9% and 1 00,000 or more discs 
earns you a 1 0% discount off our super low quantity 1 00 price. 
Almost all Memorex Flexible Discs are immediately available 
from CE. Our warehouse facilities are equipped to help us get 
you the quality product you need, when you need it. If you need 
further assistance to find the flexible disc thaf s right for you, 
call the Memorex compatibility hotline. Dial 800-538-8080 
and ask for the flex/We disc hotline extension 0997. In California 
dial 800-672-3525 extension 0997. 

Buy with Confidence 

Toget the fastest delivery from CE of your Memorex Flexible Discs 
send or phone your order directly to our Computer Products' 
Division. Be sure to calculate your price using the CE prices in this 
ad. Michigan residents please add 4% sales tax. Written purchase 
orders are accepted from approved government agencies and 
most well rated firms at a 1 0% surcharge for net 1 billing. All sales 
are subject to availability. All sales are final. Prices, terms and 
scecitications are subject to change without notice Out of stock 
items will be placed on backorder automatically unless CE is 
instructed differently. International orders are invited with a $20.00 
surcharge for special handling in addition to shipping charges. All 
shipments are FOB. Ann Arbor, Michigan. No COD's please Non- 
certified and foreign checks require bank clearance 

Mail orders to: Communications Electronics, Box 1002 Ann 
Arbor, Michigan 48 1 06 U.S. A Add $8.00 per case or partial-case of 
1 00 8-inch discs or $6 00 per case of 1 00 5V 4 -inch mini-discs for 
U. P S. ground shipping and handling in the continental U. S. A. If you 
have a Master Charge or Visa card, you may call anytime and place 
a credit card order. Order toll-free in the United States. Call 
anytime 800-521 -441 4. If you are outside the U.S. or in Michigan 
dial 313-994-4444. Dealer Inquiries Invited. All order lines at 
Communications Electronics are staffed 24 hours. 
Copyright «1 081 Communications Electronics" 
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Order Toll-Free! 
(800)521-4414 




For Data Reliability— Memorex Flexible Discs 



a 



COMMUNICATIONS 
ELECTRONICS" -263 
Computer Products Division 

854 Phoenix D Box 1002 O Ann Arbor, Michigan 481 06 U S A. 

Call TOLL-FREE (BOO) 521 -441 4 or outside U.S.A. (31 3) 994-4444 



WE ARE MOVING TO 
LARGER QUARTERS! 

Thank you... 

... for making our expansion possible and for 
helping make us the leading distributor 
of microprocessor systems, terminals 
and printers. 

We are showing our appreciation by 
producing a special catalog with thousands 
of items at greatly reduced prices. 
Call or write today. 

Help us move our inventory before we have 
to move it. 



MiniMicroMart, Inc. 

943 W.Genesee St. 

Syracuse, New York 13204 

(315)422-4467 



SEPTEMBER TRS-80 

SPECIALS 



T.M 



Verbatim Diskettes 

* Datalife Series 

* 40 Track, Built-in Hub Rings 

* Single Sided, Double Density 

Cat No. 1147 For TRS-80 $27/box 

Lex-11 Acoustic Modem 





* 300 Baud modem W/originate, 
answer, test modes, full or half 
duplex operation. 

* Power & ready indicators. 

* Switches mounted on top for 
easy access. 

* 4 screw assembly for easy 
servicing. 

Cat No. 2930 $119.95 

(Reg. $139.95) 



Percom DOUBLER II 

Plug in adaptor stores two to four times more data on your diskettes. 
Runs TRSDOS, NEWDOS + or Percom OS-80. Installs without re-wiring 
or trace cutting. Includes DBLDOS, a TRSDOS compatible double 
density operating system. 
Cat No. 2971 _ $159.95 

TRS-80 Color Computer Owners! 

Take your pick of three popular arcade games from Spectral 
Associates. Pick one or pick all three. On cassette. $21.95 ea. 
Cat No. 3157 Invaders 
Cat No. 3158 Meteoroids 
Cat No. 3159 Space War 

How To Order 

Write or phone. Mention this ad and WE PAY SHIPPING (UPS 
ground, USA only). Pay by check, M/C, Visa or C.O.D. (Add $1.40 for 
C.O.D.) Offer expires Oct. 1, 1981. 




7 



ELECTRONICS 



19511 Business Center Dr. Dept. V9 Northridge, CA 91324 
(800) 423-5387 (Outside Calif) (213) 886-9200 (In Calif.) 

MENTION THIS AD AND WE PREPAY UPS GROUND SHIPPING AND HANDLING (USA only) 
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Still have storage problems? 

Fully TRS-80® Compatible 

(Model I or III) 

Disk Drives 

Model B/51 250K, 1 Side, 40 Tracks $321.00 

B/52 500K, 2 Sides, 40 Tracks per side $439.00 

B/91 500K, 1 side, 80 Tracks $439.00 

B/92 1 Meg, 2 Sides, 80 Tracks per side $590.00 

Includes: Case and Power Supply — Fully Tested 

10 Day Money Back Guarantee 

90 Days Parts and Labor Warranty , t , cl s hD9 , 

Here's just a few of the 
features of our Disk Drives 



Other Money Savings Opportunities Order by Phone or Mail 



CABLES 



TRS-80 



2 Drive Cable. 
4 Drive Cable 


$29.00 
$39.00 


Diskettes 




Verbatim 1 for $31 .00 


Syncom 10 for $35.00 


Plastic File Box. . . 


$3.95 


Operating Systems 




TRSDOS 2.3 

40 Track Patch 

NEWDOS + 


$14.95 
$9.95 

$99.00 


Newdos 80 


$139.00 


TRSDOS Manual.. 


$5.95 


Super Utility 


$49.00 


Make 80 


$14.00 



16K Model III $899.00 

48K Model III 

w/2 Disks $1900.00 

Expansion Interface 

OK $274.00 



Printers 



Centronics 737-1 . $815.00 

IDS 460 $1219.00 

Epson MX80 $550.00 

OkidataM80 $499.00 

Microline82 $650.00 

Microline83 $950.00 

Okidata prices include tractors 
NEC Spinwriter 5530 
(freight collect). $2579.00 
16K Memory Kits 

Prime NEC 200ns dynamic 
RAM. Comes with complete 
instructions $39.00 

MPI Service 

Manual $3.00 

MPI Engineering 

Manual $30.00 



• 40/80 Tracks • Speed constant <1 Y 2 % 

• Auto-eject • Single/double density 

• Hi-Temp stability • Optical sensors— no switches 

ADDS MORE POWER TO YOUR SYSTEM 

Save time . . . Order by phone 

Orders only: 1-800-621-3229 

Information: 31 2-987-1 024 

Tech. assistance: 312-987-1032 



| 1 1 MIDWEST 
Li COMPUTER 

^-J DCD1DUCDM C 



1467 S. MICHIGAN 
CHICAGO. ILLINOIS 6C605 



PERIPHERALS 



TRS 80 TANDY CORP 



FREE! UPS GROUND SHIPPING ON ALL ORDERS OVER $100.00 



Quantity 


Description 


$ each 


Total 






















































(Minimum order $50.00) TOTAL 





D Check enclosed 
Bill my □ Visa □ Am Ex 
D Master Charge 
Acct. No 




Exp 



i~ 



Name 

Address . 
City 



State _ 



„Z«p. 



Not Responsible tor Typographical En 



; Subiect to Change wo notice 



■See List of Advertisers on page 354 
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Compare our prices with 
any in the magazine. 






We win. 



16 K RAM KITS 

NEC 41 K 

DIP SHUNTS (FOR KEYBOARD MEM UPGRADE' 4 00 



TRS-80 MOD I HARDWARE 



PERCOM DATA SEPARATOR 

PERCOMDOUB.ER 

DOUBLE ZAP 11/80 (CONVERTS ND/80 TO D D 

MPI 40 TRACK DISK DRIVE (B-51) 

SHUGART 40 TRACK DISK DRIVE (400L) . 

MPI B0 TRACK DISK DRIVE (B-91) 

TAND0N 80 TRACK DISK DP . 

TANDON 40 TRACK DISK DRIVE 

LNW DOUBLER WITH DOSPLUS 3 3D 

PERCOM SPEAK-2ME-2 



TRS-80 SOFTWARE 

IAZYWF :- 7 
PROSOFT MOO I. Ill 

SPECIAL DELIVERY (MAIL LIST PROGl MOD I, 

X-TRA SPECIAL DELIVERY (MAIL LIST PROG) 

TRACKCESSMOOl 

OMNiTERM SMART TFRMlNAl PKG MOD I III 



PRINTERS 

ANADF.XDP9000 
ANADEXOP9O01 
ANADEXDP9500 
ANAD • ' »01 
CENT- •, 

■•■- 

'H 25 CPS SERIAL 

H45CPSPAPA 
rOH40CPSSEfl ■ 
C-ITOH TRACTOR O y 
EPSON MX -80 
EPSON MX-80 F/T 
EPSON MX- 100 F/T 
IDS 44^G PAPER TIGER 
IDS 460G PAPER TIGER 
IDS-560G PAPER TIGER 
INFOSCRIBE 500 9X9 150 CPS 

IQREPLACEMEN 
MA: IBU 200 DUAL MODE 
V 'WRITER 55 '0 SERIAL RO 
NEC SPiNWRITER 5530 PARALLEL RO 
NEC SP'NWRlTfcR 5500 D SELLUM OPTION 
NEC SPINWRITER 3500 Sf LI IM PTI \ 
OKIDA1AMICROLINE80 
0KIDATAMICR0LINE82 
OKlDATA MICROLINE 83 

CP/M is a trademark o! Digital Research 



27 00 
159 00 

45 95 
299 00 
299 00 
429 00 

i I 

299 00 
*59 00 

64 95 



125 00 
79 00 
"< i 
199 00 
24 95 
89 95 



' ; 
'195 00 
'295 00 
'295 00 

765 00 

-■-. 
•.;>,;; 

'770 00 
'870 00 

SCALL 
SCALL 
- ' 

- K 

I 
1495 OC 

2995 OC 

2595 00 

- 

2195 00 

j" ; 

599 00 

795 00 



MODEMS 

NOVATION CAT ACOUSTIC MODEM 

N » I \ D CAT OIRECT CONNECT MODEM 

NOVATION AUTO-CAT AUTO ANSWER MODEM 229 00 

UDS '03LP DIRECT CONNEC! MODEM 

LEXICON LX HMODEV 



DISKETTES 

MD 525-01.10.16 26 50 

MD 550-01 IC 

MD 577-01. 10 16 34 80 

MD 557-01 10 16 . 45 60 

R 34 -8000 



DISKETTE STORAGE 

W PLASTIC LIBRARY CASI 2 50 

8" PLASTIC LIBRARY CASE 3 50 

PLASTIC STORAGE BINDER WITH INSERTS 9.95 

PROTECTOR 5 V 24 95 

ECTOR8" 29 95 



CP/M SOFTWARE 

MICROSOFT BASIC-80 299 00 

MICROSOF 1 BASIC COMPILER 319 00 

MICROSOFT FORTRAN-80 399 00 

PEACHTREf SYSTEMS CALL 

MAGIC WAND (REQUIRES CP/M) 275 00 

WORD STAR (REQUIRES CP/M) 310 00 

MAILMERGE (REQUIRES WORD STAR) 100 00 

SPFILGUARD ?39 00 

CP/M PICKLES & TROUT FOR TRS-80 MOD II 1 75 00 



CORVUS 

TRS-80 MOD I. II 

Controller Case/PS., Operating System A&T 

'.' . ■: , 
10 Megabytes 
20 Megabytes 
MIRROR BACK-UP 



. 



SPECIALS 



NO 



NO 




1 - TRS-80 DISK&OTHERMYSIFRifS.'BOX 

OF DISKS/PIASTIC liBRAR'CASl 44 50 

3 - NtWDOS/80 2 0/BOX OF DISKS' PLASTIC 
I iBRARY CASE 
NO 4 MICROSOFT BASIC COMPll EH.- BOX 01 

DlSKS.'PI AS! IC LIBRARY CASE 190 00 

NO 5 MICROSOFT BASIC 04 OTHER MYSTERIES/ 

BOX OF DISKS/PLASTIC LIBRARY CASE 49 95 
NO b DOUBLE DENSITY SPECIAL NEWDOS 

80 DOUBLE ZAP II. BOX OF DISKS PtASTiC 
LIBRARY CASE 309 00 

TANDON 40 TRACK WITH NEWDOS + 320 00 



SUPPLIES 

AVERY TABULABLES 

',000 3-' 8 49 

3.000 3-1 -2 « 15/16 
5 000 3 i'2« 15 '16 

UARCO PAPER (Prices FOB. S P) 

I-1/2 * 1 1 18 lb wl 29 00 

14-7/8 x 11 18 lb while 39 00 

We stock a complete line ol computer covers printer 
ribbons, print wheels & NEC thimbles Call us tor your 
needs 



We built a reputation on our 
prices and your satisfaction. 

We guarantee everything we Sell 'or 30 days It anything 
is wrong |ust return the item and we II mak- I 
And ol course we II pay the shipping charges 

•'•' i ;. sa and Master Card on all orders COD 
accepted up to $300.00 W i epl school pur 

chase orders 

' I •• add $2 00 foi standard UPS shipping and 
handling on orders under 50 pounds delivered m the 
continental U S Call us tor shipp fig char s on items 
lhal weigh more than S | I • -ireign FPOandAPO 
>rdei i < add 15% tor shipping California res- 
idents add 6% sales tax 



(213) 883-8594 

31245 La Baya Drive, Westlake Village, California 91362 

The prices quoted are only valid lor slock on hand and all prices are subject to change without notice 



I 




Frustrating isn't it' No matter how 
much you speed up your program 
it still seems to take forever to save 
data onto a cassette. Wouldn't it 
be great if someone could design a 
mass storage system with the speed 
of a disk, but at half the cost? 
Exatron did, the Exatron Stringy 
Floppy (ESF) . 

Totally self-contained, the ESF 
is an extremely fast, reliable, and 
economical alternative to cassette 
or disk storage of programs or 
data. All of the ESF's operations 
are under the computer's control, 
with no buttons, switches, knobs or 
levers to adjust or forget. 

The ESF uses c miniature tape 
cartridge, about the size of a busi- 
ness card, called a wafer. The 
transport mechanism uses a direct 
drive motor v. ith only one moving 
part Designed to read and write 



digital data only, the ESF suffers 
from none of the drawbacks of 
cassettes - without the expense of 
disks. 

Several versions of the ESF are 
available, for the TRS-80. Apple, 
PET, OSI and an RS 232 unit. 
Even the slowest of the units is 15 
times faster than a cassette, and all 
are as reliable as disk drives - in 
fact a lot of users say they are more 
reliable! 




excellence in elec tronics 

exatron 



To get further information about 
the ESF give Exatron a call on 
their Hot Line 800-538 8559 
(inside California 408-737 7111). 

If you can't wait any longer then 
take advantage of their 30 day 
money-back guarantee, you've 
nothing to lose but time! 

181 Commercial Street 
Sunnyvale, CA 94086 




TRS-80, Apple tiui PET tit trademark o( Tandy, Ap,le and Commodore rc»pectiver> 




